<% @ Language="VBSCRIPT" %>
<% Option Explicit %>
<!--#include file="functions.asp"-->

<%

On Error Resume Next

rem - get the action that is to be performed
Dim lcAction
lcAction = Trim(Request.QueryString("action"))

rem - dimension our variables first
Dim lvId, lcDesc, lvDate, lcEventLst, lcEventId, lcAcceptTerms, llAcceptTerms
Dim lcTitle, lcLastName, lcFirstName, lcAddress1, lcAddress2, lcCity, lcState, lcZip, lcPhone1, lcPhone2, lcEmail, lcPmtMethod, lcEmergCont, lcEmergPhone1, lcEmergPhone2, lnBirthMonth, lnBirthDay, lcBMonth, lcBDay
Dim llError, llShowPage, llIncomplete, llPhone1Error, llPhone2Error, llEPhone1Error, llEPhone2Error, lcDateRegistered, oConn, cConnect, ors, lcSQLString, lnDups, lcDupCheck, i, lcOptions, lcHowHeard, llShowPmtDD, lcPmtInfo, lcPmtOption, lcPmtPlan

lcDupCheck     = "false"
llError        = False
llShowPage     = False
llIncomplete   = False
llPhone1Error  = False
llPhone2Error  = False
llEPhone1Error = False
llEPhone2Error = False
llAcceptTerms  = False
llShowPmtDD    = False

rem default the event id to blank
lcEventId = "0"

rem set a session flag so we know that the user is in the registration form when they attempt to
rem access the list of members
  Session("registering") = "true"

