<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../GlobalResources/Scripts/GlobalData.asp"-->

<!--#include virtual = "\mega\Modules\Geocoin1\dataconn.asp"-->


<%


'Dynamically set the docid session variable 
Session("DocID") =  Request.QueryString("docid")

dim errorMessage, bb1, bb2, badItem, inputArray(), j, yn 
redim inputArray(50,3)	

badItem=-1
bb1=0
bb2=0

dim conn2, strsql2, rsuser2
set conn2=server.createobject("ADODB.Connection")
set rsuser2=server.createobject("ADODB.Recordset")

'direct connection

conn2.open GetTestRegConnStr
strSQL2 = "SELECT * FROM totals where ID=1"			
rsuser2.open strSQL2, conn2		

ttchild =  rsuser2("totchild")
ttadult =  rsuser2("totadult") 
ttboth =  rsuser2("totboth") 

'close resources used
rsuser2.close
conn2.close
		
'clean up
set rsuser2=nothing
set conn2=nothing
	
'=================================
'All fields are acted as required
' except those the NAME of which
' is in this string variable:
'=================================
exceptions = Array("cmments","Address2","Country","RadioGroup1")

'=================================
'NAME of the e-mail field is 
' stored in this string variable:
'=================================
emailField = "email"
emailField2 = "emailconfirm"


'=================================
'Get all what is submitted
'=================================
yn=Request.Form("updates")
IF request.Form.Count > 0 THEN
	execute("const numberOfFields =" & request.Form.Count)
	execute("redim inputArray("&numberOfFields&",3)")
	FOR i = 1 TO request.Form.Count
		inputArray(i,1) = request.Form.Key(i)
		inputArray(i,2) = request.Form.Item(i)
		inputArray(i,3) = "aa"
	NEXT
	validate
END IF


'=================================
'Check for empty fields
'=================================
SUB validate
	
	FOR i = 1 TO numberOfFields
		isException = False

		IF (inputArray(i,2)="") THEN
			FOR j = 0 to UBound(exceptions)
				IF inputArray(i,1) = exceptions(j) THEN 
				    isException = TRUE
				end if	
			NEXT
			IF NOT isException THEN
				inputArray(i,3)="blank"
				baditem=i
				errorMessage = "At least one of the required fields is left empty. "
			END IF
		END IF
		isException = False
	NEXT

    IF (inputArray(17,2)="0") THEN
		inputArray(11,3)="blank"
		inputArray(12,3)="blank"
		baditem=17
		errorMessage = "At least one of the required fields is left empty."
	end if

	'=================================
	'Check email address
	'=================================


	validationResult = isValidEmail(inputArray(2,2))
	IF validationResult <> "" THEN
		errorMessage = validationResult
		badItem = 5
		bb1=1
		inputArray(2,3)="blank"
	END IF

	validationResult = isValidEmail(inputArray(3,2))
	IF validationResult <> "" THEN
		errorMessage = validationResult
		badItem = 6
		bb2=1
		inputArray(3,3)="blank"
	END IF

	'check same address
	IF (ucase(inputArray(2,2)) <> ucase(inputArray(3,2))) and (bb1=0) and (bb2=0)  THEN
	   inputArray(3,3)="blank"
	   inputArray(2,3)="blank"
	   badItem = 6
	   bb1=2
	   bb2=2
	   errorMessage = "Different addresses"
	END IF
	
END SUB


function isValidEmail(myEmail)
' create a regular expression object
dim RegExpObject 
set RegExpObject = New RegExp

' define the regular expression pattern for a standard email address, e.g. somebody@website.com
RegExpObject.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

' test the email address and return True if it matches the regular expression pattern, otherwise return False 

  if RegExpObject.Test(myEmail)  then 
	   isValidEmail =""
	else 
        isValidEmail = "Invalid Email address"
  end if
	
end function


'=================================
'Updated details in database
'=================================
sub UpdateRegister
'initialise objects and variables
dim conn, strsql, rsuser
set conn=server.createobject("ADODB.Connection")
set rsuser=server.createobject("ADODB.Recordset")


'direct connection


conn.open GetTestRegConnStr

rsuser.CursorType = 2  'Set the cursor type we are using so we can navigate through the recordset
rsuser.LockType = 3  'Set the lock type so that the record is locked by ADO when it is updated

strSQL = "SELECT * FROM details"			
rsuser.open strSQL, conn		
rsuser.addnew 

