<%@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.		
'===============================================
%>
<!--#include file="config.asp"-->
<!--#include file="connection/cookie.asp" -->
<%
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

Dim objCDO, objConfig
set objCDO = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")

' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.abac.com"
Flds.update

Set objCDO.Configuration = objConfig
objCDO.To = textfield6
objCDO.From = webemail
objCDO.Subject = "Activate your Personals Account!"
objCDO.TextBody = body 
objCDO.fields.update
objCDO.Send

set objCDO = nothing
set objConfig = nothing

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
%>







<!--#include file="header.asp"-->
<script  language="JavaScript">
<!-- Hide from older browsers...

//Function to check that the form is filled in correctly
function CheckForm () {

	//Check User id
	if (document.form1.textfield.value == ""){
		alert("Please enter a user id");
		document.form1.textfield.focus();
		return false;
	}
	
	//Check pass
	if (document.form1.textfield2.value == ""){
		alert("Please enter a password");
		document.form1.textfield2.focus();
		return false;
	}
	
	//Check pass
	if (document.form1.textfield12.value == ""){
		alert("Please re-type your password");
		document.form1.textfield12.focus();
		return false;
	}
	
	//Check first
	if (document.form1.textfield4.value == ""){
		alert("Please enter your first name");
		document.form1.textfield4.focus();
		return false;
	}
		
	//Check last
	if (document.form1.textfield5.value == ""){
		alert("Please enter your last name");
		document.form1.textfield5.focus();
		return false;
	}
	
	//Check email
	if (document.form1.textfield6.value == ""){
		alert("Please enter your email address");
		document.form1.textfield6.focus();
		return false;
	}

 var testresults
 var str=document.form1.textfield6.value
 var filter=/^.+@.+\..{2,3}$/

 if (filter.test(str))
    testresults=true
 else {
    alert("Please enter a valid email address")
    document.form1.textfield6.focus();
    return false;
}

var checkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890";
var checkStr = document.form1.textfield.value;
var allValid = true;
for (i = 0; i < checkStr.length; i++)
{
    ch = checkStr.charAt(i);
    for (j = 0; j < checkOK.length; j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
}
if (!allValid)
{
    alert("Please enter only numbers & letters for the user id field");
    document.form1.textfield.focus();
    return false;
}
var checkkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890";
var checkkStr = document.form1.textfield2.value;
var alllValid = true;
for (i = 0; i < checkkStr.length; i++)
{
    ch = checkkStr.charAt(i);
    for (j = 0; j < checkkOK.length; j++)
      if (ch == checkkOK.charAt(j))
        break;
    if (j == checkkOK.length)
    {
      alllValid = false;
      break;
    }
}
if (!alllValid)
{
    alert("Please enter only numbers & letters for the password field");
    document.form1.textfield2.focus();
    return false;
}
var checkkkOK = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890";
var checkkkStr = document.form1.textfield12.value;
var allllValid = true;
for (i = 0; i < checkkkStr.length; i++)
{
    ch = checkkkStr.charAt(i);
    for (j = 0; j < checkkkOK.length; j++)
      if (ch == checkkkOK.charAt(j))
        break;
    if (j == checkkkOK.length)
    {
      allllValid = false;
      break;
    }
}
if (!allllValid)
{
    alert("Please enter only numbers & letters for the re-type password field");
    document.form1.textfield12.focus();
    return false;
}

	
	//Check for HTML tags before submitting the form	
	for (var count = 0; count <= 3; ++count){
		if ((document.form1.elements[count].value.indexOf("<", 0) >= 0) && (document.form1.elements[count].value.indexOf(">", 0) >= 0)){
			alert("Sorry, HTML tags are not permitted");
			document.form1.elements[count].focus();
			return false;
		}			
	}	
	
	return true
}
// -->
</script>
          <table border="0" cellpadding="0" cellspacing="0" width="617">
            <tr>
              <td height="40" WIDTH="288">
                <p align="left" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><FONT color=#ff0000 size=2><B>***AOL users- AOL tends to put our emails in your junk or spam mail folders. Be sure to check there for your activation email.<BR>
</B></FONT></td>
              <td height="40" WIDTH="10">
                &nbsp;</td>
				<td height="40" align="right" WIDTH="298">
                <P ALIGN="left"><font color=#ff0000 size=2><b>***MSN, HOTMAIL or Yahoo users- Make sure your account is not over its limit or you will not receive your activation email.</b></font></td>
								<td width="21" height="40">&nbsp;&nbsp;</td>
            </tr>
			</table>   
          <table border="0" cellpadding="0" cellspacing="0" width="617">
            <tr>
              <td background="images/horzline.gif" height="1" colspan="2"><img border="0" src="images/horzline.gif"></td>
            </tr>
            <tr>
              <td colspan="2">
                <table border="0" cellpadding="0" cellspacing="0" width="617">
                  <tr>
                    <td width="10" height="30"></td>
                    <td width="607" colspan="2" height="30"><font color="#FF0000" face="Arial" size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                      *Required
                      Fields</font></td>
                  </tr>
                  <tr>
                    <td width="10"></td>
                    <td width="127" align="right"><font size="1"><font color="#FF0000">*</font><font color="#3366CC">Desired
                      User ID</font>:&nbsp;</font></td>
                    <form name="form1" method="POST" action="register.asp" onSubmit="return CheckForm();">
                    <td width="480" height="25"><input class="fields" name="textfield" size="20" maxlength="14" value="<% = request.form("textfield") %>">
                      <font size="1">14
                      characters max. Numbers & Letters only.</font></td>
                  </tr>
                  <tr>
                    <td width="10"></td>
                    <td width="127" align="right"><font size="1"><font color="#FF0000">*</font><font size="1" color="#3366CC">Password</font><font color="#000000">:&nbsp;</font></font></td>
                    <td width="480" height="25">
                    <input type="password" class="fields" name="textfield2" maxlength="14" value="<% = request.form("textfield2") %>" size="20">
                      <font size="1">14
                      characters max. Numbers & Letters only.</font></td>
                  </tr>
                  <tr>
                    <td width="10"></td>
                    <td width="127" align="right"><font size="1"><font color="#FF0000">*</font><font size="1" color="#3366CC">re-type
                      Password</font><font color="#000000">:&nbsp;</font></font></td>
                    <td width="480" height="25">
                    <input type="password" class="fields" name="textfield12" maxlength="14" value="<% = request.form("textfield12") %>" size="20">
                      <font size="1">14
                      characters max. Numbers & Letters only.</font></td>
                  </tr>
                  <tr>
                    <td width="10"></td>
                    <td width="127" align="right"><font size="1"><font color="#FF0000">*</font><font size="1" color="#3366CC">First
                      Name</font><font color="#000000">:</font><b><font face="Arial" size="1" color="#000000">&nbsp;</font></b></font></td>
                    <td width="480" height="25"><input class="fields" name="textfield4" size="20" maxlength="25" value="<% = request.form("textfield4") %>">
                      <font size="1">25
                      characters max.</font></td>
                  </tr>
                  <tr>
                    <td width="10"></td>
                    <td width="127" align="right"><font size="1"><font color="#FF0000">*</font><font size="1" color="#3366CC">Last
                      Name</font><font color="#000000">:&nbsp;</font></font></td>
                    <td width="480" height="25"><input class="fields" name="textfield5" size="20" maxlength="25" value="<% = request.form("textfield5") %>">
                      <font size="1">25
                      characters max.</font></td>
                  </tr>
                  <tr>
                    <td width="10"></td>
                    <td width="127" align="right"><font size="1"><font color="#FF0000">*</font><font size="1" color="#3366CC">E-mail
                      Address</font><font color="#000000">:&nbsp;</font></font></td>
                    <td width="480" height="25"><input class="fields" name="textfield6" size="20" maxlength="50" value="<% = request.form("textfield6") %>">
                      <font size="1">Important:
                      Account will require verification by email.</font></td>
                  </tr>
                  <tr>
                    <td width="10" rowspan="4"></td>
                    <td width="127" align="right"></td>
                    <td width="480" height="25"><input type="checkbox" name="checkbox" value="y"<% if NOT request.form("checkbox") = "y" AND request.form("MM_insert") = "true" then %><% elseif request.form("checkbox") = "y" AND request.form("MM_insert") = "true" then %> checked<% else %> checked<% end if %>><font face="Arial" size="2">Yes,
                      send me emails of news &amp; updates</font></td>
                  </tr>
                  <tr>
                    <td width="127" align="right"></td>
                    <td width="480" height="25"><input type="checkbox" name="SAVECOOKIES" value="yes"<% if request.form("SAVECOOKIES") = "yes" then %> checked<% end if %>><font size="2">Remember
                      my user id and password for login. </font></td>
                  </tr>
                  <tr>
                    <td width="127" align="right"></td>
                    <td width="480" height="25" valign="bottom"><font size="1">Read
                      the <b>Terms of Service</b>.</font></td>
                  </tr>
                  <tr>
                    <td width="127" align="right">
                      <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"></td>
                    <td width="480" height="80" valign="top">
                      <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><TEXTAREA ROWS=4 class = "fields" COLS=60 WRAP>Ads can be edited, deleted or renewed and photos uploaded at any time.
Expiration notices are automatically sent by our system.
E-mail addresses are kept blind and respondents
will only get your address when you give it to them.
Spammers can't get access to your e-mail accounts.
DW Media, LLC does not rent, sell, lend or give out e-mail addresses.
Advertiser information is strictly confidential and is not released for any reason.</TEXTAREA></p>
                    </td>
                  </tr>
                </table>
              </td>
            </tr>
            <tr>
              <td background="images/horzline.gif" height="1" colspan="2"><img border="0" src="images/horzline.gif"></td>
            </tr>
            <tr>
              <td align="right" width="137"></td>
              <td width="480"><input type="submit" class="fields" name="Submit" value="I agree to the Terms of Service"></td>
<input type="hidden" name="MM_insert" value="true">
</form>
            </tr>
          </table>
<!--#include file="footer.asp"-->