If lcAction = "validate" Or lcAction = "getevent" Then

  rem - user either selected an event or clicked the register button so check if everything is there...
  
  lcTitle       = Trim(Request.Form("title"))
  lcEventId     = Trim(Request.Form("lsteventid"))
  lcLastName    = Trim(Request.Form("last_name"))
  lcFirstName   = Trim(Request.Form("first_name"))
  lcAddress1    = Trim(Request.Form("address1") )
  lcAddress2    = Trim(Request.Form("address2"))
  lcCity        = Trim(Request.Form("city"))
  lcState       = Trim(Request.Form("state"))
  lcZip         = Trim(Request.Form("zip"))
  lcPhone1      = Trim(Request.Form("phone1"))
  lcPhone2      = Trim(Request.Form("phone2"))

  lcEmail       = Trim(Request.Form("email"))
  lcPmtMethod   = Request.Form("pmt_method")  
  lcEmergCont   = Trim(Request.Form("emerg_contact"))
  lcEmergPhone1 = Request.Form("emerg_phone1")  
  lcEmergPhone2 = Request.Form("emerg_phone2")  

  lnBirthMonth  = Request.Form("birth_month")
  lnBirthDay    = Request.Form("birth_day")

  lcAcceptTerms = Trim(Request.Form("opt_rt"))
  lcHowHeard    = Trim(Request.Form("how_heard"))
  lcPmtOption   = Trim(Request.Form("pmtoption"))
  
  rem - if we're validating the data, check for duplicates 
  If lcAction = "validate" AND (lcLastName <> "" And lcFirstName <> "") Then
    lcSQLString = "SELECT COUNT(*) AS 'dups' FROM sr_signups WHERE event_no = " & lcEventId & " AND last_name = '" & CleanValue(lcLastName, False) & "' AND first_name = '" & CleanValue(lcFirstName, False) & "'"
    Set oConn = Server.CreateObject("ADODB.connection")

    If TypeName(oConn) = "Nothing" then
      llError = True
    End If  

    If llError = False Then
      cConnect = Application("connection_string")
      oConn.Open cConnect
      If oConn.State <> &H00000001 Then
        llError = True
      End If
    End If
  
    If llError = False Then
      Set ors = oConn.Execute(lcSQLString )
      If TypeName(ors) = "Nothing" Then
        llError = True
      Else
        rem - check if the count is not zero
        lnDups = ors.Fields("dups").value
        If lnDups <> 0 Then
          rem - we got a dup! pass a "true" value to the error page
          llShowPage = False
          lcDupCheck = "true" 
        End If
      End If
      ors.Close()
      Set ors = Nothing
    End If
    oConn.Close  
    Set oConn = Nothing
 
  End If

  rem - if we're validating, make sure required fields are entered
  if lcAction = "validate" AND lcDupCheck = "false" then

    rem - first check the name and address
    If lcLastName = "" Or lcFirstName = "" Or _
       lcAddress1 = "" Or lcCity = "" Or lcState = "" Or _
       lcZip = "" Or Not MyIsNumber(lcZip) Or Len(lcZip) <> 5 Or _
       lcHowHeard = "" Or _
       lcPhone1 = "" Or lcEmail = "" Then
       
       llIncomplete = True
       llShowPage   = True
    End If
    If lcEventId = "" Or lcEventId = "0" Then
      llIncomplete = True
      llShowPage   = True
    End If
    
    rem check the emergency contact
    If lcEmergCont = "" Or lcEmergPhone1 = "" Then
       llIncomplete = True
       llShowPage   = True
    End If
    
    rem - make sure the phone numbers are valid
    If llIncomplete = False Then
      If Len(lcPhone1) <> 10 Then
        If Len(lcPhone1) <> 12 Or Mid(lcPhone1, 4, 1) <> "-" Or Mid(lcPhone1, 8, 1) <> "-" Then
          llIncomplete  = True
          llShowPage    = True
          llPhone1Error = True
        End If
      End If
      If Len(lcEmergPhone1) <> 10 Then
        If Len(lcEmergPhone1) <> 12 Or Mid(lcEmergPhone1, 4, 1) <> "-" Or Mid(lcEmergPhone1, 8, 1) <> "-" Then
          llIncomplete   = True
          llShowPage     = True
          llEPhone1Error = True
        End If
      End If
    End If

    rem - make sure the second phone number is valid
    If Len(lcPhone2) <> 10 Then
      If Len(lcPhone2) <> 12 Or Mid(lcPhone2, 4, 1) <> "-" Or Mid(lcPhone2, 8, 1) <> "-" Then
        llIncomplete  = True
        llShowPage    = True
        llPhone2Error = True
      End If
    End If

    rem - make sure the second emergency phone number is valid
    If Len(lcEmergPhone2) <> 10 Then
      If Len(lcEmergPhone2) <> 12 Or Mid(lcEmergPhone2, 4, 1) <> "-" Or Mid(lcEmergPhone2, 8, 1) <> "-" Then
        llIncomplete   = True
        llShowPage     = True
        llEPhone2Error = True
      End If
    End If

    rem check the payment method
    If lcPmtMethod = "" Then
       llIncomplete = True
       llShowPage   = True
    End If

    rem check the payment option
    If lcPmtOption = "Not Selected" Then
       llIncomplete = True
       llShowPage   = True
    End If

    rem make sure the user accepts the terms
    If lcAcceptTerms <> "A" Then
       llIncomplete = True
       llShowPage   = True
       llAcceptTerms = True
    End If
    
    rem - if we have all the data, go ahead and save
    If llIncomplete = False Then
      Set oConn = Server.CreateObject("ADODB.connection")

      If TypeName(oConn) = "Nothing" then
        llError = True
      End If  

      If llError = False Then
        cConnect = Application("connection_string")
        oConn.Open cConnect
        If oConn.State <> &H00000001 Then
          llError = True
        End If
      End If

      rem - save the registered datetime, last name, first name values so we can pass it to our confirmation page
      lcDateRegistered = FormatDateTime(DateAdd("h",-3,Now))
      
      rem - cstr will convert a zero to a blank so we need to make sure we save it as a zero to avoid sql errors
      If lnBirthMonth = 0 Then
        lcBMonth = "0"
      Else 
        lcBMonth = CStr(lnBirthMonth)
      End If
      If lnBirthDay = 0 Then
        lcBDay = "0"
      Else
        lcBDay   = CStr(lnBirthDay)
      End if
  
      rem - write our INSERT string      
      lcSQLString = "INSERT INTO sr_signups (event_no, title, last_name, first_name, address1, address2, city, state, zip, phone1, phone2, email, pmt_method, emerg_contact," & _
                    "emerg_phone1, emerg_phone2, birth_month, birth_day, signup_date, verified, how_heard, pmt_option) VALUES (" &_
      "" & lcEventId & "," &_
      "'" & Trim(CleanValue(lcTitle, False)) & "'," &_
      "'" & Trim(CleanValue(lcLastName, False)) & "'," &_
      "'" & Trim(CleanValue(lcFirstName, False)) & "'," &_
      "'" & Trim(CleanValue(lcAddress1, False)) & "'," &_
      "'" & Trim(CleanValue(lcAddress2, False)) & "'," &_      
      "'" & Trim(CleanValue(lcCity, False)) & "'," &_
      "'" & Trim(CleanValue(lcState, False)) & "'," &_      
      "'" & Trim(CleanValue(lcZip, False)) & "'," &_
      "'" & Trim(CleanValue(lcPhone1, True)) & "'," &_
      "'" & Trim(CleanValue(lcPhone2, True)) & "'," &_
      "'" & Trim(CleanValue(lcEmail, False)) & "'," &_
      "'" & Trim(lcPmtMethod) & "'," &_      
      "'" & Trim(CleanValue(lcEmergCont, False)) & "'," &_      
      "'" & Trim(CleanValue(lcEmergPhone1, True)) & "'," &_
      "'" & Trim(CleanValue(lcEmergPhone2, True)) & "'," &_
      "" & lcBMonth & "," &_
      "" & lcBDay & "," &_
      "'" & lcDateRegistered & "', 'N'," &_
      "'" & Trim(CleanValue(lcHowHeard, False)) & "'," &_            
      "'" & Trim(CleanValue(lcPmtOption, False)) & "' )"                  
      
      If llError = False Then
        oConn.Execute( lcSQLString)
        oConn.Close
      End If
      
      rem if no errors, go back to the menu     
      If llError = False then
         lcLastName = lcLastName & ", " & lcFirstName
         Response.Redirect "confirm.asp?reg=" & lcDateRegistered & "&RegName=" & lcLastName & "&error=false"
      End If
    End If
  end if

  rem if this post is caused by user selecting an event, get payment options
  If (lcAction = "getevent" or lcAction = "validate") and lcDupCheck = "false" Then
    llShowPage = True

    lcSQLString = "SELECT event_fee, pmt_option1, pmt_option2, pmt_option3, pmt_option4, pmt_option5, pmt_plan FROM sr_event WHERE record_id = " & lcEventId
    Set oConn = Server.CreateObject("ADODB.connection")
    If TypeName(oConn) = "Nothing" then
      llError = True
    End If  

    If llError = False Then
      cConnect = Application("connection_string")
      oConn.Open cConnect
      If oConn.State <> &H00000001 Then
        llError = True
      End If
    End If
  
    If llError = False Then
      Set ors = oConn.Execute(lcSQLString )

      If TypeName(ors) = "Nothing" Then
        llError = True
      Else
        rem get the payment information
        lcPmtPlan = Trim(ors.Fields("pmt_plan").value)
        
        If Trim(ors.Fields("pmt_option2").value) = "" Then
          rem there's only one option so hard code it
          lcPmtInfo = Trim(ors.Fields("pmt_option1").value)
        Else
          rem there are multiple options so build a dropdown list
          lcPmtInfo = "<select class=ReqTextFld style=""width: 295px"" onfocus=""window.status='Select your payment option';"" name='pmtoption'>"

          lcPmtInfo = lcPmtInfo & "<option value='Not Selected'>-- Select Your Payment Option --</option>"
          if lcPmtOption = Trim(ors.Fields("pmt_option1").value) Then
            lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option1").value) & "' selected>" & Trim(ors.Fields("pmt_option1").value) & "</option>"          
          else
            lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option1").value) & "'>" & Trim(ors.Fields("pmt_option1").value) & "</option>"
          end if
          
          if lcPmtOption = Trim(ors.Fields("pmt_option2").value) Then          
            lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option2").value) & "' selected>" & Trim(ors.Fields("pmt_option2").value) & "</option>"
          else
            lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option2").value) & "'>" & Trim(ors.Fields("pmt_option2").value) & "</option>"          
          end if
          
          if Trim(ors.Fields("pmt_option3").value) <> "" Then
            if lcPmtOption = Trim(ors.Fields("pmt_option3").value) Then                                
              lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option3").value) & "' selected>" & Trim(ors.Fields("pmt_option3").value) & "</option>"          
            else
              lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option3").value) & "'>" & Trim(ors.Fields("pmt_option3").value) & "</option>"                      
            end if
          End If
          if Trim(ors.Fields("pmt_option4").value) <> "" Then
            if lcPmtOption = Trim(ors.Fields("pmt_option4").value) Then
              lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option4").value) & "' selected>" & Trim(ors.Fields("pmt_option4").value) & "</option>"                      
            else
              lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option4").value) & "'>" & Trim(ors.Fields("pmt_option4").value) & "</option>"          
            end if
          End If
          if Trim(ors.Fields("pmt_option5").value) <> "" Then
            if lcPmtOption = Trim(ors.Fields("pmt_option5").value) Then
              lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option5").value) & "' selected>" & Trim(ors.Fields("pmt_option5").value) & "</option>"                      
            else          
              lcPmtInfo = lcPmtInfo & "<option value='" & Trim(ors.Fields("pmt_option5").value) & "'>" & Trim(ors.Fields("pmt_option5").value) & "</option>"          
            end if
          End If
          lcPmtInfo = lcPmtInfo & "</select>"          
          
          llShowPmtDD = True  
        End If

      End If

      ors.Close()
      Set ors = Nothing      
    End If
    oConn.Close  
    Set oConn = Nothing
  End if
    
