Sistemler

Sistemlerimize ve çözümlerimize göz atın!

<% Sayfa= "Kategori" set baglanti = Server.CreateObject("ADODB.Connection") baglanti.open("Provider = Microsoft.Jet.OLEDB.4.0;data source = "&Server.MapPath("asp/bcylb.mdb")&";") set Slayt = Server.CreateObject("ADODB.Recordset") Slayt.open "SELECT * FROM Liste where SayfaAdi = '" &Sayfa &"' order by SiraNo ",baglanti,1,3 if not Slayt.eof then if sayfa = "" then sayfa = 1 end if Slayt.pagesize = 200 toplam = Slayt.pagecount for i = 1 to Slayt.pagesize if Slayt.eof then exit for kategoriBaslik=Slayt("Baslik") %>

<%=Slayt("Baslik")%>

<% Sayfa2= "Sistemler" set baglanti2 = Server.CreateObject("ADODB.Connection") veriyolu2 = "Provider = Microsoft.Jet.OLEDB.4.0;data source = "&Server.MapPath("asp/bcylb.mdb")&";" baglanti2.open(veriyolu2) set Tablo2= Server.CreateObject("ADODB.Recordset") Tablo2.open "SELECT * FROM Liste Where SayfaAdi = 'Sistemler' AND Kategori = '"&kategoriBaslik &"' order by SiraNo ",baglanti2,1,3 if not Tablo2.eof then if sayfa2 = "" then sayfa2 = 1 end if Tablo2.pagesize = 200 toplam2 = Tablo2.pagecount for i2 = 1 to Tablo2.pagesize if Tablo2.eof then exit for %>
<%=Tablo2("Baslik")%>

<%=Tablo2("AltBaslik")%>

<% Tablo2.movenext next else response.write "Kayıtlı " &Sayfa2 &" Bulunamadı." end if Tablo2.Close Set Tablo2 = Nothing baglanti2.Close Set baglanti2 = Nothing %>

<% Slayt.movenext next else response.write "Kayıtlı " &Sayfa &" Bulunamadı." end if %>