<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file ="config.asp"-->
<%If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then%>
<%Call AutoSSL("")%>
<%End If%>
<%
Session(DSN+"apply"+"M1") = "Email '"
Session(DSN+"apply"+"M11") = "Your Email is required."
Session(DSN+"apply"+"M2") = "' has already been used."
Session(DSN+"apply"+"M21") = "' is invalid."
Session(DSN+"apply"+"M3") = "User Name '"
Session(DSN+"apply"+"M4") = "' has already been used. Please select a different one."

Session(DSN+"apply"+"M5") = "New Member: "
Session(DSN+"apply"+"M6") = "Account No: "
Session(DSN+"apply"+"M61") = "Account Type: "
Session(DSN+"apply"+"M7") = "has just signed up. Requires manual activation."

Session(DSN+"apply"+"E0") = "Both User Name and Password are required."
Session(DSN+"apply"+"E1") = "Invalid Credit Card: "
Session(DSN+"apply"+"E2") = "Wrong type; "
Session(DSN+"apply"+"E3") = "Wrong length; "
Session(DSN+"apply"+"E4") = "Wrong number; "
Session(DSN+"apply"+"E5") = "Unknown card type; "

Session(DSN+"SessionFields") = "FirstName,LastName,Email" 
	'To remember these fields as Session Variables, e.g. Session(DSN+"FirstName")
	'after login is verified.
	'The fields must exist in the Members table.

Dim sAffiliate
Const DaysToKeep = 7
	sAffiliate = Request("Affiliate")
	If Len(sAffiliate) <> 0 Then
		Response.Cookies("Affiliate") = sAffiliate
		Response.Cookies("Affiliate").Expires = Date + DaysToKeep
		Response.Cookies("Affiliate").Path = "/"
	End If
%>
<%Call CreateMyObject %>
<%

'Page variables
Dim sStr

'Output Variables
Dim sGoBack

	If IsObject(MyObject) Then
		sGoBack = MyObject.sGoBack
	End If

'Use this function to send further email notification or acknowledgment etc.
Function SendMail1(sSender, sOrgEmail, sDestName, sDestEmail, sSubject, ByRef sText, bHTML, bIncoming, sAttach)
	If IsObject(MyObject) Then
		SendMail1 = MyObject.SendMail1(sSender, sOrgEmail, sDestName, sDestEmail, sSubject, sText, bHTML, bIncoming, sAttach)
	End If
End Function
%>

<%
'The email(s) is sent when a new account is created. Feel free to alter the email contents.
Sub SendEmails()
Dim sText, crlf, sAdminEmail, sAdminName, sSubject, sName, sEmail
	crlf = Chr(13) & Chr(10)
	sAdminEmail = GetData("Admin", "AdminEmail")
	sAdminName = GetData("Admin", "AdminName")
	bAdminEmail = True

	If IsNull(Session(DSN+"Cancel")) Or Len(Session(DSN+"Cancel")) = 0 Then
		Session(DSN+"Cancel") = 0
	End If
	If IsNull(Session(DSN+"Balance")) Or Len(Session(DSN+"Balance")) = 0 Then
		Session(DSN+"Balance") = 0
	Else
		Session(DSN+"Balance") = CDbl(Session(DSN+"Balance"))
	End If

	If Session(DSN+"Cancel") = 0 Or Session(DSN+"Balance") <> 0 Then
		sSubject = "New Member Sign Up Account - " & Session(DSN+"Account")
		sText = "Dear Admin," & crlf & crlf & "A new member has signed up. Use the Membership Manager to view the new member's details or click below:"
		sText = sText & crlf & GetCurrentURL(Request, False) & "detail.asp?Account=" & _
				Server.URLEncode(Session(DSN+"Account"))
		sText = sText & crlf & crlf & Session(DSN+"SiteName") & " Automatic System Message"
		Call SendMail1(sAdminName, sAdminEmail, sAdminName, sAdminEmail, sSubject, sText, False, False, "")
	End If

	sName = GetRequest("FirstName") & " " & GetRequest("LastName")
	sEmail = GetRequest("Email")
	sSubject = "Welcome to " & Session(DSN+"SiteName") & "!"

	sText = "Dear " & sName & ", " & crlf & crlf & _
		"Thank You for joining " & Session(DSN+"SiteName") & "." & crlf & crlf
	If Session(DSN+"Cancel") <> 0 Then
		If Session(DSN+"Balance") = 0 Then
			sText = sText & "You will be notified as soon as your account is activated. If you have any queries, don't hesitate to contact us." & crlf & crlf 
		Else
			sText = sText & "Your account will be activated as soon as the joining fee is paid. If you have any queries, don't hesitate to contact us." & crlf & crlf 
		End If
	Else
		If GetRequest("UserName") <> Session(DSN+"UserName") Or _
			GetRequest("Password") <> Session(DSN+"Password") Then
			sText = sText & "Here is the Link to Update your Account Information with us," & crlf & Chr(9)
			sText = sText &  GetCurrentURL(Request, False) & "update.asp?UserName=" & _
				Server.URLEncode(Session(DSN+"UserName")) & _
				"&Password=" & Server.URLEncode(Session(DSN+"Password")) & crlf & crlf
		End If
		sText = sText &	"For your convenience, use the online messaging facility to communicate with our staff:" & crlf & _
			GetCurrentURL(Request, False) & "custom17.asp" & crlf & crlf
	End If