Else
  rem - we're loading the page for the first time, we need to initialize variables for the form
  llShowPage = True

  rem - initialize variables
  lcTitle       = ""
  lcLastName    = ""
  lcFirstName   = ""
  lcAddress1    = ""
  lcAddress2    = ""
  lcCity        = ""
  lcState       = ""
  lcZip         = ""
  lcPhone1      = ""
  lcPhone2      = ""
  lcEmail       = ""
  lcPmtMethod   = ""
  lcEmergCont   = ""
  lcEmergPhone1 = ""
  lcEmergPhone2 = ""
  lnBirthMonth  = 0
  lnBirthDay    = 0
  lcPmtOption   = ""
  
End if

if llShowPage = True Then
  rem we need to build the list of events
  rem - FIRST, get a list of events, display in a dropdown
  lcSQLString = "SELECT record_id, descriptn, event_date FROM sr_event WHERE event_completed <> 'Y' AND remove_rec <> 'Y' ORDER BY event_date DESC"
  
  Set oConn = Server.CreateObject("ADODB.connection")

  If TypeName(oConn) = "Nothing" then
    llError = True
  End If  

  If llError = False Then
    cConnect = Application("connection_string")
    oConn.Open cConnect
    If oConn.State <> &H00000001 Then
      llError = True
    End If
  End If
  
  If llError = False Then
    Set ors = oConn.Execute(lcSQLString )
    If TypeName(ors) = "Nothing" Then
      llError = True
    Else
      rem add an option to the drop down to ask the user to select an option
      If lcEventId = "0" Then
        lcEventLst = "<option value='0' selected> </option>"
      Else
        lcEventLst = "<option value='0'> </option>"      
      End If

      rem - read in the values, first get the unverified signups
      ors.MoveFirst()
      Do Until ors.Eof
        lvId   = CStr(ors.Fields("record_id").value)
        lcDesc = Trim(ors.Fields("descriptn").value)
        lvDate = CStr(FormatDateTime(ors.Fields("event_date").value,2))
        
        If lvId = lcEventId Then        
          lcEventLst = lcEventLst & "<option value='" & lvId & "' selected>" & lcDesc & "&nbsp&nbsp [" & lvDate & "]</option>"
        Else
          lcEventLst = lcEventLst & "<option value='" & lvId & "'>" & lcDesc & "&nbsp&nbsp [" & lvDate & "]</option>"        
        End If        
        
        ors.MoveNext()
      Loop
      ors.Close()
      Set ors = Nothing
    End If
  End If

  oConn.Close  
  Set oConn = Nothing
  rem - if we got an error, show an error page instead of the registration form
  If llError Then
    llShowPage = False
  End If