rsuser("team")=Request.Form("name")
rsuser("email")=Request.Form("email")
rsuser("firstname")=Request.Form("firstname")
rsuser("surname")=Request.Form("secondname")
rsuser("address1")=Request.Form("address1")
rsuser("address2")=Request.Form("address2")
rsuser("town")=Request.Form("town")
rsuser("postcode")=Request.Form("postcode")
rsuser("adults")=CStr(Request.Form("noadult"))
rsuser("children")=CStr(Request.Form("nochild"))
rsuser("county")=Request.Form("county")
rsuser("country")=Request.Form("country")
rsuser("accommodation")=Request.Form("accommodation")
rsuser("nights")=CStr(Request.Form("nights"))
rsuser("cmments")=Request.Form("cmments")
rsuser("updates")=Request.Form("updates")
rsuser("dogs")=Request.Form("dogs")

rsuser("ipaddress")=Request.ServerVariables("REMOTE_ADDR")
rsuser("regdate")=FormatDateTime(now(),0)

'Write the updated recordset to the database
rsuser.Update

'close resources used
rsuser.close


strSQL = "SELECT * FROM totals where ID=1"			
rsuser.open strSQL, conn		


rsuser("totchild") =  rsuser("totchild") + Cint(Request.Form("nochild"))
rsuser("totadult") =  rsuser("totadult") + Cint(Request.Form("noadult"))
rsuser("totboth") =  rsuser("totboth") + Cint(Request.Form("nochild")) + Cint(Request.Form("noadult"))
rsuser.Update

'close resources used
rsuser.close
conn.close
		
'clean up
set rsuser=nothing
set conn=nothing

end sub


'=================================
'Send out the email as it s a good form
'=================================
sub SendEmailOut 
  crlf=chr(13) & chr(10)
  Name = Request.Form("name")
  SenderEmail="MegaScotlandRegistration@rumach.com"
  Subject = "test test test:- please ignore"
  Recipient=Request.Form("email")
  'RecipientBCC ="registration@megascotland.co.uk"
  RecipientBCC = "angus@rumach.com"
  Body="Dear " & Request.Form("firstname") & ","& crlf 
  Body =  Body & "Thank you for registering for the Mega Scotland event and the details you entered "
  Body =  Body & "are given below.  If any of them are wrong, or if your details change, then please just "
  Body =  Body & "reply back to us and we will alter them for you."  & crlf & crlf

  Body =  Body & "Nearer the date of the event we will send out your registration card along with other "
  Body =  Body & "relevant details.  Thanks once again for registering with us and we look forward to seeing you at "
  Body =  Body & "Perth."  & crlf & crlf

  Body =  Body & "kind regards, "  & crlf & crlf
  Body =  Body & "The Mega Scotland team. "  & crlf & crlf

  
	Body =  Body & "________________________________________________________________"& crlf
	Body =  Body &"From: " & Request.Form("name") & " [" & trim(Request.Form("email"))&"]"  & crlf & crlf 
	
	Body =  Body & "      " & Request.Form("firstname")& " " & Request.Form("secondname") & crlf  
	Body =  Body & "      " & Request.Form("address1")& crlf 
	if Request.Form("address2") <> "" then
	   Body =  Body & "      " & Request.Form("address2")& crlf 
	end if   
	Body =  Body & "      " & Request.Form("town")& crlf 
	Body =  Body & "      " & Request.Form("county")& crlf
	Body =  Body & "      " & Request.Form("postcode")& crlf 
	Body =  Body & "      " & Request.Form("country")& crlf & crlf
	Body =  Body & "Registered: " & CStr(Request.Form("noadult"))& " adult(s) & " & CStr(Request.Form("nochild")) & " children" & crlf & crlf	
	Body =  Body & "Accommodation: " & Request.Form("accommodation")& " for " & Request.Form("nights")& " nights." & crlf & crlf

	Body =  Body & "Dogs:  Attending with " & Request.Form("dogs")  & crlf & crlf
		  
	if Request.Form("updates") <> "Y" then
	   Body =  Body & "Updates:  No email updates to be sent" & crlf & crlf
	else
	      Body =  Body & "Updates:  Email updates to be sent" & crlf & crlf
	end if
	
	if len(Request.Form("cmments")) >1 then
	   Body =  Body & "Comments: " & Request.Form("cmments")& crlf & crlf
	else
	   Body =  Body & "Comments: " & crlf & crlf
	end if
	Body =  Body & "________________________________________________________________"
	

  if 10 > 5 then  'set test true then send the email  This is for debug purposes only
	  Set JMail = Server.CreateObject("JMail.SMTPMail") 
	  
	  ' Below you should enter your own SMTP-server 
	  JMail.ServerAddress = "smtp.rumach.com" 
	  
	  JMail.Sender = Senderemail
	  JMail.ReplyTo= SenderEmail
	  JMail.Subject = Subject 
	  
	  JMail.AddRecipient Recipient   

	  JMail.AddRecipientBCC  RecipientBCC 
	 
	  
	  JMail.Body = Body 
	  
	  JMail.Priority = 3 
	  
	  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 
	  JMail.Logging = True
	  JMail.Execute
  end if

 
