<%
Set sr = Server.CreateObject("Adodb.Recordset")
sql = "select * from upload"
sr.Open sql,baglan
%>
<%
for i = 1 to 5
webadresi = request.form("webadresi"&i&"")
aciklama = request.form("aciklama"&i&"")
set rs = server.createobject("ADODB.recordset")
rssql="select * from upload"
rs.open rssql,baglan,1,3
rs("aciklama") = aciklama
rs("webadresi") = webadresi
rs.Update
Next
rs.close
%>