<%
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
Set veriyolu = Server.CreateObject("ADODB.Connection")
veriyolu.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
set kayitseti=server.CreateObject("adodb.recordset")
kayit = "Select * from ziyaret order by tarih desc"
kayitseti.Open kayit,veriyolu,1,3
if kayitseti.eof or kayitseti.bof then
Response.Write " Hiç Mesaj Yok.
"
%>
Mesaj
yaz
<%Response.End
else
end if
kayitseti.pagesize=10
kayitseti.AbsolutePage=shf
sayfa=kayitseti.PageCount
%>
<%for i=1 to kayitseti.pagesize
if kayitseti.eof then exit for%>
 |
|
Ad Soyad |
Ünvan |
Tarih |
E-mail |
|
Üniversite |
| <%=kayitseti("adi")%> <%=kayitseti("soyadi")%>
|
<%= kayitseti("unvan")%> |
<%= kayitseti("tarih")%> |
><%=kayitseti("email")%> |
|
<%=kayitseti("sehir")%> |
|
| <%=kayitseti("mesaj")%> |
|
|
|
<%kayitseti.movenext
next%>
| Mesaj
yaz |
| Mesajlar :
<%
for y=1 to sayfa
if shf=y then
response.write y
else
response.write " "&y&" "
end if
next
%>
|
|