<%@LANGUAGE="VBSCRIPT"%> <% '=============================================== ' Personals System 2002 ' ©2002 vSpin.net. www.vspin.net '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. vSpin.net copyright notices must ' remain in the ASP sections of the code. '=============================================== %> <% dim xxxxm, rsheadUpdatee, rsheadUpdatee_numRows Dim textfield, textfield3, textfield4, textfield5, textfield6, textfield7, textfield8, textfield9, textfield10, textfield11, checkbox, SAVECOOKIES, rsup, rsup_numRows, textfield2, ipaddy, thequery, p_id, rsdup, rsdup_numRows, MM_editAction Function sqlsafe(s) pos = InStr(s, "'") While pos > 0 s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1) pos = InStr(pos + 2, s, "'") Wend sqlsafe=s End Function if request.form("MM_insert") = "true" then textfield = request.form("textfield") set rsdup = Server.CreateObject("ADODB.Recordset") rsdup.ActiveConnection = MM_conn_STRING rsdup.Source = "SELECT p_user FROM p_users WHERE p_user = '" + Replace(textfield, "'", "''") + "'" rsdup.CursorType = 0 rsdup.CursorLocation = 2 rsdup.LockType = 3 rsdup.Open() rsdup_numRows = 0 if NOT request.form("textfield2") = request.form("textfield12") then message = 53 rsdup.close set rsdup = nothing elseif ucase(request("textfield")) = ucase("Administration") Then message = 54 rsdup.close set rsdup = nothing elseif ucase(request("textfield")) = ucase("Admin") Then message = 54 rsdup.close set rsdup = nothing elseif NOT rsdup.EOF And NOT rsdup.BOF then message = 52 rsdup.close set rsdup = nothing elseif request.form("textfield2") = request.form("textfield12") AND rsdup.EOF And rsdup.BOF AND NOT ucase(request("textfield")) = ucase("Administration") AND NOT ucase(request("textfield")) = ucase("Admin") Then textfield2 = request.form("textfield2") textfield3 = request.form("textfield3") textfield4 = request.form("textfield4") textfield5 = request.form("textfield5") textfield6 = request.form("textfield6") textfield7 = request.form("textfield7") textfield8 = request.form("textfield8") textfield9 = request.form("textfield9") textfield10 = request.form("textfield10") textfield11 = request.form("textfield11") checkbox = request.form("checkbox") ipaddy = Request.ServerVariables("REMOTE_ADDR") If rsdup.EOF And rsdup.BOF Then if request.form("SAVECOOKIES") = "yes" then Response.Buffer = True ' This script handles both the adding and deleting of cookies Dim strCookieName ' id Dim strCookiePass ' pass Dim strCookieValue ' The value to be assigned to it Dim strCookieValue2 ' The value to be assigned to it ' Get the values passed in by the other script strCookieName = "id" strCookiePass = "access" strCookieValue = request.form("textfield") strCookieValue2 = request.form("textfield2") ' If no name is passed in then we don't do anything If strCookieName <> "" AND strCookiePass <> "" Then If strCookieValue <> "" AND strCookieValue2 <> ""Then Response.Cookies(strCookiePass) = strCookieValue2 Response.Cookies(strCookiePass).Expires = Date() + 365 Response.Cookies(strCookieName) = strCookieValue Response.Cookies(strCookieName).Expires = Date() + 365 End If End If ElseIf request.form("SAVECOOKIES") <> "yes" then Response.Cookies("id") = "$" Response.Cookies("id").Expires = Date() + 1 Response.Cookies("access") = "$" Response.Cookies("access").Expires = Date() + 1 end if Session.Abandon Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open MM_conn_STRING sql1 = "insert into p_users (p_user,p_password,p_state,p_first,p_last,p_email,p_phone,p_fax,p_address,p_city,p_zip,p_newsletter,p_ip) values('"& sqlsafe(textfield) & "','"& sqlsafe(textfield2) & "','"& textfield3 & "','"& sqlsafe(textfield4) & "','"& sqlsafe(textfield5) & "','"& sqlsafe(textfield6) & "','"& sqlsafe(textfield7) & "','"& sqlsafe(textfield8) & "','"& sqlsafe(textfield9) & "','"& sqlsafe(textfield10) & "','"& sqlsafe(textfield11) & "','"& checkbox & "','"& sqlsafe(ipaddy) & "')" conn.execute(sql1) SQL1 = "SELECT p_id FROM p_users WHERE p_user = '" + Replace(textfield, "'", "''") + "'" Set rsReg = conn.execute(sql1) p_id = rsReg("p_id") body = "Hello " & textfield4 & (" ") & textfield5 & vbCrLf & vbCrLf body = body & "Your username is: " & textfield & vbCrLf body = body & "Your password is: " & textfield2 & vbCrLf & vbCrLf body = body & "Your activation number is: " & p_id & vbCrLf & vbCrLf body = body & "You have a minimum of 24 hours to activate your account or the registration will be removed. Please use the link below to activate your account. " & vbCrLf & vbCrLf body = body & weburl & "activate.asp?activate=" & p_id & vbCrLf '*********************************************8 Dim objMail Dim objConfig Set objMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") 'Configuration objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort objConfig.Fields(cdoSMTPServer) = "smtp.1and1.com" objConfig.Fields(cdoSMTPServerPort) = 25 objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic objConfig.Fields(cdoSendUsername) = "m37083403-1" objConfig.Fields(cdoSendPassword) = "gumby911" 'Updated Configuration objConfig.Fields.Update Set objMail.Configuration = objConfig objMail.From= webemail objMail.To= textfield6 'objMail.CC="webmaster@saultevents.com" objMail.Subject="Activate your Personals Account!" objMail.TextBody = body objMail.Send Set objMail=Nothing Set objConfig=Nothing '************************************************8 rsdup.close set rsdup = nothing conn.close set conn = nothing MM_conn_STRING.close set MM_conn_STRING = nothing set SQL = nothing set rsReg = nothing SAVECOOKIES = request.form("SAVECOOKIES") response.redirect("activate.asp?message=14&f=" & textfield4 & ("&l=") & textfield5 & ("&e=") & textfield6 & ("&c=") & SAVECOOKIES) end if end if end if %>

 Registration

  
       *Required Fields
*Desired User ID: 
"> 14 characters max. Numbers & Letters only.
*Password:  "> 14 characters max. Numbers & Letters only.
*re-type Password:  "> 14 characters max. Numbers & Letters only.
*First Name:  "> 25 characters max.
*Last Name:  "> 25 characters max.
*E-mail Address:  "> Important: Account will require verification by email.
Phone:  "> Example: 555-555-5555
Fax:  "> Example: 555-555-5555
Address:  "> Example: 2134 Cedar Dr. Apt.#23
City/Town:  "> 25 characters max.
Prov/State:  <% textfield3 = request.form("textfield3") %>
Zip/Postal Code:  "> 10 characters max.
<% elseif request.form("checkbox") = "y" AND request.form("MM_insert") = "true" then %> checked<% else %> checked<% end if %>>Yes, send me emails of news & updates
checked<% end if %>>Remember my user id and password for login. Warning: Read First!
Read the Terms of Service.