<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("disc/linked.mdb")
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from links where islem like '%Y%' order by user desc"
yeniasp.Open sor,Sur,1,3
kayitsayisi = yeniasp.recordcount
git = Request.QueryString("git")
if git="" then
git=1
end if
islem=Request.QueryString("islem")
if islem="out" then
call out
end if
%>
<%if yeniasp.eof or yeniasp.bof then
Response.Write "
Veritabanında kayıtlı site yok...
"
Response.End
end if
%>
<%
yeniasp.pagesize = 30
yeniasp.absolutepage = git
sayfa = yeniasp.pagecount
for i=1 to yeniasp.pagesize
if yeniasp.eof then exit for
%>