<%@ Language=VBScript %> <% Response.Expires = -1 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" 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 = session("id") sid = session("sid") rs.Open "Select * from kids where kidID = '" & request("kid") & "'",cn %>

Change Kid's Homepage

Kid ID:	<%=request("kid")%> " id="kid" name="kid">
HomePage:	<%if isnull(rs("home")) = true then%> <%else%> " id="home" name="home" size="65"> <%END IF%>