% Function PollMentor_GetDatabaseConn() Dim oRet Dim strDSN strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="& Server.MapPath("ESS.MDB") Set oRet = Server.CreateObject ("ADODB.Connection") oRet.Open strDSN Set PollMentor_GetDatabaseConn = oRet End Function %> <% 'dim email 'email = Request.QueryString("email") 'If email <> "" Then 'Dim oConn 'Set oConn = PollMentor_GetDatabaseConn() 'Dim oRS 'Set oRS = Server.CreateObject("ADODB.Recordset") 'oRS.Open "select * from InternetUser where strEmail = '" & email & "'", oConn, 1, 3 'If oRS.EOF Then 'oRS.Close 'oconn.close 'Response.Redirect("AddInternetUser.asp?email=" & email) 'End If 'oRS.Close 'oConn.close 'Else 'Response.Redirect("AddInternetUser.asp?email=" & email) 'End IF %>