'	sText = sText &	"[Add your own messages here]" & crlf & crlf & _

	sText = sText &	"Warmest regards," & crlf & crlf & _
		 sAdminName & crlf & _
		 Session(DSN+"SiteName") & crlf & _
		 sAdminEmail & crlf 

	Call SendMail1(sAdminName, sAdminEmail, sName, sEmail, sSubject, sText, False, False, "")
End Sub
%>
<html>

<head>
<link rel="stylesheet" href="<%=STYLE_SHEET%>" type="text/css">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=<%=Response.CharSet%>">
<title><%=Session(DSN+"SiteName")%> Sign Up Sheet</title>
<script Language="JavaScript">
<% = sGoBack %>
<!--
function TakeTo(objSelect)
{
var wnd = window;
var sURL = "";
	sURL = objSelect.options[objSelect.selectedIndex].value;
	if (sURL.length == 0) return;
	if (sURL.indexOf("?") < 0 )
		sURL += "?";
	else
		sURL += "&";
	sURL += "rnd=" + Math.round(Math.random()*100000);
	if (window.opener != null)
	{
		wnd = window.opener;
		wnd.location = sURL;
		window.close();
	}
	else
		wnd.location = sURL;
}
//-->
<!--
ctl_array = new Array();
ctl_desc = new Array();

ctl_array[0] = "firstname"; 
ctl_desc[0] = "First Name";
ctl_array[1] = "lastname"; 
ctl_desc[1] = "Last Name";
ctl_array[2] = "address1"; 
ctl_desc[2] = "Address 1";
ctl_array[3] = "city"; 
ctl_desc[3] = "City";
ctl_array[4] = "stateprov"; 
ctl_desc[4] = "State/Province";
ctl_array[5] = "postalcode"; 
ctl_desc[5] = "Postal Code";
ctl_array[6] = "email"; 
ctl_desc[6] = "Email";
ctl_array[7] = "phoneno"; 
ctl_desc[7] = "Phone No";
ctl_array[8] = "country"; 
ctl_desc[8] = "Country";
ctl_array[9] = "shippingmethod"; 
ctl_desc[9] = "Shipping Method";

ctl_array[10] = "username"; 
ctl_desc[10] = "User Name";
ctl_array[11] = "password"; 
ctl_desc[11] = "Password";

//Enable the following to enforce credit card details.
//ctl_array[12] = "cardtype"; 
//ctl_desc[12] = "Type of Credit Card";
//ctl_array[13] = "cardnumber"; 
//ctl_desc[13] = "Card Number";
//ctl_array[14] = "expmonth"; 
//ctl_desc[14] = "Expiry Month";
//ctl_array[15] = "expyear"; 
//ctl_desc[15] = "Expiry Year";
//ctl_array[16] = "nameoncard"; 
//ctl_desc[16] = "Name On Card";

var error =new String("");
var ctl_name = new String("");
var MAIN_FORM = "Apply";

function CheckPassword()
{
var sError = "";
	if(navigator.appName.substring(0,1) == "O") //Opera
		return sError;	
	if (document.forms[MAIN_FORM].Password.value !=
		document.forms[MAIN_FORM].Password1.value)
		sError 	= "Passwords do not match;\n";
	else if (document.forms[MAIN_FORM].Password.value.length < 8)
		sError 	= "Password must contain at least 8 charaters;\n";
	return sError;
}

function CheckEmail(sEmail)
{
	if(navigator.appName.substring(0,1) == "N") 
	{
     var fVersion = parseFloat(navigator.appVersion);
		if (fVersion < 4.07) return "";
	}

var emailReg = "^[\\w-_\.]*[\\w-_\.]\@[\\w]\.+[\\w]+[\\w]$";
var regex = new RegExp(emailReg);
var sError = "";
	if (sEmail != "" && regex.test(sEmail) == false)
	{
			sError = "Invalid Email;\n";
	}
	return sError;
}

