<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/Connections/DATA.asp" -->
<!--#include virtual="/includes/common_inc.asp" -->
<%
Page_Title = "Choirs"
%>
<%
'******************************** Form URL ***********************************'

Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
%>
<%
'******************************* Insert Contact **********************************'

If CStr(Request.Form("command_insert")) = "insertform" Then
%>
<%

if(CStr(Request.Form("nametitle")) <> "") then InsertCommand__NameTitleValue = CStr(Request.Form("nametitle"))
if(CStr(Request.Form("forename")) <> "") then InsertCommand__ForenameValue = CStr(Request.Form("forename"))
if(CStr(Request.Form("surname")) <> "") then InsertCommand__SurnameValue = CStr(Request.Form("surname"))
if(CStr(Request.Form("phoneno")) <> "") then InsertCommand__PhoneNoValue = CStr(Request.Form("phoneno"))
if(CStr(Request.Form("email")) <> "") then InsertCommand__EmailValue = CStr(Request.Form("email"))
if(CStr(Request.Form("addressline1")) <> "") then InsertCommand__AddressLine1Value = CStr(Request.Form("addressline1"))
if(CStr(Request.Form("addressline2")) <> "") then InsertCommand__AddressLine2Value = CStr(Request.Form("addressline2"))
if(CStr(Request.Form("addressline3")) <> "") then InsertCommand__AddressLine3Value = CStr(Request.Form("addressline3"))
if(CStr(Request.Form("addressline4")) <> "") then InsertCommand__AddressLine4Value = CStr(Request.Form("addressline4"))
if(CStr(Request.Form("postcode")) <> "") then InsertCommand__PostcodeValue = CStr(Request.Form("postcode"))
if(CStr(Request.Form("choirname")) <> "") then InsertCommand__ChoirNameValue = CStr(Request.Form("choirname"))
if(CStr(Request.Form("choirleader")) <> "") then InsertCommand__ChoirLeaderValue = CStr(Request.Form("choirleader"))
if(CStr(Request.Form("rehearsal")) <> "") then InsertCommand__RehearsalValue = CStr(Request.Form("rehearsal"))
if(CStr(Request.Form("venue")) <> "") then InsertCommand__VenueValue = CStr(Request.Form("venue"))
if(CStr(Request.Form("contactname")) <> "") then InsertCommand__ContactNameValue = CStr(Request.Form("contactname"))
if(CStr(Request.Form("contactphone")) <> "") then InsertCommand__ContactPhoneValue = CStr(Request.Form("contactphone"))
if(CStr(Request.Form("contactemail")) <> "") then InsertCommand__ContactEmailValue = CStr(Request.Form("contactemail"))
if(CStr(Request.Form("choirwebsite")) <> "") then InsertCommand__ChoirWebsiteValue = CStr(Request.Form("choirwebsite"))
if(CStr(Request.Form("choirdetails")) <> "") then InsertCommand__ChoirDetailsValue = CStr(Request.Form("choirdetails"))
if(CStr(Request.Form("accept")) <> "") then InsertCommand__AcceptValue = CStr(Request.Form("accept"))

%>
<%
	If InsertCommand__NameTitleValue = "" Then MSG = MSG + "Please enter the title\n"
	If InsertCommand__ForenameValue = "" Then MSG = MSG + "Please enter the forename\n"
	If InsertCommand__SurnameValue = "" Then MSG = MSG + "Please enter the surname\n"
	If InsertCommand__PhoneNoValue = "" Then MSG = MSG + "Please enter the phone number\n"
	If IsEmailValid(InsertCommand__EmailValue) = False Then MSG = MSG + "Please enter a valid email address\n"
'	If InsertCommand__AddressLine1Value = "" Then MSG = MSG + "Please enter the address\n"
'	If InsertCommand__PostcodeValue = "" Then MSG = MSG + "Please enter the postcode\n"
	If InsertCommand__ChoirNameValue = "" Then MSG = MSG + "Please enter the choir name\n"
	If InsertCommand__ChoirLeaderValue = "" Then MSG = MSG + "Please enter the choir leader\n"
	If InsertCommand__RehearsalValue = "" Then MSG = MSG + "Please enter the day and time of rehearsals\n"
	If InsertCommand__VenueValue = "" Then MSG = MSG + "Please enter the choir venue\n"
	If InsertCommand__ContactNameValue = "" Then MSG = MSG + "Please enter the contact name\n"
	If IsEmailValid(InsertCommand__ContactEmailValue) = False Then MSG = MSG + "Please enter a valid contact email address\n"
