<%durum=request.form("durum") Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from sorular where id="&session("id")&" " Rs.Open Sorgu, Baglanti, 1, 3 if not rs.eof then Rs("gen")=session("sabit")*7.65+370 Rs("yuk")=200+session("cevapsay")*15 Rs("durum")=durum rs.update end if rs.close if durum="Y" then Sorgu="Select * from sorular where id<>"&session("id")&" " Rs.Open Sorgu, Baglanti, 1, 3 rsx=rs.recordcount for y=1 to rsx rs("durum")="N" rs.movenext next rs.close end if %>

<% Sorgu="Select * from cevaplar where anketid="&session("id")&" order by sira" Rs.Open Sorgu, Baglanti, 1, 3 rsx=rs.recordcount if not rs.eof then for s=1 to rsx%> " name="id"> <%rs.movenext next end if%>

<%=session("soru")%>
<%=s%>- <%=rs("cevap")%>	" selected><%=rs("sira")%> <%for don=1 to session("cevapsay")%> <%=don%> <%next%>