function CheckForm()
{
	var i, j, k, control;
	var bReturn = false;	
	error = "";
	error += CheckPassword();
	for (i=0; i < document.forms[MAIN_FORM].elements.length; i++)
	{
		control = document.forms[MAIN_FORM].elements[i];
		ctl_name = control.name.toLowerCase();
		for (j = 0; j < ctl_array.length; j++)
		{
			if (ctl_name == ctl_array[j])
			{ 
				//Options must be singled out and tested by name
				//to overcome a bug in NS
				if (control.type.indexOf('select') >= 0)
				{
				//This is a dummy test, come up with your own.
					if (control.selectedIndex < 0 ||
						control.selectedIndex >= control.options.length ||
						control.options[control.selectedIndex].text.length == 0)
						error += '"' + ctl_desc[j] +  '"' + " field is required;\n";
				}
				else if (control.value == null || control.value == "")
				{
					error += '"' + ctl_desc[j] +  '"' + " field is required;\n";
				}
				if (ctl_name == "email")
					error += CheckEmail(control.value);
			}
		}
	}	

	if (error.length == 0)
		error = validateCard();

	if (error.length == 0)
	{
		bReturn = true;
		error = "No errors were found. you may submit the form now.";
	}
	return bReturn;
}

function validateCard()
{
var error = "";
var sCardNumber, sExpMonth, sExpYear, ctrl;

	if (!document.forms[MAIN_FORM].CardNumber) return error;
	sCardNumber = document.forms[MAIN_FORM].CardNumber.value;
	if (sCardNumber.length == 0) return error;

	while(sCardNumber.indexOf(' ') >= 0) sCardNumber = sCardNumber.replace(' ', '');
	while(sCardNumber.indexOf('-') >= 0) sCardNumber = sCardNumber.replace('-', '');
	document.forms[MAIN_FORM].CardNumber.value = sCardNumber;
	
	ctrl = document.forms[MAIN_FORM].ExpMonth;
	if (ctrl.type.indexOf('select') >= 0)
		sExpMonth = ctrl.options[ctrl.selectedIndex].value;
	else 
		sExpMonth = ctrl.value;

	ctrl = document.forms[MAIN_FORM].ExpYear;
	if (ctrl.type.indexOf('select') >= 0)
		sExpYear = ctrl.options[ctrl.selectedIndex].value;
	else 
		sExpYear = ctrl.value;
	
	if (sExpMonth.length || sExpYear.length)
	{
		var obDate = new Date();
		var iMonth, iYear;
		if (sExpYear.length == 1) sExpYear = "0" + sExpYear;
		if (sExpYear.length == 2) sExpYear = "20" + sExpYear;
		iYear = parseInt(sExpYear);
		var sStr = sExpMonth;
		if (sStr.length > 1 && sStr.charAt(0) == "0") 
			sStr = sStr.substring(1, sStr.length);
		else if (sStr.length == 1)
			sExpMonth = "0" + sExpMonth;
		iMonth = parseInt(sStr);
		if  (isNaN(iYear) || iYear < obDate.getYear() || iYear > 2020)
			error = "Invalid Expiry Year.";
		else if (isNaN(iMonth) || iMonth > 12 || iMonth <= 0)
			error = "Invalid Expiry Month.";
		else if (iYear == obDate.getYear() && iMonth <= obDate.getMonth())
			error = "Invalid Expiry Month.";
	}
	
	if (sExpMonth.length && 
		document.forms[MAIN_FORM].ExpMonth.type.indexOf('text') >= 0) 
			document.forms[MAIN_FORM].ExpMonth.value = sExpMonth;
	if (sExpYear.length && 
		document.forms[MAIN_FORM].ExpYear.type.indexOf('text') >= 0) 
			document.forms[MAIN_FORM].ExpYear.value = sExpYear;
	
	return error;
}

function SubmitForm()
{
	if (document.forms[MAIN_FORM].Agreement && 
			document.forms[MAIN_FORM].Agreement.checked != true)
		alert("Please read and agree with the Terms and Conditions");
	else if (CheckForm() == true)
		document.forms[MAIN_FORM].submit();
	else
		alert(error);
}

