Ziyaretçi Defteri
<% sorgum="select * from mesaj where onay=true order by id desc" Rs.Open Sorgum, Baglantim, 1, 3 if Rs.eof or Rs.bof then Response.Write("
Kayitli Mesaj Bulunamadı.
") else Set istekurl = Request.ServerVariables("QUERY_STRING") istekbolum = Split(istekurl,"/") istekbolum2=istekbolum(3) parcala=split(istekbolum2,"-") shf=parcala(1) if shf="" then shf=1 end if %> <% rs.pagesize = 10 rs.absolutepage = shf cellcolor="#FFFFFF" sayfa = rs.pagecount for i=1 to 10 if rs.eof then exit for %>
 
<% if rs("secenek")<>"" then %> " border="0" align="center" hspace="5" width="95" height="95"> <% else %> <% end if %>
Sayın;<%=rs("cinsiyet")%> <%= rs("adi") %>, <%= rs("sehir") %> İlinden <%= rs("tarih") %> Tarihinde Yazmıştır.
<%=rs("mesaj")%><%if rs("cevap")<>"" then%>
Yönetici Cevabı :
<%=rs("cevap")%>
<%end if%>
<%if rs("web")="" then%> <%else%> " target="_blank"> <%end if%> <%if rs("mail")="" then%> <%else%> " target="_blank"> <%end if%>
 
 
<% rs.movenext next%>
<%= shf %>

<% onceki=shf-1%> <%if shf=1 then%> «« <%else%> «« <%end if%>  | <%if onceki<1 then%> « <%else%> « <%end if%>  |  <% for y=1 to sayfa %> <% x=x+1 if shf=y then response.write ""&y&" | " else%> <%=y%> |  <% end if if x>18 then response.write ("
") x=0 end if next sonraki=shf+1 if sonraki>sayfa then %> » <%else%> » <%end if%>  |  <%if shf=sayfa then%> »» <%else%> »» <%end if%>
<% end if %> <%Rs.Close %>