<%@ 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 '------------------------------------------------------------------------------------------------------------------ %>
 
 
 
  Tarih: <%=pcnetRS( "tarih" )%> Yazan: <%=Server.HTMLEncode(pcnetRS( "ad" ))%> | <%=pcnetRS( "email" )%>   Şehir: <%=pcnetRS( "sehir" )%>
 
   <%=Server.HTMLEncode(pcnetRS( "mesaj" ))%>
 
 
<%=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 %>

Yazan :
E-Posta :
Şehir :
Mesajınız :
<% Response.Write "Disabled" %><% End If %>>