function CreatePopup(page,s_title)
{
var sOptions, wnd;
	sOptions = "toolbar=no,location=no,directories=no,";
	sOptions += "left=" + (screen.width-450) + 
				",width=400,height=350,scrollbars=yes,resizable=yes,menubar=no,status=yes";
	wnd = window.open("",s_title,sOptions);
	if (wnd == null) wnd = window;
	if (page.length) wnd.location = page;
	wnd.focus();
}
function setOption(sName, sCookie)
{
var i = 0;
var frm = document.forms[MAIN_FORM];
var ctr = null, opt = null;
	for (i = 0; i < frm.elements.length; i++)
	{
		if (frm.elements[i].name == sName)
		{
			ctr = frm.elements[i];
			break;
		}
	}
	if (ctr != null && ctr.type.indexOf("select") >= 0 )
	{
		opt = ctr.options;
		for (i = 0; i < opt.length; i++)
		{
			if (opt[i].value == sCookie || opt[i].text == sCookie)
			{
				opt.selectedIndex = i;
				break;
			}
		}
	}
}

var ctlName = ""
function highlight() 
{
var ctl = window.event.srcElement;
var tagName = ctl.tagName.toLowerCase();
	if (ctl.name != ctlName) 
		ctlName = ctl.name;
	else 
		return;	
    if (((tagName == "input" && (ctl.type.indexOf("text") >=0 
	|| ctl.type.indexOf("password") >=0)) 
	|| tagName == "textarea") && ctl.readOnly == false)
    {
	   ctl.focus(); ctl.select();
	}
}
function GetStateAbbrev(ctl)
{
var sStr = ctl.value;
	sStr = sStr.toUpperCase();
	sStr= sStr.replace(".", "");
	if (sStr.length == 2) ctl.value = sStr;
	if (sStr.length < 4) return;

var i, state, STATES ="AL=Alabama,AK=Alaska,AZ=Arizona,AR=Arkansas,CA=California," +
		"CO=Colorado,CT=Connecticut,DE=Delaware,DC=District of Columbia,"  +
		"FL=Florida,GA=Georgia,HI=Hawaii,ID=Idaho,IL=Illinois,IN=Indiana," +
		"IA=Iowa,KS=Kansas,KY=Kentucky,LA=Louisiana,ME=Maine,MD=Maryland," +
		"MA=Massachusetts,MI=Michigan,MN=Minnesota,MS=Mississippi," +
		"MO=Missouri,MT=Montana,NE=Nebraska,NV=Nevada,NH=New Hampshire," +
		"NJ=New Jersey,NM=New Mexico,NY=New York,NC=North Carolina,ND=North Dakota," +
		"OH=Ohio,OK=Oklahoma,OR=Oregon,PA=Pennsylvania,RI=Rhode Island," +
		"SC=South Carolina,SD=South Dakota,TN=Tennessee,TX=Texas,UT=Utah," +
		"VT=Vermont,VA=Virginia,WA=Washington,WV=West Virginia,WI=Wiscousin," +
		"WY=Wyoming";
	state = STATES.toUpperCase() + ",";
	i = state.indexOf("=" + sStr + ",");
	if (i < 2) return;
	sStr = state.substring(0, i);
	i = sStr.lastIndexOf(",");
	if (i > 0) sStr = sStr.substring(i+1, sStr.length);
	ctl.value = sStr;
}
//-->
</script>
</head>

<body onClick="highlight()" bgcolor="<%=Session(DSN+"BgColor")%>" background="<%=Session(DSN+"Background")%>">

<%If Len(Session(DSN+"Error")) > 0 Then%>
<p align="center"><font class="category"><%=Session(DSN+"Error")%><br>
<a class="category" href="JavaScript:history.back();"><img src="previous.gif" width="84" height="18"></a></font></p>
<%
	Response.Write "</body></html>"
	CloseDatabase
	Response.End
%>

<%ElseIf Request.ServerVariables("REQUEST_METHOD") = "POST" Then%>
<%Call SendEmails%>

<p align="center"><font class="headingbig"><img src="../images/Adultery_logo.jpg" width="427" height="86"> <%=Session(DSN+"SiteName")%>
</font></p>