end sub 

%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="sv">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Registration</title>
</head>
<style>
	.errorMessage {
		color : #F00;
	}
	.errorItem {
		background : #F99;
	}

	.style3 {color: #FFFFFF}
	   A:link {COLOR: blue; text-decoration:none }
       A:visited {COLOR: blue; text-decoration:none }
	   A:active { COLOR: blue; text-decoration:none }
	   A:hover  { COLOR: teal; text-decoration:underline}

-->
</style>
<body>
<%
IF errorMessage<>"" THEN
    ' error detected
ELSEIF request.form.count = 0 THEN
	'ensure the form is clear
	FOR j = 0 to UBound(inputArray,1)
				inputArray(j,3)=""
				inputArray(j,2)=""
				inputArray(j,1)=""
	NEXT
	badItem=-1
	
ELSE
   'To get here means that this is a vaild form so send out the email, update db etc
    
	UpdateRegister
	SendEmailOut
  
	%>
	

	<table width="100%" border="0" align="center" cellpadding="5">
  <tr>
    <td>
	<b><font size="+2">
	Registration complete.</font></b> 
	<br><br>
    <%=Request.Form("firstname")%>, thank you for registering and we will send a confirmation email to you shortly.
	</td>
	</tr>
	</table>
	</body>
	</html>
	<%
	Response.End
END IF


%>
222test test test test test test test test test test test test test test <br>
test test test test test test test test test test test test test test test <br>
test test test test test test test test test test test test test test test <br>
test test test test test test test test test test test test test test test <br>
<table width="100%" border="0" align="center" cellpadding="5">
  <tr>
    <td><p><font size="+2">Registration</font></p>
      <p align="justify">As well as logging a &quot;Will Attend&quot; note on the <a href="http://www.geocaching.com/seek/cache_details.aspx?guid=0609bb26-13a2-42ae-8dfd-30d4259e34fe" target="_blank">Mega event</a> page, we are also asking you to register here so that we have an accurate count of how many people are coming to the event and so that we can send your registration pack to you. </p>
      <p align="justify">There are also a couple of questions to do with your visit to Perthshire and these are being specifically asked by our sponsors so that they can judge the potential economic impact the event will have on the local economy.&nbsp;&nbsp;We realise that this information can only be an approximation, and is subject to change, however your responses will be gratefully appreciated.&nbsp;&nbsp;Similarly we have asked about dogs so that we can plan for sufficient facilities. </p>
      <p align="justify"><font <%IF badItem>-1 THEN response.write "class=""errorMessage"""%>>Please note that all fields are required </font>and if you make a mistake with your email 
        address then we won't be able to get back to you!&nbsp;&nbsp;</p>
      <p align="left">As per our privacy policy, your details will not be passed on to anyone.</p>
      </br>
      <form method="POST" name="registr" action="registration2.asp">
  <table width="568" border="0">
      <tr>
      <td ></td>
      <td  colspan="2"><img alt="" src="/mega/SiteResources/data/MediaArchive/images/blank346x2.gif" width="366" height="1"></td>
	</tr>
    <tr>
      <td height="40" valign="top">Your&nbsp;caching name</td>
      <td width="253" valign="top"><input type="text" name="name" size="40" id="name" value="<%=inputArray(1,2)%>" <%IF inputArray(1,3)="blank" THEN response.write "class=""errorItem"""%> /></td>
      <td width="135">&nbsp;</td>
	</tr>
    
    <tr>
      <td valign="top">Your email address</td>
      <td valign="top"><input type="text" name="email" size="40" id="email" value="<%=inputArray(2,2)%>" <%IF inputArray(2,3)="blank" THEN response.write "class=""errorItem"""%>></td>
      <td valign="top"><font face="Verdana" size="1">
	  <%IF bb1=1 THEN response.write "<p class=""errorMessage"">Invalid Email address"
	   IF bb1=2 THEN response.write "<p class=""errorMessage"">Email addresses"%></font>&nbsp;</td>
	</tr>
	<tr>
      <td height="40" valign="top">(Re-enter to confirm)</td>
      <td valign="top"><input type="text" name="emailconfirm" size="40" id="email" value="<%=inputArray(3,2)%>" <%IF inputArray(3,3)="blank" THEN response.write "class=""errorItem"""%>></td>
      <td valign="top"><font face="Verdana" size="1">
	  <%IF bb2=1 THEN response.write "<p class=""errorMessage"">Invalid Email address"
	   IF bb2=2 THEN response.write "<p class=""errorMessage"">are not identical."%></font>&nbsp;</td>
	</tr>
    <tr>
      <td>First name</td>
      <td height="26"><input name="Firstname" type="text" size="40" id="firstname" value="<%=inputArray(4,2)%>" <%IF inputArray(4,3)="blank" THEN response.write "class=""errorItem"""%>></td>
      <td>&nbsp;</td> 
	</tr>
    <tr>
      <td height="40" valign="top">Surname</td>
      <td valign="top"><input name="secondname" type="text" size="40" id="secondname" value="<%=inputArray(5,2)%>" <%IF inputArray(5,3)="blank" THEN response.write "class=""errorItem"""%> /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td valign="top">Address</td>
      <td height="26"><p>
        <input name="Address1" type="text" size="40" id="Address1" value="<%=inputArray(6,2)%>" <%IF inputArray(6,3)="blank" THEN response.write "class=""errorItem"""%> />
        <input name="Address2" type="text" size="40" id="Address2" value="<%=inputArray(7,2)%>" <%IF inputArray(7,3)="blank" THEN response.write "class=""errorItem"""%> />
</p>        </td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>Town</td>
      <td height="26"><input name="town" type="text" size="40" id="town" value="<%=inputArray(8,2)%>" <%IF inputArray(8,3)="blank" THEN response.write "class=""errorItem"""%> /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>County/State</td>
      <td height="26"><input name="county" type="text" size="40" id="county" value="<%=inputArray(9,2)%>" <%IF inputArray(9,3)="blank" THEN response.write "class=""errorItem"""%> /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>Post Code/Zip Code </td>
      <td height="26"><input name="Postcode" type="text" size="40" id="postcode" value="<%=inputArray(10,2)%>" <%IF inputArray(10,3)="blank" THEN response.write "class=""errorItem"""%> /></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="50" valign="top">Country</td>
      <td valign="top"><select name="Country">
<option selected value="United Kingdom">United Kingdom</option>
<option value="Afghanistan">Afghanistan</option>
<option value="Albania">Albania</option>
<option value="Algeria">Algeria</option>
<option value="American Samoa">American Samoa</option>
<option value="Andorra">Andorra</option>
<option value="Angola">Angola</option>
<option value="Anguilla">Anguilla</option>
<option value="Antarctica">Antarctica</option>
<option value="Antigua and Barbuda">Antigua and Barbuda</option>
<option value="Argentina">Argentina</option>
<option value="Armenia">Armenia</option>
<option value="Aruba">Aruba</option>
<option value="Australia">Australia</option>
<option value="Austria">Austria</option>
<option value="Azerbaijan">Azerbaijan</option>
<option value="Bahamas">Bahamas</option>
<option value="Bahrain">Bahrain</option>
<option value="Bangladesh">Bangladesh</option>
<option value="Barbados">Barbados</option>
<option value="Belarus">Belarus</option>
<option value="Belgium">Belgium</option>
<option value="Belize">Belize</option>
<option value="Benin">Benin</option>
<option value="Bermuda">Bermuda</option>
<option value="Bhutan">Bhutan</option>
<option value="Bolivia">Bolivia</option>
<option value="Bosnia and Herzegovina">Bosnia and Herzegovina</option>
<option value="Botswana">Botswana</option>
<option value="Bouvet Island">Bouvet Island</option>
<option value="Brazil">Brazil</option>
<option value="British Indian Ocean Territory">British Indian Ocean Territory</option>
<option value="Brunei Darussalam">Brunei Darussalam</option>
<option value="Bulgaria">Bulgaria</option>
<option value="Burkina Faso">Burkina Faso</option>
<option value="Burundi">Burundi</option>
<option value="Cambodia">Cambodia</option>
<option value="Cameroon">Cameroon</option>
<option value="Canada">Canada</option>
<option value="Cape Verde">Cape Verde</option>
<option value="Cayman Islands">Cayman Islands</option>
<option value="Central African Republic">Central African Republic</option>
<option value="Chad">Chad</option>
<option value="Chile">Chile</option>
<option value="China">China</option>
<option value="Christmas Island">Christmas Island</option>
<option value="Cocos (Keeling) Islands">Cocos (Keeling) Islands</option>
<option value="Colombia">Colombia</option>
<option value="Comoros">Comoros</option>
<option value="Congo">Congo</option>
<option value="Cook Islands">Cook Islands</option>
<option value="Costa Rica">Costa Rica</option>
<option value="Cote D'ivoire">Cote D'ivoire</option>
<option value="Croatia">Croatia</option>
<option value="Cuba">Cuba</option>
<option value="Cyprus">Cyprus</option>
<option value="Czech Republic">Czech Republic</option>
<option value="Denmark">Denmark</option>
<option value="Djibouti">Djibouti</option>
<option value="Dominica">Dominica</option>
<option value="Dominican Republic">Dominican Republic</option>
<option value="Ecuador">Ecuador</option>
<option value="Egypt">Egypt</option>
<option value="El Salvador">El Salvador</option>
<option value="Equatorial Guinea">Equatorial Guinea</option>
<option value="Eritrea">Eritrea</option>
<option value="Estonia">Estonia</option>
<option value="Ethiopia">Ethiopia</option>
<option value="Falkland Islands (Malvinas)">Falkland Islands (Malvinas)</option>
<option value="Faroe Islands">Faroe Islands</option>
<option value="Fiji">Fiji</option>
<option value="Finland">Finland</option>
<option value="France">France</option>
<option value="French Guiana">French Guiana</option>
<option value="French Polynesia">French Polynesia</option>
<option value="French Southern Territories">French Southern Territories</option>
<option value="Gabon">Gabon</option>
<option value="Gambia">Gambia</option>
<option value="Georgia">Georgia</option>
<option value="Germany">Germany</option>
<option value="Ghana">Ghana</option>
<option value="Gibraltar">Gibraltar</option>
<option value="Greece">Greece</option>
<option value="Greenland">Greenland</option>
<option value="Grenada">Grenada</option>
<option value="Guadeloupe">Guadeloupe</option>
<option value="Guam">Guam</option> 
<option value="Guatemala">Guatemala</option>
<option value="Guinea">Guinea</option>
<option value="Guinea-bissau">Guinea-bissau</option>
<option value="Guyana">Guyana</option>
<option value="Haiti">Haiti</option>
<option value="Heard Island and Mcdonald Islands">Heard Island and Mcdonald Islands</option>
<option value="Holy See (Vatican City State)">Holy See (Vatican City State)</option>
<option value="Honduras">Honduras</option>
<option value="Hong Kong">Hong Kong</option>
<option value="Hungary">Hungary</option>
<option value="Iceland">Iceland</option>
<option value="India">India</option>
<option value="Indonesia">Indonesia</option>
<option value="Iran, Islamic Republic of">Iran, Islamic Republic of</option>
<option value="Iraq">Iraq</option>
<option value="Ireland">Ireland</option>
<option value="Israel">Israel</option>
<option value="Italy">Italy</option>
<option value="Jamaica">Jamaica</option>
<option value="Japan">Japan</option>
<option value="Jordan">Jordan</option>
<option value="Kazakhstan">Kazakhstan</option>
<option value="Kenya">Kenya</option>
<option value="Kiribati">Kiribati</option>
<option value="Korea">Korea</option>
<option value="Kuwait">Kuwait</option>
<option value="Kyrgyzstan">Kyrgyzstan</option>
<option value="Lao">Lao</option>
<option value="Latvia">Latvia</option>
<option value="Lebanon">Lebanon</option>
<option value="Lesotho">Lesotho</option>
<option value="Liberia">Liberia</option>
<option value="Libyan Arab Jamahiriya">Libyan Arab Jamahiriya</option>
<option value="Liechtenstein">Liechtenstein</option>
<option value="Lithuania">Lithuania</option>
<option value="Luxembourg">Luxembourg</option>
<option value="Macao">Macao</option>
<option value="Macedonia">Macedonia</option>
<option value="Madagascar">Madagascar</option>
<option value="Malawi">Malawi</option>
<option value="Malaysia">Malaysia</option>
<option value="Maldives">Maldives</option>
<option value="Mali">Mali</option>
<option value="Malta">Malta</option>
<option value="Marshall Islands">Marshall Islands</option>
<option value="Martinique">Martinique</option>
<option value="Mauritania">Mauritania</option>
<option value="Mauritius">Mauritius</option>
<option value="Mayotte">Mayotte</option>
<option value="Mexico">Mexico</option>
<option value="Moldova">Moldovaf</option>
<option value="Monaco">Monaco</option>
<option value="Mongolia">Mongolia</option>
<option value="Montserrat">Montserrat</option>
<option value="Morocco">Morocco</option>
<option value="Mozambique">Mozambique</option>
<option value="Myanmar">Myanmar</option>
<option value="Namibia">Namibia</option>
<option value="Nauru">Nauru</option>
<option value="Nepal">Nepal</option>
<option value="Netherlands">Netherlands</option>
<option value="Netherlands Antilles">Netherlands Antilles</option>
<option value="New Caledonia">New Caledonia</option>
<option value="New Zealand">New Zealand</option>
<option value="Nicaragua">Nicaragua</option>
<option value="Niger">Niger</option>
<option value="Nigeria">Nigeria</option>
<option value="Niue">Niue</option>
<option value="Norfolk Island">Norfolk Island</option>
<option value="Northern Mariana Islands">Northern Mariana Islands</option>
<option value="Norway">Norway</option>
<option value="Oman">Oman</option>
<option value="Pakistan">Pakistan</option>
<option value="Palau">Palau</option>
<option value="Palestinian Territory, Occupied">Palestinian Territory, Occupied</option>
<option value="Panama">Panama</option>
<option value="Papua New Guinea">Papua New Guinea</option>
<option value="Paraguay">Paraguay</option>
<option value="Peru">Peru</option>
<option value="Philippines">Philippines</option>
<option value="Pitcairn">Pitcairn</option>
<option value="Poland">Poland</option>
<option value="Portugal">Portugal</option>
<option value="Puerto Rico">Puerto Rico</option>
<option value="Qatar">Qatar</option>
<option value="Reunion">Reunion</option>
<option value="Romania">Romania</option>
<option value="Russian Federation">Russian Federation</option>
<option value="Rwanda">Rwanda</option>
<option value="Saint Helena">Saint Helena</option>
<option value="Saint Kitts and Nevis">Saint Kitts and Nevis</option>
<option value="Saint Lucia">Saint Lucia</option>
<option value="Saint Pierre and Miquelon">Saint Pierre and Miquelon</option>
<option value="Saint Vincent and The Grenadines">Saint Vincent and The Grenadines</option>
<option value="Samoa">Samoa</option>
<option value="San Marino">San Marino</option>
<option value="Sao Tome and Principe">Sao Tome and Principe</option>
<option value="Saudi Arabia">Saudi Arabia</option>
<option value="Senegal">Senegal</option>
<option value="Serbia and Montenegro">Serbia and Montenegro</option>
<option value="Seychelles">Seychelles</option>
<option value="Sierra Leone">Sierra Leone</option>
<option value="Singapore">Singapore</option>
<option value="Slovakia">Slovakia</option>
<option value="Slovenia">Slovenia</option>
<option value="Solomon Islands">Solomon Islands</option>
<option value="Somalia">Somalia</option>
<option value="South Africa">South Africa</option>
<option value="South Georgia">South Georgia</option>
<option value="Spain">Spain</option>
<option value="Sri Lanka">Sri Lanka</option>
<option value="Sudan">Sudan</option>
<option value="Suriname">Suriname</option>
<option value="Svalbard and Jan Mayen">Svalbard and Jan Mayen</option>
<option value="Swaziland">Swaziland</option>
<option value="Sweden">Sweden</option>
<option value="Switzerland">Switzerland</option>
<option value="Syrian Arab Republic">Syrian Arab Republic</option>
<option value="Taiwan, Province of China">Taiwan, Province of China</option>
<option value="Tajikistan">Tajikistan</option>
<option value="Tanzania, United Republic of">Tanzania, United Republic of</option>
<option value="Thailand">Thailand</option>
<option value="Timor-leste">Timor-leste</option>
<option value="Togo">Togo</option>
<option value="Tokelau">Tokelau</option>
<option value="Tonga">Tonga</option>
<option value="Trinidad and Tobago">Trinidad and Tobago</option>
<option value="Tunisia">Tunisia</option>
<option value="Turkey">Turkey</option>
<option value="Turkmenistan">Turkmenistan</option>
<option value="Turks and Caicos Islands">Turks and Caicos Islands</option>
<option value="Tuvalu">Tuvalu</option>
<option value="Uganda">Uganda</option>
<option value="Ukraine">Ukraine</option>
<option value="United Arab Emirates">United Arab Emirates</option>
<option value="United Kingdom">United Kingdom</option>
<option value="United States">United States</option>
<option value="Uruguay">Uruguay</option>
<option value="Uzbekistan">Uzbekistan</option>
<option value="Vanuatu">Vanuatu</option>
<option value="Venezuela">Venezuela</option>
<option value="Viet Nam">Viet Nam</option>
<option value="Virgin Islands, British">Virgin Islands, British</option>
<option value="Virgin Islands, U.S.">Virgin Islands, U.S.</option>
<option value="Wallis and Futuna">Wallis and Futuna</option>
<option value="Western Sahara">Western Sahara</option>
<option value="Yemen">Yemen</option>
<option value="Zambia">Zambia</option>
<option value="Zimbabwe">Zimbabwe</option>
</select></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="30" valign="top">No. of Adults </td>
      <td valign="top"><select name="noadult" <%IF inputArray(12,3)="blank" THEN response.write "class=""errorItem"""%> onChange="setattend(document.registr.nochild,document.registr.noadult)">		
					   <option value="">Select Quantity&nbsp;&nbsp;&nbsp;</option>
					   	<option <%IF inputArray(12, 2)="0" THEN response.write "selected"%> value="0">0</option>
                        <option <%IF inputArray(12, 2)="1" THEN response.write "selected"%> value="1">1</option>
                        <option <%IF inputArray(12, 2)="2" THEN response.write "selected"%> value="2">2</option>
                        <option <%IF inputArray(12, 2)="3" THEN response.write "selected"%> value="3">3</option>
                        <option <%IF inputArray(12, 2)="4" THEN response.write "selected"%> value="4">4</option>
                        <option <%IF inputArray(12, 2)="5" THEN response.write "selected"%> value="5">5</option>
						<option <%IF inputArray(12, 2)="6" THEN response.write "selected"%> value="6">6</option>
                        <option <%IF inputArray(12, 2)="7" THEN response.write "selected"%> value="7">7</option>
                        <option <%IF inputArray(12, 2)="8" THEN response.write "selected"%> value="8">8</option>
                        <option <%IF inputArray(12, 2)="9" THEN response.write "selected"%> value="9">9</option>
                        <option <%IF inputArray(12, 2)="10" THEN response.write "selected"%> value="10">10</option>
					  </select></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td valign="top">No. of Children (0-16yrs) </td>
      <td height="50" valign="top"><select name="nochild" <%IF inputArray(13,3)="blank" THEN response.write "class=""errorItem"""%>  onchange="setattend(document.registr.nochild,document.registr.noadult)">		
					   <option value="">Select Quantity&nbsp;&nbsp;&nbsp;</option>
					   	<option <%IF inputArray(13, 2)="0" THEN response.write "selected"%> value="0">0</option>
                        <option <%IF inputArray(13, 2)="1" THEN response.write "selected"%> value="1">1</option>
                        <option <%IF inputArray(13, 2)="2" THEN response.write "selected"%> value="2">2</option>
                        <option <%IF inputArray(13, 2)="3" THEN response.write "selected"%> value="3">3</option>
                        <option <%IF inputArray(13, 2)="4" THEN response.write "selected"%> value="4">4</option>
                        <option <%IF inputArray(13, 2)="5" THEN response.write "selected"%> value="5">5</option>
						<option <%IF inputArray(13, 2)="6" THEN response.write "selected"%> value="6">6</option>
                        <option <%IF inputArray(13, 2)="7" THEN response.write "selected"%> value="7">7</option>
                        <option <%IF inputArray(13, 2)="8" THEN response.write "selected"%> value="8">8</option>
                        <option <%IF inputArray(13, 2)="9" THEN response.write "selected"%> value="9">9</option>
                        <option <%IF inputArray(13, 2)="10" THEN response.write "selected"%> value="10">10</option>
					  </select></td>
      <td>&nbsp;</td>
    </tr>
	    <tr>
      <td height="55" valign="top" >Whilst here for the Mega, where will you be staying? </td>
      <td valign="top"><select name="accommodation" <%IF inputArray(14,3)="blank" THEN response.write "class=""errorItem"""%> >
        <option value="">Accommodation</option>
        <option <%IF inputArray(14, 2)="Camping" THEN response.write "selected"%> value="Camping">Camping/Caravan</option>
		<option <%IF inputArray(14, 2)="Self Catering" THEN response.write "selected"%> value="Self Catering">Self Catering</option>		
        <option <%IF inputArray(14, 2)="Hotel or B+B" THEN response.write "selected"%> value="Hotel or B+B">Hotel / B &amp; B</option>
		<option <%IF inputArray(14, 2)="Friends or Relatives" THEN response.write "selected"%> value="Friends or Relatives">Friends or Relatives</option>
        <option <%IF inputArray(14, 2)="At home" THEN response.write "selected"%> value="At home">At Home</option>
        </select></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="55" valign="top">How many nights are you planning to be here for? </td>
      <td valign="top"><select name="nights" <%IF inputArray(15,3)="blank" THEN response.write "class=""errorItem"""%> >
        <option value="">Select Quantity&nbsp;&nbsp;&nbsp;</option>
		<option <%IF inputArray(15, 2)="0" THEN response.write "selected"%> value="0">0</option>
		<option <%IF inputArray(15, 2)="1" THEN response.write "selected"%> value="1">1</option>
		<option <%IF inputArray(15, 2)="2" THEN response.write "selected"%> value="2">2</option>
		<option <%IF inputArray(15, 2)="3" THEN response.write "selected"%> value="3">3</option>
		<option <%IF inputArray(15, 2)="4" THEN response.write "selected"%> value="4">4</option>
		<option <%IF inputArray(15, 2)="5" THEN response.write "selected"%> value="5">5</option>
		<option <%IF inputArray(15, 2)="6" THEN response.write "selected"%> value="6">6</option>
		<option <%IF inputArray(15, 2)="7" THEN response.write "selected"%> value="7">7</option>
		<option <%IF inputArray(15, 2)="8" THEN response.write "selected"%> value="8">8</option>
		<option <%IF inputArray(15, 2)="9" THEN response.write "selected"%> value="9">9</option>
		<option <%IF inputArray(15, 2)="10" THEN response.write "selected"%> value="10">10</option>
        <option <%IF inputArray(15, 2)="11" THEN response.write "selected"%> value="11">10+</option>
      </select>      </td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="55" valign="top">Bringing your dog(s)?<br>If so how many? </td>
      <td valign="top"><select name="dogs" <%IF inputArray(16,3)="blank" THEN response.write "class=""errorItem"""%> >
        <option value="">Select Quantity&nbsp;&nbsp;&nbsp;</option>
		<option <%IF inputArray(16, 2)="No Dog" THEN response.write "selected"%> value="No Dog">No Dog</option>
		<option <%IF inputArray(16, 2)="1 Dog" THEN response.write "selected"%> value="1 Dog">1 Dog</option>
		<option <%IF inputArray(16, 2)="2 Dogs" THEN response.write "selected"%> value="2 Dogs">2 Dogs</option>
		<option <%IF inputArray(16, 2)="3 Dog" THEN response.write "selected"%> value="3 Dogs">3 Dogs</option>
		<option <%IF inputArray(16, 2)="4 More" THEN response.write "selected"%> value="4 More">4 or more</option>
      </select>      
      </td>
      <td>&nbsp;</td>
    </tr>
	    <tr>
      <td height="55" valign="top">Please email me updates from time to time</td>
      <td height="26" valign="top"><p>
        <label>
          Yes<input <%IF (inputArray(17, 2)="Y") or (yn="") THEN response.write "checked"%> type="radio" name="updates" value="Y" /></label>
        &nbsp;&nbsp;&nbsp;&nbsp;
        <label>
          No<input <%IF inputArray(17, 2)="N" THEN response.write "checked"%> type="radio" name="updates" value="N" /></label>
        <br />
      </p></td>
      <td>&nbsp;</td>
    </tr>

    <tr>
      <td height="148" valign="top">Comments / Questions / Any other information. </td>
      <td colspan="2"><textarea rows="9" name="cmments" cols="50" id="comments"  <%IF inputArray(18,3)="blank" THEN response.write "class=""errorItem"""%>><%=inputArray(18,2)%></textarea></td>
	</tr>
    <tr>
      <td width="170" valign="top"><img alt="" src="/mega/SiteResources/data/MediaArchive/images/blank105x4.gif" width="170" height="9" /></td>
      <td><div align="center">
          <input type="reset" value="Erase" name="B2">
          &nbsp;
          &nbsp;

          <input type="submit" value="Submit details" name="B1">
          &nbsp;</div></td>
		        <td  ><img alt="" src="/mega/SiteResources/data/MediaArchive/images/blank105x4.gif" width="135" height="9" /></td>
    </tr>
  </table>
    <p align="left"><br />
      If you need to amend your registation info, just send an email to the address the confirmation email comes from. </p>
    <p>Should your confirmation email not arrive, then please check your junk/spam folder and if its not there then <a href="mailto:registration@megascotland.co.uk?subject=Mega Scotland Registartion Query">contact us</a> directly.</p>
    <p align="center"><font size="2" >This form will be submitted from IP Address - 
        <% Response.Write Request.ServerVariables("REMOTE_ADDR")%>
   </font></p>
  <p align="center"><span class="style3"><font size="2">&nbsp;&nbsp;<%=ttadult%>/<%=ttchild%>&nbsp;&nbsp;<%=ttboth%></font></span></p>
   <input type="hidden" name="attending" value="<%=inputArray(20,2)%>"/>
  </form></td>
  </tr>
</table>

<script type="text/javascript">

function setattend(chs, ads){
dd=0
if (chs.value != "")   {
 dd=parseInt(chs.value)
 }

if (ads.value != "")   {
 dd=dd+parseInt(ads.value)
 }
 
document.registr.attending.value=dd+""

}

</script>
</body>
</html>