<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("defter.mdb"))
%>
<%=title%>
<%
Set rs = server.CreateObject("ADODB.Recordset")
nere = "Select * From ayarlar where okunma"
rs.Open nere, conn, 1, 3
rs("okunma")=rs("okunma") + 1
rs.Update
%>
Alper Duru Anısına
<%
id=request("id")
Set Rs=Server.CreateObject("Adodb.Recordset")
sorgu = "Select * from defter where onay=1"
Rs. Open Sorgu, conn, 1, 3
adet=rs.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<%
If rs.eof then
'Response.Write "
<%
Response.End
End If
%>
<%
rs.pagesize = 10
rs.absolutepage = shf
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<%response.write i%>
Adı :
<%=rs("adsoyad")%>
Eposta :
<%=rs("eposta")%>
Şehir :
<%=rs("sehir")%>
<%=rs("mesaj")%>
<%
rs.movenext
%>
<% next %>
[<%=adet%>] adet mesaj sergilendi | Sayfa : <%
for y=1 to sayfa
if shf=y then
response.write y
else
response.write "["&y&"] "
end if
next
%>