<form name="Payment" Action="<%=GetData("Admin", "CartPage")%>" Method="POST">
<div align="center"><center>

  <input type="hidden" name="Taxable" value="No">
  <input type="hidden" name="ProductID"
  value="<%=Server.HTMLEncode(Session(DSN+"Account"))%>"><input type="hidden"
  name="Quantity" value="1"><input type="hidden" name="Price"
  value="<%=Session(DSN+"Balance")%>">

  <%If Session(DSN+"EncryptPrice") = True Then%>
	  <input type="hidden" name="EncryptPrice"
	value="<%=EncryptParam(Session(DSN+"Account"), Session(DSN+"Balance"))%>">
  <%End If%>
  <input type="hidden" name="UOM" value="Each">
  
  <input type="hidden" name="ProductType"
  value="Membership"><input type="hidden" name="ProductDesc"
  value="Joining Fee For <%=Server.HTMLEncode(GetRequest("FirstName") + " " + GetRequest("LastName"))%>">

  <table cellpadding="5">
    <tr>
      <td style="border: 1px solid #0080FF"><table border="0" width="100%">
        <tr>
          <td><font class="bodyblue">Account No.: </font></td>
          <td><input type="text" readonly name="Account" value="<%=Session(DSN+"Account")%>"
          size="20" maxlength="30"></td>
        </tr>
		<%If IsNull(Session(DSN+"Cancel")) Or Session(DSN+"Cancel") = 0 Then%>
        <%If Session(DSN+"BuyerPoints") = True Then%>
        <tr>
          <td><font class="bodyblue">Available Points: </font></td>
          <td><input type="text" name="Point" size="20" maxlength="30" readonly
          value="<%=Session(DSN+"Point")%>"></td>
        </tr>
		<%End If%>
		<%Else%>
        <tr>
          <td colspan="2"><font class="bodygreen">Your
          application is pending activation/approval.</font></td>
        </tr>
		<%If Not IsNull(Session(DSN+"Balance")) Then%>
		<%If CDbl(Session(DSN+"Balance")) > 0 Then%>
        <tr>
          <td colspan="2"><font class="bodygreen">
		  The account will be activated 
		<%If Not IsNull(Session(DSN+"ExpiryDate")) Then%>
		<%If IsDate(Session(DSN+"ExpiryDate")) Then	%>
		and remain valid till <%=FormatDateTime2(Session(DSN+"ExpiryDate"),2)%><br>
		<%End If%>
		<%End If%>
          upon payment of <%=FormatPrice(Session, Session(DSN+"Balance"))%> joining fee.</font>
		  </td>
        </tr>
        <tr>
          <td colspan="2" class="category" align="right"><font color="red">&nbsp;|&nbsp;</font>
		  <a class="category" href="JavaScript:doPayment()">Pay Now</a>
		  <script>
		  <!--
		  function doPayment()
		  {
			var frm = document.Payment;
			if (window.opener) 
			{
				var sTarget = "W" + Math.random();
				//window.opener.location = '';
				window.opener.name = sTarget;
				frm.target = sTarget; 
				frm.submit(); 
				window.close();
			}
			else
				frm.submit();
		  }
		  //-->
		  </script>
		  </td>
        </tr>
		<%End If%>
		<%End If%>
		<%Session(DSN+"Account") = "" 'Disable Login%>

		<%End If%>
      </table>
      </td>
    </tr>
    <tr>

      <td style="border: 1px solid #0080FF" align="right">

	  <!--CyberClub Navigation links-->
	  <table border="0" width="100%">
        <tr>
          <td colspan="2" align="left">
			<hr noshade color="#0080FF" size="1" width="70%">
          </td>
        </tr>
        <tr>
          <td colspan="2"><font class="bodygreen"><b>Take
          me to ... </b></font></td>
        </tr>
        <tr>
          <td><select name="GoTo" size="1" onchange="TakeTo(this)">
            <option value>(Select One)</option>
            <option value="wishlist.asp">My Wish List</option>
            <option value="bulletin.asp">Bulletin Board</option>
            <option value="account.asp">Account Information</option>
            <option value="update.asp">Update Address/Name/Email</option>
            <option value="login.asp?action=logout">Log Out</option>
          </select> </td>
          <td align="center" class="category">
		  <%If InStr(1, Session(DSN+"GoBack"), "checkout.asp", 1) <> 0 Then%>
		  &nbsp;|&nbsp;<a class="category"
          href="JavaScript:GoBack()">Back to Check Out...</a>
		  <script language="JavaScript">setTimeout('GoBack()',1000);</script>
		  <%Else%>
		  &nbsp;|&nbsp;<a class="category"
          href="JavaScript:GoBack()">Go Back</a>
		  <%End If%>
		  <script language="JavaScript">if (window.opener == null) document.write('&nbsp;|&nbsp;<a class="category" href="<%=HOME_PAGE%>">Home Page</a>');</script>	
		  </td>
		</tr>
      </table>
	  <!-- End of Navigation links -->

	  </td>
    </tr>
  </table>
  </center></div>
</form>
<%Else%>

<p align="center"><img src="Adultery_logo.jpg" width="427" height="86"></p>
<p align="center"><font class="headingbig">
  <%=Session(DSN+"SiteName")%> Sign up for a customer account now
  <%If Request.ServerVariables("SERVER_PORT_SECURE") <> 0 Then%>
  <img src="secure.gif" Title="This page is under a secure server.">
  <%End If%>
