if iname="" then iname=rs("iname") end if
rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from person where uname='"&uname&"'"
rs.open sql,conn,3,3
rs("iname")=iname
rs("code")=code
rs("mzhu")=mzhu
rs("pic")=pic
rs("guoji")=guoji
rs("tizhong")=tizhong
rs("shengao")=shengao
rs("byday")=byday
rs("edus")=edus
rs("zym")=zym
rs("hkb")=hkb
rs("nianling")=nianling
rs("marry")=marry
rs("zzmm")=zzmm
rs("zcheng")=zcheng
rs("bday")=bday
rs("sex")=sex
rs("hka")=hka
rs("zye")=zye
rs("zyes")=zyes
rs("zyms")=zyms
rs("edu")=edu
rs("school")=school
rs.update
rs.close
if modify<>"ture" then
Response.Redirect "register2.asp"
else
Response.Redirect "modify.asp"
end if %>
