<%@ Language = "VBScript" %> <% 'Define variables. '==================================================================== 'Set email subject line Const strSubject = "Pre-Paid 6-12 Months Details" 'Set destination email address Const strAdminEmail = "accounts@selseylife.co.uk" 'Set Mail Object to be used - Mail Objects are (1)CDONTS (2)CDOSYS (3)AspMail (4)Jmail (5)AspEmail Const strMailObject = "CDOSYS" 'Set SMTP Server Address Const strSMTPServer = "mail.selseylife.co.uk" 'Set redirect URL Dim BackURL BackURL = Request.ServerVariables("HTTP_REFERER") '==================================================================== Select Case Request.Querystring("Action") Case "Send" 'on error resume next 'Set variables Dim strTitle Dim strName Dim strStreet Dim strTown Dim strCity Dim strPostcode Dim strCountry dim strPhone Dim strstartDate dim strtime Dim strUserIP Dim varLocale Dim varDate Dim datGeneralDate Dim Email strTitle = Request.form("Title") strName = Request.form("Name") strStreet = Request.form("street") strTown = Request.form("Town") strCity = Request.form("City") strPostcode = Request.form("postcode") strCountry = Request.form("Country") strphone = Request.form("phone") strStartDate= request.form("StartDate") strEmail=request.form("Email") strTotalValue = Request.form("TotalValue") strAdditionalInfo = Request.form("AdditionalInfo") strtime = Request.form("time") strUserIP = Request.ServerVariables("REMOTE_ADDR") strToEmail = strAdminEmail strFromEmail = Trim(Request.form("Email")) varLocale = SetLocale(2057) varDate = Now() datGeneralDate = FormatDateTime(varDate, 0) strEmailBody = "This message was sent by " & strTitle & " " & strName & " at " & datGeneralDate & vbnewline & _ "--------------------------------------------------------------------------------" & vbnewline & vbnewline & _ "Sender Details" & vbnewline & vbnewline & _ "Title: " & strTitle & vbnewline & _ "Name: " & strName & vbnewline & _ "Street: " & strStreet & vbnewline & _ "Town: " & strTown & vbnewline & _ "City: " & strCity & vbnewline & _ "Postcode: " & strPostcode & vbnewline & _ "Country: " & strCountry & vbnewline & _ "Phone Number: " & strphone & vbnewline & _ "Start Date: " & strStartDate & vbnewline & _ "Email: " & strEmail & vbnewline & _ "--------------------------------------------------------------------------------" & vbnewline & _ "Sender IP Address: " & strUserIP 'Set Server Side Validation to make ensure correct email addresses are used If strToEmail = "" OR strFromEmail = "" Then Session("msg") = "You have not entered an email address!" Response.redirect (BackURL) Else 'Trigger email Call SendMail(strToEmail, strFromEmail, strSubject, strEmailBody) End If 'Show thank you messaqe Session("MsgSent") = "We have received your email now proceed to paypal!" 'Redirect and show the result Response.redirect (BackURL) End Select %> Selsey Life, Selsey, Accounts Page  <% If Session("msgSent") = "" Then %>Please Fill In Details!<% Else %>Thank You Your Order Has Been Completed<% End If %>

 

<% If Session("msgSent") = "" Then %>

Simply fill in the details below

<% If Session("msg") <> "" Then %>

<%=Session("msg")%>

<% End If %>

 


Title

   
Name " class="input_left" />    
Street " class="input_left" />    
Town " class="input_left" />    
City " class="input_left" />    
Postcode " class="input_left" />    
Country " class="input_left" />    
Phone Number " />    
Start Date " />    
Email " />    
     
<%Else%>

Message Sent!

<%=Session("MsgSent")%>



<% End If 'Kill session Session("MsgSent") = "" Session("msg") = "" %>
6 Months 12 Months