'	If InsertCommand__ChoirWebsiteValue = "" Then MSG = MSG + "Please enter the choir website\n"
	If InsertCommand__ChoirDetailsValue = "" Then MSG = MSG + "Please enter the choir details\n"

	If MSG = "" Then
%>
<%
	mailBody = "Choir request by" + VBCrLf + VBCrLf
	mailBody = mailBody + "Name : " + InsertCommand__NameTitleValue + " " + InsertCommand__ForenameValue + " " + InsertCommand__SurnameValue + VBCrLf
	mailBody = mailBody + "Phone No : " + InsertCommand__PhoneNoValue + VBCrLf
	mailBody = mailBody + "Email : " + InsertCommand__EmailValue + VBCrLf
	mailBody = mailBody + "Address : " + InsertCommand__AddressLine1Value + " " + InsertCommand__AddressLine2Value + " " + InsertCommand__AddressLine3Value + " " + InsertCommand__AddressLine4Value + " " + InsertCommand__PostcodeValue + VBCrLf + VBCrLf
	mailBody = mailBody + "Choir Details" + VBCrLf + VBCrLf
	mailBody = mailBody + "Choir Name : " + InsertCommand__ChoirNameValue + VBCrLf
	mailBody = mailBody + "Choir Leader : " + InsertCommand__ChoirLeaderValue + VBCrLf
	mailBody = mailBody + "Rehearsal Days and Times : " + InsertCommand__RehearsalValue + VBCrLf
	mailBody = mailBody + "Venue : " + InsertCommand__VenueValue + VBCrLf
	mailBody = mailBody + "Contact Name : " + InsertCommand__ContactNameValue + VBCrLf
	mailBody = mailBody + "Contact Email : " + InsertCommand__ContactEmailValue + VBCrLf
	mailBody = mailBody + "Website : " + InsertCommand__ChoirWebsiteValue + VBCrLf
	mailBody = mailBody + "Description : " + InsertCommand__ChoirDetailsValue + VBCrLf

	Set objCDO = Server.CreateObject("CDONTS.NewMail")
	objCDO.Subject = "Choir Request"
	objCDO.BodyFormat = 1
	objCDO.Body  = mailBody
'	objCDO.To = "phil@fatfrogmedia.com"
	objCDO.To = Website_Email
	objCDO.From = "postmaster@20000voices.org"

	If objCDO.Send <> 0 Then
		CommandCompleted = "N"
	Else
		CommandCompleted = "Y"
	End If

	Set objCDO = nothing

%>
<%
	End If

End If
%>
<%
'********************************* Redirect ************************************'

If MSG <> "" Then
	Session("MSG") = MSG
End If
	
If (CommandCompleted = "Y") Then
	RedirectURL = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?Sent=Y"
	
	Response.Status="302 Object moved"
Response.Redirect(RedirectURL)
End If
%>
<%
' ******************************* Functions ********************************

' Function IsEmailValid(strEmail) 
' Action: checks if an email is correct. 
' Parameter: strEmail - the Email address 
' Returned value: on success it returns True, else False. 
Function IsEmailValid(strEmail) 
  
    Dim strArray 
    Dim strItem 
    Dim i 
    Dim c 
    Dim blnIsItValid 
  
    ' assume the email address is correct  
    blnIsItValid = True 
    
    ' split the email address in two parts: name@domain.ext 
    strArray = Split(strEmail, "@") 
  
    ' if there are more or less than two parts  
    If UBound(strArray) <> 1 Then 
        blnIsItValid = False 
        IsEmailValid = blnIsItValid 
        Exit Function 
    End If 
  
    ' check each part 
    For Each strItem In strArray 
        ' no part can be void 
        If Len(strItem) <= 0 Then 
            blnIsItValid = False 
            IsEmailValid = blnIsItValid 
            Exit Function 
        End If 
        
        ' check each character of the part 
        ' only following "abcdefghijklmnopqrstuvwxyz_-." 
        ' characters and the ten digits are allowed 
        For i = 1 To Len(strItem) 
               c = LCase(Mid(strItem, i, 1)) 
               ' if there is an illegal character in the part 
               If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then 
                   blnIsItValid = False 
                   IsEmailValid = blnIsItValid 
                   Exit Function 
               End If 
        Next 
   
      ' the first and the last character in the part cannot be . (dot) 
        If Left(strItem, 1) = "." Or Right(strItem, 1) = "." Then 
           blnIsItValid = False 
           IsEmailValid = blnIsItValid 
           Exit Function 
        End If 
    Next 
  
    ' the second part (domain.ext) must contain a . (dot) 
    If InStr(strArray(1), ".") <= 0 Then 
        blnIsItValid = False 
        IsEmailValid = blnIsItValid 
        Exit Function 
    End If 
  
    ' check the length oh the extension  
    i = Len(strArray(1)) - InStrRev(strArray(1), ".") 
    ' the length of the extension can be only 2, 3, or 4 
    ' to cover the new "info" extension 
    If i <> 2 And i <> 3 And i <> 4 Then 
        blnIsItValid = False 
        IsEmailValid = blnIsItValid 
        Exit Function 
    End If 

    ' after . (dot) cannot follow a . (dot) 
    If InStr(strEmail, "..") > 0 Then 
        blnIsItValid = False 
        IsEmailValid = blnIsItValid 
        Exit Function 
    End If 
  
    ' finally it's OK  
    IsEmailValid = blnIsItValid 
    
 End Function 
