% if Request.QueryString("error") <> "" then Dim strErr strErr = "Your email address was not located in our system please try again" end if If Request.ServerVariables("REQUEST_METHOD") = "POST" Then dim Rs, strSQL 'set Cn=server.createobject("ADODB.connection") set Rs=server.createobject("ADODB.recordset") 'Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("swREFI.mdb") strSQL ="select id from contacts where email = '" & Request.Form("email") &"'" Rs.Open strSQL, Conn if Rs.eof <> true then SESSION("email") = Request.Form("email") Response.Redirect("download.asp") else 'SESSION("err_message") = "Your email address was not located in our system please try again" Response.Redirect("login.asp?error=email") end IF END IF %>
![]() |
![]() |
|||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||
© Copyright 2006 Anacostia Waterfront Corporation