<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
if session("uyedurum") = True Then
%>
<%
Set mahir = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from mesaj WHERE kadi='"&session("kadi")&"' order by gid desc"
mahir.Open sorgu,Baglanti,1,3
If mahir.eof then
Response.Write "Yeni Mesajınız Yok."
Response.End
End If
syf = Request.QueryString("syf")
if syf="" then
syf=1
end if
mahir.pagesize = 10
mahir.absolutepage = syf
sayfa = mahir.pagecount
for i=1 to mahir.pagesize
if mahir.eof then exit for
%>
<%
mahir.MoveNext
Next
mahir.close
%>
| Sayfa:
<%
for y=1 to sayfa
if Syf=y then
response.write y
else
response.write (" "&y&"")
end if
next
%> |
Coded By
Mahir
<%
else
response.redirect "default.asp"
end if
%> |
|
 |
|
