<%sira=request.form("sira")
idler=request.form("id")
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle
Set Rs=Server.CreateObject("Adodb.Recordset")
m=split(sira,",")
id=split(idler,",")
for i=0 to ubound(id)
Sorgu="Select * from cevaplar where id="&trim(id(i))&" "
Rs.Open Sorgu, Baglanti, 1, 3
if not rs.eof then
Rs("sira")=trim(m(i))
rs.update
end if
Rs.close
Next
%>
Anketi başarıyla oluşturdunuz