%> 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/main.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<title><%=Website_Name%> - <%=Page_Title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<!--#include virtual="/includes/metatags_inc.asp" -->
<!--#include virtual="/includes/styles_inc.asp" -->
<!--#include virtual="/includes/javascript_inc.asp" -->
<!-- InstanceBeginEditable name="head" -->
<style type="text/css">
<!--
#title {
	background-image:url(images/choirs_title.jpg);
	background-repeat:no-repeat;
}
-->
</style>
<!-- InstanceEndEditable -->
</head>

<body>
<div id="website_wrapper">
<div id="website">

	<div id="header"><div id="headercontent"><!--#include virtual="/includes/header_inc.asp" --></div></div>
	<div class="invisibleline"><hr /></div>
	<div id="main">
		<div id="left"><div id="leftcontent"><!-- InstanceBeginEditable name="Left" -->
			<!--#include virtual="/admin/includes/msg_inc.asp" -->
			<div class="grayblock"><div style="height:140px" class="blockfix">
				<div><img src="images/related_links.gif" alt="Related Links" width="130" height="22" /></div>
				<div class="clearing" style="height:20px">&nbsp;</div>
				<div><strong><a href="choirs.asp">20,000 Voices Community Choirs</a><br />
				<div class="clearing" style="height:10px">&nbsp;</div>
				<a href="choirs.asp?C=2">Other Community Choirs</a><br />
				<div class="clearing" style="height:10px">&nbsp;</div>
			  	<a href="choirs.asp?C=3">Choral Societies &amp; Other Choirs</a></strong></div>
			</div></div>
			<div class="clearing" style="height:10px">&nbsp;</div>
		  <div id="getinvolved"><a href="/getinvolved.asp"><i>Get Involved</i></a></div>
			<div class="clearing" style="height:10px">&nbsp;</div>
			<div id="supportus"><a href="/recommendations.asp"><i>Good Books / Great Music</i></a></div>
			<div class="clearing" style="height:10px">&nbsp;</div>

		<!--#include virtual="/includes/address_inc.asp" -->

		<!-- InstanceEndEditable --></div></div>
		<div id="center"><div id="centercontent">
				<!-- InstanceBeginEditable name="Content" -->
				
   		   		<div id="title"><h2>Choirs</h2></div>
				<div class="clearing" style="height:10px">&nbsp;</div>
				
				<% If CStr(Request.QueryString("Sent")) <> "Y" Then %>
				<div class="greenblock"><div class="blockfix">
				<form action="<%=MM_editAction%>" method="POST" name="insertform" id="insertform">
				  	<div><p>Please submit the details of your choir to us and we'll place it on our choir list.</p></div>
				    <div><p><strong>Your details</strong> (this information will not be added to the   website)</p></div>
					<div class="clearing">&nbsp;</div>
			  	  	<div class="input"><label for="nametitle">Title (Mr, Mrs etc):</label><input name="nametitle" type="text" class="textbox" id="nametitle" value="<%=Request.Form("nametitle")%>" size="30" maxlength="100" /></div>
			  	  	<div class="input"><label for="forename">Forename :</label><input name="forename" type="text" class="textbox" id="forename" value="<%=Request.Form("forename")%>" size="30" maxlength="100" /></div>
				  	<div class="input"><label for="surname">Surname :</label><input name="surname" type="text" class="textbox" id="surname" value="<%=Request.Form("surname")%>" size="30" maxlength="100" /></div>
			  	  	<div class="input"><label for="email">Email :</label><input name="email" type="text" class="textbox" id="email" value="<%=Request.Form("email")%>" size="30" maxlength="255" /></div>
			  	  	<div class="input"><label for="phoneno">Tel No :</label><input name="phoneno" type="text" class="textbox" id="phoneno" value="<%=Request.Form("phoneno")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="addressline1">Address :</label><input name="addressline1" type="text" class="textbox" id="addressline1" value="<%=Request.Form("addressline1")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="addressline2">&nbsp;</label><input name="addressline2" type="text" class="textbox" id="addressline2" value="<%=Request.Form("addressline2")%>" size="30" maxlength="100" /></div>
				  	<div class="input"><label for="addressline3">&nbsp;</label><input name="addressline3" type="text" class="textbox" id="addressline3" value="<%=Request.Form("addressline3")%>" size="30" maxlength="100" /></div>
				  	<div class="input"><label for="addressline4">&nbsp;</label><input name="addressline4" type="text" class="textbox" id="addressline4" value="<%=Request.Form("addressline4")%>" size="30" maxlength="100" /></div>
		  	  	  	<div class="input"><label for="postcode">Postcode :</label><input name="postcode" type="text" class="textbox" id="postcode" value="<%=Request.Form("postcode")%>" size="10" maxlength="10" /></div>
		  	  	  	<div class="clearing" style="height:10px">&nbsp;</div>
				    <div><p><strong>Choir details</strong> (this is the information that will appear   on the website)</p></div>
		  	  	  	<div class="clearing">&nbsp;</div>
  	  	  	 		<div class="input"><label for="choirname">Choir Name :</label><input name="choirname" type="text" class="textbox" id="choirname" value="<%=Request.Form("choirname")%>" size="30" maxlength="100" /></div>
				  	<div class="input"><label for="choirleader">Leader :</label><input name="choirleader" type="text" class="textbox" id="choirleader" value="<%=Request.Form("choirleader")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="rehearsal">Rehearsal day and time :</label><input name="rehearsal" type="text" class="textbox" id="rehearsal" value="<%=Request.Form("rehearsal")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="venue">Venue :</label><input name="venue" type="text" class="textbox" id="venue" value="<%=Request.Form("venue")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="contactname">Contact name :</label><input name="contactname" type="text" class="textbox" id="contactname" value="<%=Request.Form("contactname")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="contactphone">Contact phone :</label><input name="contactphone" type="text" class="textbox" id="contactphone" value="<%=Request.Form("contactphone")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="contactemail">Contact email :</label><input name="contactemail" type="text" class="textbox" id="contactemail" value="<%=Request.Form("contactemail")%>" size="30" maxlength="255" /></div>
				  	<div class="input"><label for="choirwebsite">Website :</label><input name="choirwebsite" type="text" class="textbox" id="choirwebsite" value="<%=Request.Form("choirwebsite")%>" size="30" maxlength="255" /></div>
	  	  	  	  	<div class="input"><label for="choirdetails">Brief description :</label><textarea name="choirdetails" cols="30" rows="6" class="textbox" id="choirdetails"><%=Request.Form("choirdetails")%></textarea></div>
		  	  	  	<div class="clearing">&nbsp;</div>
					<div class="input"><label for="submit">Confirm </label><input name="submit" id="submit" type="submit" class="button" value="Submit" />&nbsp;<input name="reset" id="reset" type="reset" class="button" value="Reset" /><input name="command_insert" type="hidden" id="command_insert" value="insertform" /></div>
					<div class="clearing">&nbsp;</div>
		  		</form>
				</div>
				</div>
				<% Else %>
				<div class="greenblock"><div class="blockfix">
				<p>&nbsp;</p>
				<p>Thankyou, your choir details have been successfully sent.</p>
				<p><a href="/home.asp">go back to our home page </a></p>
				<p>&nbsp;</p>
				<p>&nbsp;</p>
				<p>&nbsp;</p>
				<p>&nbsp;</p>
				<p>&nbsp;</p>
				</div></div>
				<% End If %>
				
		  <!-- InstanceEndEditable -->
		</div></div>
 		<div id="right"><div id="rightcontent"><!-- InstanceBeginEditable name="Right" -->

		<div><img src="images/sideimages/9thseason160x160.jpg" alt="9th Season" width="160" height="160" /></div>
		<div class="clearing" style="height:10px">&nbsp;</div>
		<div><img src="images/sideimages/gospel160x160.jpg" alt="Morpeth Methodist Church. 22 Jul 06" width="160" height="160" /></div>
		<div class="clearing" style="height:10px">&nbsp;</div>
		<div></div>
		<div class="clearing" style="height:10px">&nbsp;</div>

		<!-- InstanceEndEditable --></div>
 		</div>
	</div>
	<div class="invisibleline"><hr /></div>
	<div id="footer"><div id="footercontent"><!--#include virtual="/includes/footer_inc.asp" --></div></div>
	<!--#include virtual="/includes/backgrounds_inc.asp" -->
	
</div>
</div>
</body>
<!-- InstanceEnd --></html>