</font></p>
<div align="center"><center>
<table>
  <tr>
    <td align="left"><font class="body">- All information
    provided will be kept confidential.<br>
    - Fields that are marked with <font color="red"><b>*</b></font> are mandatory.</font></td>
  </tr>
</table>
</center></div>

<form name="Apply" action="apply.asp" method="POST">
<input type="hidden" name="SessionID" value="<%=GetRequest("SessionID")%>"><%=SetGoBack()%>

<div align="center"><center>

   <table cellpadding="5">
    <tr>
      <td bgcolor="#3399FF" class="heading"><font color="white">To create an account please specify your preferred account details </font></td>
    </tr>
    <tr>
      <td style="border: 1px solid #0080FF"><table border="0" width="100%">
        <tr>
          <td colspan="2"><font class="bodygreen">Preferred login settings to your account.</font></td>
        </tr>
        <tr>
          <td><font class="bodyblue">User Name<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="UserName" value="<%=GetCookie("UserName")%>" size="20"
          maxlength="30"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Password<font color="#FF0000">*</font>: </font></td>
          <td><input type="password" onClick="highlight()" name="Password" size="20" maxlength="30"
          value="<%=GetCookie("Password")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Confirm<font color="#FF0000">*</font>: </font></td>
          <td><input type="password" onClick="highlight()" name="Password1" size="20" maxlength="30"
          value="<%=GetCookie("Password1")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Private Question: </font></td>
          <td><input type="text" name="PrivateQuestion" size="40" maxlength="50"
          value="<%=GetCookie("PrivateQuestion")%>"></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td><font class="body">e.g.: What is your mother's maiden name?</font></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Answer to Question: </font></td>
          <td><input type="text" name="PrivateAnswer" size="20" maxlength="20"
          value="<%=GetCookie("PrivateAnswer")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Account Type: </font></td>
          <td><select NAME="GroupID" SIZE="1">
			<%=ListGroups()%>
          </select> </td>
        </tr>
      </table>
      </td>
    </tr>

    <tr>
      <td bgcolor="#3399FF" class="heading"><font color="white">Personal Information</font></td>
    </tr>
    <tr>
      <td style="border: 1px solid #0080FF"><table border="0" width="100%">
        <tr>
          <td colspan="2"><font class="bodygreen">Please
          enter your name and contact information here.</font></td>
        </tr>
        <tr>
          <td><font class="bodyblue">First<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="FirstName" value="<%=GetCookie("FirstName")%>" size="15"
          maxlength="15"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Last<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="LastName" size="15" maxlength="15"
          value="<%=GetCookie("LastName")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Company: </font></td>
          <td><input type="text" name="Company" size="30" maxlength="30"
          value="<%=GetCookie("Company")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Email<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="Email" size="30" maxlength="50"
          value="<%=GetCookie("Email")%>"></td>
        </tr>
        <tr>
          <td valign="top"><font class="bodyblue">Repeat Email: </font></td>
          <td><input type="text" name="Email1" size="30" maxlength="50"
          value="<%=GetCookie("Email")%>" onBlur="if (this.form.Email.value != this.value) alert('Two emails do not match. Please make sure they are identical and correct.')">
           <font class="body"><br>(enter again, don't copy-paste)</font>
			</td>
        </tr>
        <tr>
          <td></td>
          <td><input type="checkbox" name="MailingList" value="Yes">&nbsp;
		  <font class="body">Would you like to be included in our mailing list?</font></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Phone<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="PhoneNo" size="30" maxlength="30"
          value="<%=GetCookie("PhoneNo")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Fax: </font></td>
          <td><input type="text" name="FaxNo" size="30" maxlength="30"
          value="<%=GetCookie("FaxNo")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Where did <br> you find us: </font></td>
          <td valign="bottom"><input type="text" name="InfoSource" size="30"
          maxlength="50" value="<%=GetCookie("InfoSource")%>"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td bgcolor="#3399FF" class="heading"><font color="white">Delivery Details</font></td>
    </tr>
    <tr>
      <td style="border: 1px solid #0080FF" valign="top" align="right"><table width="100%">
        <tr>
          <td colspan="2"><font class="bodygreen">Address to which your order(s) will be shipped.</font></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Recipient: </font></td>
          <td><input type="text" name="Recipient" size="22"
          maxlength="30" value="<%=GetCookie("Recipient")%>">
		  <font class="body"><br>(full name of addressee)</font>
		  </td>
        </tr>
        <tr>
          <td><font class="bodyblue">Address 1<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="Address1" size="30" maxlength="30"
          value="<%=GetCookie("Address1")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Address 2: </font></td>
          <td><input type="text" name="Address2" size="30" maxlength="30"
          value="<%=GetCookie("Address2")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">City<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="City" size="20" maxlength="20" value="<%=GetCookie("City")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">State/Province<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="StateProv" size="15" maxlength="15"
          value="<%=GetCookie("StateProv")%>" onblur="GetStateAbbrev(this)"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Postal Code<font color="#FF0000">*</font>: </font></td>
          <td><input type="text" name="PostalCode" size="10" maxlength="10"
          value="<%=GetCookie("PostalCode")%>"></td>
        </tr>
        <tr>
          <td colspan="2"><font class="bodygreen">(The delivery cost may vary upon the destination region/country.)</font></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Region/Country<font color="#FF0000">*</font>: </font></td>
          <td>
			<%sStr = ListCountries()%>
			<%If Len(sStr) <> 0 Then%>
			<select NAME="Country" SIZE="1">
				<%=sStr%>
            </select> 
			<%Else%> 
			<input type="text" size="20" maxlength="30" name="Country"
				value="<%=GetCookie("Country")%>"> 
		    <%End If%> 
		  </td>
        </tr>
        <tr>
          <td valign="top"><font class="bodyblue">Your Comments: </font></td>
          <td><textarea rows="3" name="Comment" cols="25" wrap="virtual"><%=GetCookie("Comment")%></textarea></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Consultant ID: </font></td>
          <td>
			<input type="text" name="Affiliate" size="20" 
			maxlength="50" value="<%=GetCookie("Affiliate")%>">		  
		  </td>
		</tr>
      </table>
      </td>
    </tr>

    <tr>
      <td bgcolor="#3399FF" class="heading"><font color="white">Billing Address</font></td>
    </tr>

    <tr>
      <td style="border: 1px solid #0080FF" valign="top" align="right"><table width="100%">
        <tr>
          <td><font class="bodyblue">Check here </font></td><td>
		  <input type="checkbox" onClick="if (this.checked) copyAddress()" value="Yes">&nbsp;
		  <font class="bodygreen">if same as the delivery address.</font>
		  <script>
		  <!--
		  function copyAddress()
		  {
		  var i, ctl, ctl1, sStr, frm = document.forms[MAIN_FORM];
			for (i =0; i <frm.elements.length; i++)
			{
				ctl = frm.elements[i];
				if (ctl.name.indexOf("Billing") >=0)
				{
					ctl1 = eval("frm.elements['" + ctl.name.substring(7, ctl.name.length) +
						"']");
					if (ctl1) 
					{
						if (ctl1.type.indexOf('select') >= 0)
						{
							sStr = ctl1.options[ctl1.selectedIndex].value;
							if (sStr.length == 0)
								sStr = ctl1.options[ctl1.selectedIndex].text;
							ctl.value = sStr;
						}
						else
						{
							ctl.value = ctl1.value;
						}
					}
				}
			}
		  }
		  //-->
		  </script>
		  </td>
		</tr>
        <tr>
          <td><font class="bodyblue">Address 1: </font></td>
          <td><input type="text" name="BillingAddress1" size="30" maxlength="30"
          value="<%=GetCookie("BillingAddress1")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Address 2: </font></td>
          <td><input type="text" name="BillingAddress2" size="30" maxlength="30"
          value="<%=GetCookie("BillingAddress2")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">City: </font></td>
          <td><input type="text" name="BillingCity" size="20" maxlength="20"
          value="<%=GetCookie("BillingCity")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">State/Province:</font></td>
          <td><input type="text" name="BillingStateProv" size="15" maxlength="15"
          value="<%=GetCookie("BillingStateProv")%>" onblur="GetStateAbbrev(this)"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Postal Code:</font></td>
          <td><input type="text" name="BillingPostalCode" size="10" maxlength="10"
          value="<%=GetCookie("BillingPostalCode")%>"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Country:</font></td>
          <td><input type="text" name="BillingCountry" size="20" maxlength="20"
          value="<%=GetCookie("BillingCountry")%>"></td>
        </tr>
      </table>
      </td>
    </tr>
	<% If Session(DSN+"DoCreditCards") <> 0 Then%>
    <tr>
      <td bgcolor="#3399FF" class="heading"><font color="white">Payment Information</font></td>
    </tr>
    <tr>
      <td style="border: 1px solid #0080FF" valign="top" align="right"><table width="100%">
        <tr>
          <td><font class="bodyblue">Credit Card Type: </font></td>
          <td>
			<select name="CardType" size="1">
			<option value="VISA">VISA</option>
			<option value="MASTERCARD">Master Card</option>
			<option value="AMEX">American Express</option>
			<option value="DISCOVER">Discover</option>
			</select>
		  <!-- Add/Remove your own card selections here -->
		   <script language="JavaScript">setOption("CardType","<%=GetCookie("CardType")%>");</script>
		  </td>
        </tr>
        <tr>
          <td><font class="bodyblue">Credit Card Number: </font></td>
          <td><input type="text" name="CardNumber" size="20"></td>
        </tr>
        <tr>
          <td><font class="bodyblue">Expiration Date: </font></td>
          <td><input maxLength="2" name="ExpMonth" size="2">/<input maxLength="4" name="ExpYear"
          size="4"></td>
        </tr>
        <tr>
		  <td><font class="bodyblue">Name On Card: </font></td>
          <td><input type="text" name="NameOnCard" size="20" maxlength="30"></td>
        </tr>
        <tr>
		  <td><font class="bodyblue">CVV2/CVC2 
		  (<a href="JavaScript:CreatePopup('cvv2.htm','CVV2')">Help!</a>): </font></td>
          <td><input onBlur="verifyCVV2(this)" type="text" name="SecurityCode" size="4" maxlength="4">
		  <script language="JavaScript">
		  <!--
		  function verifyCVV2(ctl)
		  {
		  var sCVV2 = ctl.value, sError = "";	
			if (sCVV2.length == 0) return; 
		  var sCardType = ctl.form.CardType.options[ctl.form.CardType.selectedIndex].value;
		  var sCardNumber = ctl.form.CardNumber.value;
			if (sCardNumber.length > 0)
				sCardNumber = sCardNumber.substring(sCardNumber.length - 4, sCardNumber.length);

			if (isNaN(parseInt(sCVV2)))
				sError = "Invalid Card Code. It must be a number read off from the back of your credit card.";
			else if (sCardNumber == sCVV2 ) 
				sError = "Card Code is NOT the last four digits of the Card Number.";
			else if ((sCardType == "VISA" || sCardType == "MASTERCARD") && sCVV2.length != 3)
				sError = "Card Code must be THREE (3) digits.";
			else if (sCardType == "AMEX" && sCVV2.length != 4)
				sError = "Card Code must be FOUR (4) digits.";
			if (sError.length)
			{
				alert(sError);
				ctl.value = "";
				ctl.focus();
			}
		  }
		  //-->
		  </script>
		  </td>
        </tr>
        <tr>
		  <td><font class="bodyblue">Card Holder Phone: </font></td>
          <td><input type="text" name="CardHolderPhone" size="20" maxlength="30"></td>
        </tr>
<!--Add these fields to Members table if you ar to collect the infomration-->
<!--
        <tr>
		  <td><font class="bodyblue">Card Issuing Bank: </font></td>
          <td><input type="text" name="CardIssuingBank" size="20" maxlength="30"></td>
        </tr>
        <tr>
		  <td><font class="bodyblue">Customer Service Phone: </font></td>
          <td><input type="text" name="CardServicePhone" size="20" maxlength="30">
          <font class="body"><small>
          <br>(As appears on the back of credit card or billing statement)
          </small></font>
          </td>
        </tr>
-->
      </table>
      </td>
    </tr>
	<%End If%>
    <tr>
      <td style="border: 1px solid #0080FF" align="right" class="body">
<!--
	  <input type="checkbox" name="Agreement">&nbsp; 
	  Please read and agree with our 
	  <a href="JavaScript:CreatePopup('agreement.htm', 'Agreement')">Terms and Conditions</a>.
-->
	<table border="0">
        <tr>
          <td align="center"><a class="category" href="JavaScript:SubmitForm()">Apply Now</a></td>
          <td width="10" class="category">|</td>
          <td align="center" class="category"><a class="category" href="JavaScript:GoBack()">Go Back</a>
		  <script language="JavaScript">if (window.opener == null) document.write('&nbsp;|&nbsp;<a class="category" href="<%=HOME_PAGE%>">Home Page</a>');</script>
		  </td>
        </tr>
      </table>
      </td>
    </tr>
  </table>

  </center></div>
</form>
<%End If%>

<hr size="1" noshade color="#000000" align="center">
<div align="left">
<table border="0">
  <tr>
    <td>&nbsp; </td>
    <td>
		Thanks for choosing Adultery - we really appreciate your custom. </td>
  </tr>
</table>
</div>

</body>
</html>
<%CloseDatabase%>