<% if Request.QueryString("sil")="eminim" and Request.QueryString("id")<>"" then rs.open "delete * from mesajlar where id="&Request.QueryString("id") , baglantim ,1,3 end if %> <% if Request.QueryString("aktif")="eminim" and Request.QueryString("id")<>"" then sorgum="Select * from mesajlar Where id = "&id&"" rs.Open Sorgum, Baglantim, 1, 3 rs("onay") = True rs.Update rs.close end if %> <% if Request.QueryString("pasif")="eminim" and Request.QueryString("id")<>"" then sorgum="Select * from mesajlar Where id = "&id&"" rs.Open Sorgum, Baglantim, 1, 3 rs("onay") = False rs.Update rs.close end if %> <% rs.movenext next %>
<% sorgum="Select * from mesajlar order by id desc" rs.Open Sorgum, Baglantim, 1, 3 if rs.eof or rs.bof then Response.Write("
Kayitli Yorum Yok.
") else shf = Request.QueryString("shf") if shf="" then shf=1 end if %> <% rs.pagesize = 5 rs.absolutepage = shf cellcolor="#FFFFFF" sayfa = rs.pagecount for i=1 to 5 if rs.eof then exit for If i mod 2 Then Response.Write("") End If %>
<%=rs("firmaadi")%>
 Adı : <%= Rs("ad") %> - Şehir : <%=rs("yer")%> - Telefon : <%=rs("tel")%>
<%if rs("onay")=True then%> "> <%else%> "> <%end if%>

" onclick="return confirm('Dikkat ! Yorum Tamamen Silinecektir.')">
<%= Rs("mesaj")%>
<%=rs("yorumturu")%>
Tarih : <%=rs("tarih")%> - Mail : <%=rs("mail")%> - Web : <%=rs("web")%> - Ip : <%=rs("ip")%>

<%for y=1 to sayfa if cint(shf)=cint(y) then %> [<%= y %>] <% else %> <%= y %> <% end if next %>

<% end if %>