<%session("soru")=request.querystring("soru") session("id")=request.querystring("id") %>

Anket

<%session("is")="" Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from cevaplar where anketid="&session("id")&" order by sira" Rs.Open Sorgu, Baglanti, 1, 3 rsx=rs.recordcount session("cevapsay")=rsx if not rs.eof then %> <%for s=1 to rsx%> <%rs.movenext next else%> <%end if%>

<%=session("soru")%>

<%=s%>- <%=rs("cevap")%>

Ankete hiç cevap şıkkı eklenmemiş

Anketi Bitir ve Yayınla

		<%=session("soru")%>
Cevap	:
		<%=session("is")%>