% if request("Submit")<>"" then xm=request("xm") xb=request("xb") sj=request("sj") zj=request("zj") dz=request("dz") yb=request("yb") hy=request("hy") bm=request("bm") zw=request("zw") yj=request("yj") gs=request("gs") sf=request("sf") set conn = opendatabase() Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "contactlist",conn,3,3 rs.AddNew rs("xm") = xm rs("xb") = xb rs("sj") = sj rs("zj") = zj rs("dz") = dz rs("yb") = yb rs("hy") = hy rs("bm") = bm rs("zw") = zw rs("yj") = yj rs("gs") = gs rs("sf") = sf rs("posttime") = now rs.Update Response.Redirect "sub_ok.asp" end if %>