%@Language = VBSCript%> <% dim Conn dim rs dim vl_header dim vl_readonly Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "WVEthiopia" vl_ID = request.QueryString("vl") if (vl_ID <> "") then sql = "Select * from Children where ID = " & vl_ID set rs = Conn.Execute(sql) if not rs.eof then vl_ChildName = "" & rs("ChildName") end if end if %>