<%IF Request.Form("submit") = "submit" Then u = request("userid") p = request("pass") n = request("name") email = request("email") sql = "select id from customers where userid='" & u & "'" set rs = conn.execute(sql) if not rs.eof then message = "

That User ID is already in use. Please try again.

" Else sql = "insert into customers (userid, password,name,email) VALUES ('" & u & "','" & p & "','" & n & "','" & email & "')" Application.lock conn.execute(sql) Application.UnLock Session("loginvalid") = "Yes" session("userid") = u session("name") = n session("email") = email session("registered") = "Yes" 'Send registration confirmation Emails str = "Online Registration

" & vbNewLine str = str & "A new registration has been submitted.

" & vbNewLine str = str & "User ID: " & u & "
" & vbNewLine str = str & "Password: " & p & "
" & vbNewLine str = str & "Name: " & n & "
" & vbNewLine str = str & "Email: " & email & "
" & vbNewLine Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.Syntrex.net" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Set objCDOSYSMail.Configuration = objCDOSYSCon if email <> "" then objCDOSYSMail.From = email else objCDOSYSMail.From = "webserver@Syntrex.net" end if objCDOSYSMail.To = "info@syntrex.net" 'objCDOSYSMail.To = "michellereynolds@earthlink.net" objCDOSYSMail.Subject = "Online Registration" objCDOSYSMail.HTMLBody = str objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing str = "Online Registration

" & vbNewLine str = str & "Thank you for your registration with Syntrex.net. Please print the information below and keep for your records.

" & vbNewLine str = str & "User ID: " & u & "
" & vbNewLine str = str & "Password: " & p & "
" & vbNewLine str = str & "Name: " & n & "
" & vbNewLine str = str & "Email: " & email & "
" & vbNewLine Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.Syntrex.net" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = "webserver@Syntrex.net" objCDOSYSMail.To = email objCDOSYSMail.Subject = "Syntrex.net Online Registration" objCDOSYSMail.HTMLBody = str objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Response.Redirect "login.asp" end if end if %> . . : : S Y N T R E X : : . .

Register

Create a User ID and Password using the form below.
* = Required Field

<%if message <> "" then%><%=message%><%end if%>

*UserID:
*Password:
*Name:
*Email: