here is the entire ASP code of that page: (i left out all of the form
stuff
unless you went taht as well).
<%
Function SendEmail()
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Login Information</title>"
HTML = HTML & "</head>"
HTML = HTML & "<center><b>Login Information</b></center>"
HTML = HTML & "<br>Dear: " & Request.Form("fname") & " " &
Request.Form("lname")
HTML = HTML & "<br> <b>User Name: </b>" & Request.Form("email")
HTML = HTML & "<br> <b>Password: </b>" & Request.Form("password")
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.From = "(e-mail address removed)"
myMail.To = Request.Form("email")
myMail.Subject = "Login Information"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send
End Function
%>
<%
Response.Expires = -1000 'Make sure the browser doesnt cache this page
Response.Buffer = True 'enables our response.redirect to work
If Request.Form("valuepassed") ="true" Then
CheckSignUpForm
Else
ShowSignUpForm
End If
Sub CheckSignUpForm
Dim myconn, verify, blnLoggedIn, first, last, email, cnumber, user, pass,
site, logged, objRS, information
Set verify = Server.CreateObject("ADODB.Connection")
verify.open = "Provider=SQLOLEDB.1;Password=xxx;Persist Security
Info=True;User ID=xxxx;Initial Catalog=xxx;Data Source=xxx"
first = Request.Form("fname")
last = Request.Form("lname")
email = Request.Form("email")
cnumber = Request.Form("cnumber")
'user = Request.Form("username")
pass = Request.Form("password")
site = 1
logged = 0
Set objRS = verify.execute("SELECT id FROM regfreeup WHERE email='" &
email
& "'") or ("' cnumber = '" & cnumber & "';")
'Set objRS = verify.execute("SELECT id FROM logmein WHERE username='" &
user & "' OR cnumber ='" & cnumber & "';")
If objRS.EOF Then '''NO RECORDS MATCH. PROCEED WITH LOGIN CREATION
blnLoggedIn = False
information = "INSERT INTO logmein (cnumber, firstname, lastname, email,
pass, site, signup, logged) VALUES('" & cnumber & "', '" & first & "', '"
&
last & "', '" & email & "', '" & pass & "', '" & site & "', '" & Now() &
"',
'" & logged & "')"
Set Recordset = verify.execute(information)
SendEmail()
Response.Redirect "
http://www.yahoo.com"
Else
Response.Redirect "
http://www.google.com"
End If
verify.close
set verify = nothing
ShowSignUpForm
End Sub
%>
<% Sub ShowSignUpForm %>