<%@ Language=VBScript %> <% set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionTimeout = 6000000 cn.CommandTimeout = 6000000 cn.Open "DSN=Kidsnet_Parent;uid=sa;PWD=sgmkj;APP=ASP Script;DATABASE=Kidsnet" Set rs = Server.CreateObject("ADODB.Recordset") set cn2 = Server.CreateObject("ADODB.Connection") cn2.ConnectionTimeout = 6000000 cn2.CommandTimeout = 6000000 cn2.Open "DSN=Kidsnet_Parent;uid=sa;PWD=sgmkj;APP=ASP Script;DATABASE=Kidsnet" Set rs2 = Server.CreateObject("ADODB.Recordset") id = lcase(session("ID")) sid = session("sid") Sql = "Update parent set email ='" & Request("email") & "', name ='" & Request("name") & "', Address ='" & Request("Address") & "', APTNUM ='" & Request("APTNUM") & "', city ='" & Request("city") & "', STATE ='" & Request("STATE") & "', zip ='" & Request("zip") & "' where ParentID = '" & id & "'" rs.Open sql,cn Response.Redirect "main.asp"%>