קוד:
if Request.Form("send")=1 then
Name=Request.Form("Name")
Place=Request.Form("Place")
Part=Request.Form("Part")
Hobby=Request.Form("Hobby")
Hate=Request.Form("Hate")
Love=Request.Form("Love")
Tv=Request.Form("Tv")
Song=Request.Form("Song")
Habit=Request.Form("Habit")
Motto=Request.Form("Motto")
Eyes=Request.Form("Eyes")
Gender=Request.Form("Gender")
Road=Request.Form("Road")
City=Request.Form("City")
Tel=Request.Form("Tel")
Pel=Request.Form("Pel")
Email=Request.Form("Email")
ICQ=Request.Form("ICQ")
msn=Request.Form("msn")
Nick=Request.Form("Nick")
More=Request.Form("More")
Years=Request.Form("Years")
Birthday=Request.Form("Birthday")
dim rs
dim sql
set rs=server.CreateObject("adodb.recordset")
sql="UPDATE Zofim set "
sql=sql & "name='" & name & "',"
sql=sql & "place='" & place & "',"
sql=sql & "part='" & part & "',"
sql=sql & "hobby='" & hobby & "',"
sql=sql & "hate='" & hate & "',"
sql=sql & "love='" & love & "',"
sql=sql & "tv='" & tv & "',"
sql=sql & "song='" & song & "',"
sql=sql & "habit='" & habit & "',"
sql=sql & "motto='" & motto & "',"
sql=sql & "eyes='" & eyes & "',"
sql=sql & "gender='" & gender & "',"
sql=sql & "road='" & road & "',"
sql=sql & "city='" & city & "',"
sql=sql & "tel='" & tel & "',"
sql=sql & "pel='" & pel & "',"
sql=sql & "email='" & email & "',"
sql=sql & "icq='" & icq & "',"
sql=sql & "nick='" & nick & "',"
sql=sql & "more='" & more & "',"
sql=sql & "years='" & years & "',"
sql=sql & "msn='" & msn & "',"
sql=sql & "birthday='" & birthday & "'"
sql=sql & " where id="&id&""
rs.Open sql,conn,2,3
set rs=nothing
Response.Redirect "default.asp"
end if