End if  


If llShowPage = False Then 
  Response.Redirect "confirm.asp?error=true&dupcheck=" & lcDupCheck
Else
  
%>


<HTML>
<HEAD>
<title>Scrapbook Royalty</title>
<link rel=stylesheet href="../code/mystyle.css" type="text/css"></link>

<script type="text/javascript">
<!--

function ReadTerms()
{
 if (document.reg_form.opt_rt[0].checked) 
 {
 document.reg_form.MySubmit.Disabled = false ;
 
 }
 else
 {
  document.reg_form.MySubmit.Disabled = true ;
 }
 
  
return true;

}

function GetEvent()
{
  // alter the action when the event dropdown onchange event fires
  document.reg_form.action = "register.asp?action=getevent";
  document.reg_form.submit();
}


//-->

</script>
</HEAD>

<BODY background="../images/bg_stripe.gif" bgcolor="#FFFFFF" leftmargin=10 topmargin=11 marginwidth=10 marginheight=10>

<form name="reg_form" method="post" action= "register.asp?action=validate">

<table align="center" bgcolor="FFFFFF" style="border: 1px solid #DBB7FF" width="700" height="650" cellpadding=0 cellspacing=0>
  <tr height=115>
    <td colspan=7 valign="top" align="center" width="100%"><img height=109 width="423" src="../images/header.jpg"></td>
  </tr>

  <tr height=23 bgColor="#DBB7FF" align="center">
    <td width=65 height="21"><h5 class="mnu" ><a href="http://www.scrapbookroyalty.com/index.html">Home</a></h5></td>
    <td width=145 NOWRAP='''' height="21"><h5 class="mnu" ><a href="http://www.scrapbookroyalty.com/events.html">Events</a></h5></td>
    <td width=155 height="21"><h5 class="mnu" ><a href="register.asp">Registration</a></h5></td>
    <td width=110 height="21"><h5 class="mnu" ><a href="http://www.scrapbookroyalty.com/sponsors.html">Sponsors</a></h5></td>
    <td width=90 height="21"><h5 class="mnu" ><a href="http://www.scrapbookroyalty.com/contact.html">Contact</a></h5></td>
    <td width=135 height="21"><h5 class="mnu" ><a href="http://www.scrapbookroyalty.com/past_events.html">Past Events</a></h5></td>    
  </tr>

  <tr height=10>
    <td colspan=7>&nbsp;</td>
  </tr>

  <tr height=665 valign="top">
    <td colspan=7>
      <div id="register">
          <table align="center" bgcolor="#FFFFFF" border=0 width="545" height="100%" cellpadding=0 cellspacing=0>
          <tr>
            <td colspan=2><h4 class="bold">Registration Form</h4></td>
          </tr>

          <tr>
           <% If llIncomplete = True and lcEventId = "0" Then %>
             <td width="190"><h3 class="alert">Event:</h3></td>
             <td><select class="ReqTextFld" style="width: 395px" onFocus="window.status='Select event you wish to join';" onChange="GetEvent();" name='lsteventid'><% =lcEventLst %> </select></td>

           <% else %>
             <td width="190"><h3>Event:</h3></td>
             <td><select class="ReqTextFld" style="width: 395px" onFocus="window.status='Select event you wish to join';" onChange="GetEvent();" name='lsteventid'><% =lcEventLst %> </select></td>
           <% end if %>
           </tr>

           <tr>
             <td width="170"><h3 class="notreq">Title:</h3></td>
             <td>
             <select class="ReqTextFld" style="width: 248px" onFocus="window.status='Select your title';" name='title'>
             <%
             Dim arrTitle(19,2)
             lcOptions = ""
             arrTitle(1,1) = "-- Select Your Title --"
             arrTitle(1,2) = ""             
             arrTitle(2,1) = "Archduchess"
             arrTitle(2,2) = "Archduchess"             
             arrTitle(3,1) = "Baroness"
             arrTitle(3,2) = "Baroness"             
             arrTitle(4,1) = "Countess"
             arrTitle(4,2) = "Countess"             
             arrTitle(5,1) = "Court Jester"
             arrTitle(5,2) = "Court Jester"             
             arrTitle(6,1) = "Duchess"
             arrTitle(6,2) = "Duchess"             
             arrTitle(7,1) = "Diva"
             arrTitle(7,2) = "Diva"             
             arrTitle(8,1) = "Empress"
             arrTitle(8,2) = "Empress"             
             arrTitle(9,1) = "Grand Duchess"
             arrTitle(9,2) = "Grand Duchess"             
             arrTitle(10,1) = "Lady"
             arrTitle(10,2) = "Lady"             
             arrTitle(11,1) = "Lady in Waiting"
             arrTitle(11,2) = "Lady in Waiting"             
             arrTitle(12,1) = "Madame"
             arrTitle(12,2) = "Madame"             
             arrTitle(13,1) = "Marchioness"
             arrTitle(13,2) = "Marchioness"             
             arrTitle(14,1) = "Princess"
             arrTitle(14,2) = "Princess"             
             arrTitle(15,1) = "Princess in Training"
             arrTitle(15,2) = "Princess in Training"             
             arrTitle(16,1) = "Queen"
             arrTitle(16,2) = "Queen"             
             arrTitle(17,1) = "Serf"
             arrTitle(17,2) = "Serf"             
             arrTitle(18,1) = "Tsarina"
             arrTitle(18,2) = "Tsarina"             
             arrTitle(19,1) = "Viscountess"
             arrTitle(19,2) = "Viscountess"
             
             FOR i = 1 TO 19
               If lcTitle = arrTitle(i,1) Then
                 lcOptions = lcOptions & "<option selected value='" & arrTitle(i,2) & "'>" & arrTitle(i,1) & "</option>"
               else
                 lcOptions = lcOptions & "<option value='" & arrTitle(i,2) & "'>" & arrTitle(i,1) & "</option>"
               end if
             NEXT
             %>
             <% =lcOptions %>
             
             </select>
           </tr>
          
          <tr>
           <% If llIncomplete = True and lcFirstName = "" Then %>
             <td width="170"><h3 class="alert">First Name:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your first name';" type="text" name="first_name" size="39" maxlength="30" value="<%=lcFirstName %>"></td>
           <% else %>
             <td width="170"><h3>First Name:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your first name';" type="text" name="first_name" size="39" maxlength="30" value="<%=lcFirstName %>"></td>
           <% end if %>
           </tr>
           <tr>
           <% If llIncomplete = True and lcLastName = "" Then %>
             <td width="170"><h3 class="alert">Last Name:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your last name';" type="text" name="last_name" size="39" maxlength="30" value="<%=lcLastName %>"></td>
           <% else %>
             <td width="170"><h3>Last Name:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your last name';" type="text" name="last_name" size="39" maxlength="30" value="<%=lcLastName %>"></td>
           <% end if %>
           </tr>
           <tr>
           <% If llIncomplete = True and lcAddress1 = "" Then %>
             <td width="170"><h3 class="alert">Address Line 1:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your street address';" type="text" name="address1" size="39" maxlength="50" value="<%=lcAddress1 %>"></td>
           <% else %>
             <td width="170"><h3>Address Line 1:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your street address';" type="text" name="address1" size="39" maxlength="50" value="<%=lcAddress1 %>"></td>
           <% end if %>
           </tr>
           <tr>
             <td width="170"><h3 class="notreq">Address Line 2:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your street address';" type="text" name="address2" size="39" maxlength="50" value="<%=lcAddress2 %>"></td>
           </tr>
           <tr>
           <% If llIncomplete = True and lcCity = "" Then %>
             <td width="170"><h3 class="alert">City:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your city';" type="text" name="city" size="39" maxlength="35" value="<%=lcCity %>"></td>
           <% else %>
             <td width="170"><h3>City:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your city';" type="text" name="city" size="39" maxlength="35" value="<%=lcCity %>"></td>
           <% end if %>
           </tr>
           <tr>
             <td width="170"><h3>State:</h3></td>
             <td>
             <select class="ReqTextFld" style="width: 248px" onFocus="window.status='Select your state';" name='state'>
             <%
             Dim arrStates(51,2)
             lcOptions = ""
            arrStates(1,1) = "California"
            arrStates(1,2) = "CA"
            arrStates(2,1) = "Alabama"
            arrStates(2,2) = "AL"
            arrStates(3,1) = "Alaska"
            arrStates(3,2) = "AK"
            arrStates(4,1) = "Arizona"
            arrStates(4,2) = "AZ"
            arrStates(5,1) = "Arkansas"
            arrStates(5,2) = "AR"
            arrStates(6,1) = "Colorado"
            arrStates(6,2) = "CO"
            arrStates(7,1) = "Connecticut"
            arrStates(7,2) = "CT"
            arrStates(8,1) = "Delaware"
            arrStates(8,2) = "DE"
            arrStates(9,1) = "District of Columbia"
            arrStates(9,2) = "DC"
            arrStates(10,1) = "Florida"
            arrStates(10,2) = "FL"
            arrStates(11,1) = "Georgia"
            arrStates(11,2) = "GA"
            arrStates(12,1) = "Hawaii"
            arrStates(12,2) = "HI"
            arrStates(13,1) = "Idaho"
            arrStates(13,2) = "ID"
            arrStates(14,1) = "Illinois"
            arrStates(14,2) = "IL"
            arrStates(15,1) = "Indiana"
            arrStates(15,2) = "IN"
            arrStates(16,1) = "Iowa"
            arrStates(16,2) = "IA"
            arrStates(17,1) = "Kansas"
            arrStates(17,2) = "KS"
            arrStates(18,1) = "Kentucky"
            arrStates(18,2) = "KY"
            arrStates(19,1) = "Louisiana"
            arrStates(19,2) = "LA"
            arrStates(20,1) = "Maine"
            arrStates(20,2) = "ME"
            arrStates(21,1) = "Maryland"
            arrStates(21,2) = "MD"
            arrStates(22,1) = "Massachusetts"
            arrStates(22,2) = "MA"
            arrStates(23,1) = "Michigan"
            arrStates(23,2) = "MI"
            arrStates(24,1) = "Minnesota"
            arrStates(24,2) = "MN"
            arrStates(25,1) = "Mississippi"
            arrStates(25,2) = "MS"
            arrStates(26,1) = "Missouri"
            arrStates(26,2) = "MO"
            arrStates(27,1) = "Montana"
            arrStates(27,2) = "MT"
            arrStates(28,1) = "Nebraska"
            arrStates(28,2) = "NE"
            arrStates(29,1) = "Nevada"
            arrStates(29,2) = "NV"
            arrStates(30,1) = "New Hampshire"
            arrStates(30,2) = "NH"
            arrStates(31,1) = "New Jersey"
            arrStates(31,2) = "NJ"
            arrStates(32,1) = "New Mexico"
            arrStates(32,2) = "NM"
            arrStates(33,1) = "New York"
            arrStates(33,2) = "NY"
            arrStates(34,1) = "North Carolina"
            arrStates(34,2) = "NC"
            arrStates(35,1) = "North Dakota"
            arrStates(35,2) = "ND"
            arrStates(36,1) = "Ohio"
            arrStates(36,2) = "OH"
            arrStates(37,1) = "Oklahoma"
            arrStates(37,2) = "OK"
            arrStates(38,1) = "Oregon"
            arrStates(38,2) = "OR"
            arrStates(39,1) = "Pennsylvania"
            arrStates(39,2) = "PA"
            arrStates(40,1) = "Rhode Island"
            arrStates(40,2) = "RI"
            arrStates(41,1) = "South Carolina"
            arrStates(41,2) = "SC"
            arrStates(42,1) = "South Dakota"
            arrStates(42,2) = "SD"
            arrStates(43,1) = "Tennessee"
            arrStates(43,2) = "TN"
            arrStates(44,1) = "Texas"
            arrStates(44,2) = "TX"
            arrStates(45,1) = "Utah"
            arrStates(45,2) = "UT"
            arrStates(46,1) = "Vermont"
            arrStates(46,2) = "VT"
            arrStates(47,1) = "Virginia"
            arrStates(47,2) = "VA"
            arrStates(48,1) = "Washington"
            arrStates(48,2) = "WA"
            arrStates(49,1) = "West Virginia"
            arrStates(49,2) = "WV"
            arrStates(50,1) = "Wisconsin"
            arrStates(50,2) = "WI"
            arrStates(51,1) = "Wyoming"
            arrStates(51,2) = "WY"
                                                                                                                                                 
            FOR i = 1 TO 51
              If lcState = arrStates(i,2) Then
                lcOptions = lcOptions & "<option selected value='" & arrStates(i,2) & "'>" & arrStates(i,1) & "</option>"
              else
                lcOptions = lcOptions & "<option value='" & arrStates(i,2) & "'>" & arrStates(i,1) & "</option>"
              end if
            NEXT
            %>
            <% =lcOptions %>
             </select> 
             </td>
           </tr>
           <tr>
           <% If llIncomplete = True and (lcZip = "" Or Len(lcZip) <> 5) Then %>
             <td width="170"><h3 class="alert">Zip Code:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your zip code';" type="text" name="zip" size="39" maxlength="5" value="<%=lcZip %>"></td>
           <% else %>
             <td width="170"><h3>Zip Code:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your zip code';" type="text" name="zip" size="39" maxlength="5" value="<%=lcZip %>"></td>
           <% end if %>
           </tr>

           <tr>
           <% If llIncomplete = True And (lcPhone1 = "" Or llPhone1Error = True) Then %>
             <td width="170"><h3 class="alert">Home Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your home phone';" type="text" name="phone1" size="16" maxlength="12" value="<%=lcPhone1 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% else %>
             <td width="170"><h3>Home Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your hone phone';" type="text" name="phone1" size="16" maxlength="12" value="<%=lcPhone1 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% end if %>
           </tr>
 
           <tr>
           <% If llIncomplete = True And llPhone2Error = True Then %>
             <td width="170"><h3 class="alert">Alternate Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter a second phone number';" type="text" name="phone2" size="16" maxlength="12" value="<%=lcPhone2 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% else %>
             <td width="170"><h3>Alternate Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter a second phone number';" type="text" name="phone2" size="16" maxlength="12" value="<%=lcPhone2 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% end if %>
           </tr>
           
           <tr>
           <% If llIncomplete = True and lcEmail = "" Then %>
             <td width="170"><h3 class="alert">Email:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your email address';" type="text" name="email" size="39" maxlength="35" value="<%=lcEmail %>"></td>
           <% else %>
             <td width="170"><h3>Email:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your email address';" type="text" name="email" size="39" maxlength="35" value="<%=lcEmail %>"></td>
           <% end if %>
           </tr>

           <tr>
             <td width="170"><h3 class="notreq">Birthday Month:</h3></td>
             <td>
             <select class="ReqTextFld" style="width: 248px" onFocus="window.status='Select your birthday month';" name='birth_month'>
             <%
             Dim arrMonth(13,2)
             lcOptions = ""
             arrMonth(1,1) = "-- Select Your Birthday Month --"
             arrMonth(1,2) = " "
             arrMonth(2,1) = "January"
             arrMonth(2,2) = "01"
             arrMonth(3,1) = "February"
             arrMonth(3,2) = "02"
             arrMonth(4,1) = "March"
             arrMonth(4,2) = "03"
             arrMonth(5,1) = "April"
             arrMonth(5,2) = "04"
             arrMonth(6,1) = "May"
             arrMonth(6,2) = "05"
             arrMonth(7,1) = "June"
             arrMonth(7,2) = "06"
             arrMonth(8,1) = "July"
             arrMonth(8,2) = "07"
             arrMonth(9,1) = "August"
             arrMonth(9,2) = "08"
             arrMonth(10,1) = "September"
             arrMonth(10,2) = "09"
             arrMonth(11,1) = "October"
             arrMonth(11,2) = "10"
             arrMonth(12,1) = "November"
             arrMonth(12,2) = "11"
             arrMonth(13,1) = "December"
             arrMonth(13,2) = "12"

             FOR i = 1 TO 13
               If lnBirthMonth = CInt(arrMonth(i,2)) Then
                 lcOptions = lcOptions & "<option selected value='" & arrMonth(i,2) & "'>" & arrMonth(i,1) & "</option>"
               else
                 lcOptions = lcOptions & "<option value='" & arrMonth(i,2) & "'>" & arrMonth(i,1) & "</option>"

               end if
             NEXT
             %>
             <% =lcOptions %>
             
             </select>
           </tr>
           <tr>
             <td width="170"><h3 class="notreq">Birthday Day:</h3></td>
             <td>
             <select class="ReqTextFld" style="width: 248px" onFocus="window.status='Select your birthday day';" name='birth_day'>
             <%
             Dim arrYear(32,2)
             lcOptions = ""
             arrYear(1,1) = "-- Select Your Birthday Day --"
             arrYear(1,2) = " "
             arrYear(2,1) = "1"
             arrYear(2,2) = "1"
             arrYear(3,1) = "2"
             arrYear(3,2) = "2"
             arrYear(4,1) = "3"
             arrYear(4,2) = "3"
             arrYear(5,1) = "4"
             arrYear(5,2) = "4"
             arrYear(6,1) = "5"
             arrYear(6,2) = "5"
             arrYear(7,1) = "6"
             arrYear(7,2) = "6"
             arrYear(8,1) = "7"
             arrYear(8,2) = "7"
             arrYear(9,1) = "8"
             arrYear(9,2) = "8"
             arrYear(10,1) = "9"
             arrYear(10,2) = "9"
             arrYear(11,1) = "10"
             arrYear(11,2) = "10"
             arrYear(12,1) = "11"
             arrYear(12,2) = "11"
             arrYear(13,1) = "12"
             arrYear(13,2) = "12"
             arrYear(14,1) = "13"
             arrYear(14,2) = "13"
             arrYear(15,1) = "14"
             arrYear(15,2) = "14"
             arrYear(16,1) = "15"
             arrYear(16,2) = "15"
             arrYear(17,1) = "16"
             arrYear(17,2) = "16"
             arrYear(18,1) = "17"
             arrYear(18,2) = "17"
             arrYear(19,1) = "18"
             arrYear(19,2) = "18"
             arrYear(20,1) = "19"
             arrYear(20,2) = "19"
             arrYear(21,1) = "20"
             arrYear(21,2) = "20"
             arrYear(22,1) = "21"
             arrYear(22,2) = "21"
             arrYear(23,1) = "22"
             arrYear(23,2) = "22"
             arrYear(24,1) = "23"
             arrYear(24,2) = "23"
             arrYear(25,1) = "24"
             arrYear(25,2) = "24"
             arrYear(26,1) = "25"
             arrYear(26,2) = "25"
             arrYear(27,1) = "26"
             arrYear(27,2) = "26"
             arrYear(28,1) = "27"
             arrYear(28,2) = "27"
             arrYear(29,1) = "28"
             arrYear(29,2) = "28"
             arrYear(30,1) = "29"
             arrYear(30,2) = "29"
             arrYear(31,1) = "30"
             arrYear(31,2) = "30"
             arrYear(32,1) = "31"
             arrYear(32,2) = "31"

             FOR i = 1 TO 32
               If lnBirthDay = CInt(arrYear(i,2)) Then
                 lcOptions = lcOptions & "<option selected value='" & arrYear(i,2) & "'>" & arrYear(i,1) & "</option>"
               else
                 lcOptions = lcOptions & "<option value='" & arrYear(i,2) & "'>" & arrYear(i,1) & "</option>"
               end if
             NEXT
             %>
             <% =lcOptions %>

             </select>
           </tr>
           <tr height=20><td colspan=2></td></tr>

           <tr>
           <% If llIncomplete = True and lcEmergCont = "" Then %>
             <td width="170"><h3 class="alert">Emergency Contact:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your emergency contact';" type="text" name="emerg_contact" size="39" maxlength="50" value="<%=lcEmergCont %>"></td>
           <% else %>
             <td width="170"><h3>Emergency Contact:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your emergency contact';" type="text" name="emerg_contact" size="39" maxlength="50" value="<%=lcEmergCont %>"></td>
           <% end if %>
           </tr>

           <tr>
           <% If llIncomplete = True And (lcEmergPhone1 = "" Or llEPhone1Error = True) Then %>
             <td width="170"><h3 class="alert">Emergency Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your emergency phone number';" type="text" name="emerg_phone1" size="16" maxlength="12" value="<%=lcEmergPhone1 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% else %>
             <td width="170"><h3>Emergency Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your emergency phone number';" type="text" name="emerg_phone1" size="16" maxlength="12" value="<%=lcEmergPhone1 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% end if %>
           </tr>

           <tr>
           <% If llIncomplete = True And llEPhone2Error = True Then %>           
             <td width="170"><h3 class="alert">Alternate Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your alternate emergency phone number';" type="text" name="emerg_phone2" size="16" maxlength="12" value="<%=lcEmergPhone2 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% else %>
             <td width="170"><h3>Alternate Phone No:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Enter your alternate emergency phone number';" type="text" name="emerg_phone2" size="16" maxlength="12" value="<%=lcEmergPhone2 %>"><font class="FormatText">&nbsp;[999-999-9999 format]</font></td>
           <% end if %>

           <tr height=20><td colspan=2></td></tr>

           <tr>
           <% If llIncomplete = True and lcHowHeard = "" Then %>
             <td width="170"><h3 class="alert">Where Did You Hear About Us:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Where did you hear about us';" type="text" name="how_heard" size="39" maxlength="50" value="<%=lcHowHeard %>"></td>
           <% else %>
             <td width="170"><h3>Where Did You Hear About Us:</h3></td>
             <td><input class="ReqTextFld" onFocus="window.status='Where did you hear about us';" type="text" name="how_heard" size="39" maxlength="50" value="<%=lcHowHeard %>"></td>
           <% end if %>
           </tr>

           <tr>           
           <td width="170"><h3>Method of Payment:</h3></td>
           <td>
           <select class="ReqTextFld" style="width: 248px" onFocus="window.status='Select your method of payment';" name='pmt_method'>
           <option value=' '>-- Select Your Method of Payment --</option>
           <% If lcPmtMethod = "P" Then %>
             <option value='P' selected>PayPal</option>
           <% Else %>
             <option value='P'>PayPal</option>
           <% End If %>
           <% If lcPmtMethod = "C" Then %>
             <option value='C' selected>Check</option>
           <% Else %>
             <option value='C'>Check</option>
           <% End If %>
           </select>
           </td>
           </tr>

           <tr>
           <% If llIncomplete = True and lcPmtOption = "Not Selected" Then %>
             <td width="170"><h3 class="alert">Payment Option:</h3></td>
           <% else %>
             <td width="170"><h3>Payment Option:</h3></td>
           <% end if %>
           <td>

           <% if llShowPmtDD = False Then %>
           <h3><% =lcPmtInfo %></h3>
           <input type="hidden" name="pmtoption" value = "<% =lcPmtInfo %>" />
           <% Else %>
           <% =lcPmtInfo %>
           <% End If %>
           </td>
           </tr>

           <% if lcPmtPlan <> "" Then %>
           <tr>
           <td width="170"><h3>Note:</h3></td>
           <td width="375"><h3 class="mytext"><% =lcPmtPlan %></h3></td>
           </tr>
           <% end If %>
           
           <tr height=20>
           <td colspan=2><h3>Terms:</h3>
           </td>
           </tr>  
           
           <tr height=80>
           <td colspan=2>&nbsp;<textarea class="fineprint" rows=10 cols=70 readonly = true >By registering for one of our events, you agree to use reasonable care and caution when using the equipment, some of which is capable of causing severe personal injury if used improperly or carelessly.  You agree to hold Scrapbook Royalty, it's principals, employees and agent, harmless from any and all liabilities resulting from equipment usage.
           
All attendees shall understand that as an event participant, their photo may be taken at any Scrapbook Royalty event and that such photos may be used in future publicity endeavors.  By registering for a Scrapbook Royalty event, you indicate that you have reviewed this and other event policies and that you give your consent for use of these photos in any future Scrapbook Royalty promotional material and/or publicity campaigns.

No refunds will be given.  However, your registration fee is transferable up to 24 hours before the event.

Scrapbook Royalty reserves the right to cancel any event.  In the event of any such cancellation, registrants will be notified via e-mail and all paid fees will be refunded.

No one under the age of 8 may attend. Anyone under the age of 18 who registers must be accompanied by a registered adult the entire time.  Please use your best judgment when deciding to register your child.  They are more than welcome but keep in mind that most of the participants are adults.

No alcohol on the premises.</textarea>
           </td>
           </tr>  

           <tr height=20>
           <% If llAcceptTerms = True Then %>
           <td colspan=2><h3 class="alert"><input type='radio' name='opt_rt' value='A' id='rb1' onClick="ReadTerms()">Agree&nbsp;<input type='radio' name='opt_rt' value='D' id='rb2' onClick="ReadTerms()">Disagree</h3>           
           <% else %>
           <td colspan=2><h3><input type='radio' name='opt_rt' value='A' id='rb1' onClick="ReadTerms()">Agree&nbsp;<input type='radio' name='opt_rt' value='D' id='rb2' onClick="ReadTerms()">Disagree</h3>
           <% end if %>
           </td>
           </tr>  
           
           
          </table>
      </div>
    </td>
  </tr>

  <tr height=60>
  <td colspan=7>
    <table border=0, cellpadding=0 cellspacing=0 height=30 width="88%" align="center">
      <tr>
       <td><h4>Bold items must be filled in. </h4></td>
       <td align="right">
         <input style="font-family:verdana, arial, helvetica; font-size: 8pt; border-style: solid; border-color: 999999; border-width: 1pxl; background-color: e7e7e7; font-weight: 800" name="MySubmit" type="Submit" value=" Submit" >
         <input style="font-family:verdana, arial, helvetica; font-size: 8pt; border-style: solid; border-color: 999999; border-width: 1pxl; background-color: e7e7e7; font-weight: 800" type="button" value="Cancel" onClick="location.href='http://www.scrapbookroyalty.com' ">
       </td>
      </tr>
    </table>
  </td>
  </tr>
  <tr height=40><td></td></tr>
  
  <tr height=18 bgColor="#DBB7FF"><td colspan=7><h4 class="fineprint">&copy; 2010 Scrapbook Royalty</h4></td>  
</table>
</form>
</BODY>
</HTML>

<% End If %>