<%@ Language="VBScript" CodePage="1254" %>
<% Response.Buffer = TRUE %>
<%
'- Tasarım & Programlama KRASiT | www.kelebekasp.tk
Session.TimeOut=60
'------------------------------------------------------------------------------------------------------------------
Set pcnetRS = Server.CreateObject( "ADODB.Recordset" )
pcnetRS.ActiveConnection = conn
pcnetRS.CursorType= adOpenStatic
pcnetRS.Open "Select * From veriler " &_
"Where onay=1 " &_
"ORDER BY tarih DESC"
'------------------------------------------------------------------------------------------------------------------
ip = Request.ServerVariables("REMOTE_ADDR")
%>
Ziyaretçi Defteri - Ana Sayfa
<%
'------------------------------------------------------------------------------------------------------------------
if pcnetRS.eof then
msg= "Veritabanında Kayıt Yok !"
else
syf=trim(request("syf"))
if syf="" then syf=1
pcnetRS.pagesize=7
pcnetRS.AbsolutePage=syf
WHILE not pcnetRS.eof and rowcount < pcnetRS.pagesize rowcount=rowcount+1
'------------------------------------------------------------------------------------------------------------------
%>
<%
'------------------------------------------------------------------------------------------------------------------
pcnetRS.MoveNext
WEND
end if
'------------------------------------------------------------------------------------------------------------------
%>
<%=msg%>
Toplam Mesaj Sayısı: <% response.write pcnetRS.RecordCount %> | Sayfa :
<% if pcnetRS.pagecount > 0 then
for i=1 to pcnetRS.pagecount
if i <> cINT(syf) then
%>
<%=i%>
<% else %>
[<%=i%>]
<% End IF %>
<% next %>
<% End IF %>
Tarih: <%=pcnetRS( "tarih" )%>
Yazan: <%=Server.HTMLEncode(pcnetRS( "ad" ))%>
| <%=pcnetRS( "email" )%>
<%=Server.HTMLEncode(pcnetRS( "mesaj" ))%>
