REFERANSLARIMIZ
Referans listemiz.

 
<% Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/System_DB.mdb") %> <% shf = Request.QueryString("shf") if shf="" then shf=1 end if set yaz = Server.CreateObject("ADODB.RecordSet") SQL_yaz ="Select * from REFERANS ORDER BY id DESC" yaz.open SQL_yaz,bag,1,3 yaz.pagesize = 10 yaz.absolutepage = shf sayfa = yaz.pagecount for i=1 to yaz.pagesize if yaz.eof then exit for %> <% yaz.movenext Next %>
   Toplam <% VTABANI = SERVER.MAPPATH("db/System_DB.mdb") Baglan = "DBQ=" & VTABANI & ";Driver={Microsoft Access Driver (*.mdb)}" ' %> <% Set Baglanti=Server.CreateObject("ADODB.Connection") Baglanti.Open Baglan Set Oku=Server.CreateObject("ADODB.Recordset") Sql="Select id from REFERANS " Oku.Open Sql, Baglanti, 1, 3 toplam=0 %> <%do while not Oku.eof%> <% toplam=toplam+1 Oku.movenext loop %> <%=toplam%> Adet Referansımız Mevcuttur
   Referans Başlığı Web Hosting Domain Tasarım
»  "><%=yaz("Baslik")%> "> "> ">