<%
Kayit_Sayisi = 155
Set Rs = Server.CreateObject("Adodb.Recordset" )
SQL = "Select * from tbllink where onay=true order by tarih desc"
Rs.Open SQL, Baglanti, 1, 3
Rs.PageSize = Kayit_Sayisi
Rs.CacheSize = Kayit_Sayisi
If Request.QueryString("Sayfa" ) = "" Then
Gosterilen_kayit = 1
Else
Gosterilen_kayit = CInt(Request.QueryString("Sayfa" ))
End If
Toplam_Kayit = Rs.PageCount
If Gosterilen_kayit > Toplam_Kayit Then Gosterilen_kayit = Toplam_Kayit
If Gosterilen_kayit < 1 Then Gosterilen_kayit = 1
If Toplam_Kayit = 0 Then
Response.Write "
Kayıt bulunamadı!"
Else
Rs.AbsolutePage = Gosterilen_kayit
End If
i = 0
Do While i < Kayit_Sayisi and Not Rs.Eof
%>
<%=baslik%>
 <%=rs("aciklama")%> |
<%=rs("tarih")%>
|
Hit:
<%=rs("hit")%>
|
|
<%
i = i + 1
Rs.Movenext
Loop
%>
 |
Total Link : <%=rs.recordcount%>
|
|
<%
islem = Request.QueryString("islem")
if islem="ekle" then
call ekle
else
end if
%>
<% sub ekle
Dim url, aciklama
url = request.form("url")
siteadi = request.form("siteadi")
aciklama = request.form("aciklama")
aciklama = Replace(aciklama, chr(13), "
", 1, -1, 1)
aciklama = Replace(aciklama, vbcrlf, "
", 1, -1, 1)
Set maxu= Server.createobject("ADODB.Recordset")
maxu.Open "tbllink", baglanti, 1 , 3
if url="" or aciklama="" or siteadi="" then
Response.Write "
Lütfen tüm alanları doldurunuz...
GERİ
"
Response.End
else
maxu.Addnew
maxu("url") = url
maxu("siteadi") = siteadi
maxu("aciklama") = aciklama
maxu("tarih" )=now()
maxu.Update
response.write " Eklediğiniz Sayfa, Site admini tarafından onaylandıktan sonra yerini alacaktır...
Teşekkürler..."
response.end
maxu.close
set maxu = Nothing
Baglanti.close
set Baglanti = Nothing
end if
end sub %>
