<%liste=request.querystring("liste")%>
<%
set baglanti=server.createobject("adodb.connection")
baglanti.open Cumle
set rs=server.createobject("adodb.recordset")
SQL="Select * from sponsors order by id"
rs.open SQL,baglanti,1,3
if not rs.eof then
rsx=rs.recordcount
set rst=server.createobject("adodb.recordset")
SQLt="Select * from sponsors where okundu='N' order by id"
rst.open SQLt,baglanti,1,3
if not rst.eof then
rsnoto=rst.recordcount
else
rsnoto="0"
end if
%>
Mesaj Kutusu <%=rsx%>
<%if rsnoto>0 then%>
(<%=rsnoto%> Yeni)
<%else%>
Yeni mesaj yok
<%end if%>
| Sil |
Durum |
Kimden |
Konu |
Alım Tarihi |
<%
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rs.pagesize = 30 'Bir sayfada listelenmesini istediğiniz haber sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
if rs("okundu")="N" then
durum="
"
else
durum="
"
end if
%>
<%
rs.movenext
Next
'şimdi ise sayfa adlarını yazıp link verelim
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'eğer şimdiki sayfa ise ona link vermiyoruz
response.write g& " " %><% else
response.Write "" & g & " "
end if
next
rs.close
else
%>
Şu anda sponsor başvuru listeniz boş
<%end if %>