<% id=request.querystring("pol") set kaet = server.createobject("adodb.recordset") restablo = "Select * from questions where id="&id&"" kaet.open restablo,teksan,1,3 %> <%=kaet("poll_name")%> <% set rs = Server.Createobject("ADODB.Recordset") Sql = "select * from ipvt where polid="&kaet("id")&" order by id" rs.open Sql, teksan, 1, 3 if rs.Eof Then Response.Write "İp yok" else %> <% sayfa = request.Querystring("sayfa") if sayfa="" then ' sayfa değerimiz boş ise sayfa=1 end if rs.pagesize = 30 rs.absolutepage = sayfa Sayfa_top = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for a=a+1 %> <% rs.movenext next %> İd İp Sil <%=rs("id")%> <%=rs("ip")%> "/> <% end if %>