<% Dim sql,rsPoll sql = "SELECT * FROM questions" Set rsPoll = Server.CreateObject("ADODB.Recordset") rsPoll.Open sql, teksan, 3, 3 %> <%DO UNTIL rsPoll.EOF%> <%rsPoll.MoveNext%> <%LOOP%>

ANKET ID	ANKET İSMİ	VERİLEN OY	Anketi SIFIRLA	ACTIVE	İP	SİL	GÖSTER
<%=rsPoll("id")%>	<%=rsPoll("poll_name")%> <%=Tarihcevir(rsPoll("date"))%>	<%=rsPoll("total_votes")%>	" class="afont" onClick="return confirm('Sıfırlamak İstediğinizden Eminmisiniz')">SIFIRLA	<%IF NOT rsPoll("active") = "Yes" Then%>&act=Yes">Aktif et<%ELSE%>&act=No">Aktifeyi kaldır<%END IF%>	">İp Adresleri	" class="afont" onClick="return confirm('Silmek İstediğinizden Eminmisiniz ')">ANKETİ SİL	" onClick="return createTarget(this.target)" target="formtarget">Anketi göster