<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'setup error handling Err.Clear 'On Error Resume Next %> <% Dim Get_Section_Details__MMColParam Get_Section_Details__MMColParam = "Contact/Mailing List" If (Request.QueryString("section") <> "") Then Get_Section_Details__MMColParam = Request.QueryString("section") End If %> <% Dim Get_Section_Details Dim Get_Section_Details_numRows Set Get_Section_Details = Server.CreateObject("ADODB.Recordset") Get_Section_Details.ActiveConnection = MM_client_database_STRING Get_Section_Details.Source = "SELECT * FROM Sections WHERE section = '" + Replace(Get_Section_Details__MMColParam, "'", "''") + "'" 'Response.Write (Get_Section_Details.Source) + "
" Get_Section_Details.CursorType = 0 Get_Section_Details.CursorLocation = 2 Get_Section_Details.LockType = 1 Get_Section_Details.Open() Get_Section_Details_numRows = 0 %> /images/logos/favicon.ico" type="image/x-icon"> /images/logos/favicon.ico" type="image/x-icon"> <% 'extract the title for this page from the name 'of the file. this obviously relies on the fact 'that someone has given it a nice name ScriptName=CStr(Request.ServerVariables("SCRIPT_NAME")) 'Response.Write (ScriptName) + "
" ScriptParts=Split(ScriptName,"/") ScriptFile=ScriptParts(Ubound(ScriptParts)) ScriptFileParts=Split(ScriptFile,".") ScriptTitle=ScriptFileParts(0) First_3_chars = Left (ScriptTitle, 3) If Right (First_3_chars, 1) = "$" Then ScriptTitle = Mid (ScriptTitle, 4) End If 'if whatever we are left with is an index file 'then use the name of the parent directory instead If Lcase(ScriptTitle) = "index" Then ScriptTitle=ScriptParts(Ubound(ScriptParts)-1) End If 'if Request.QueryString("title") exists then 'append it to ScriptTitle If Trim(Request.QueryString("title")) <> "" Then ScriptTitle = ScriptTitle + ": " + Request.QueryString("title") Else If Trim(Request.QueryString("directory")) <> "" Then ScriptTitle = Request.QueryString("directory") End If End If ScriptTitle=Replace(ScriptTitle,"-"," ") ScriptTitle=Replace(ScriptTitle,"_"," ") ScriptTitle=Replace(ScriptTitle,"/pages/","") ScriptTitle=Replace(ScriptTitle,"/"," - ") ScriptTitle=Replace(ScriptTitle," and "," & ") %> <%=Application("company_long_name")%> - <%=ScriptTitle%>
">
" target="_top">Return to the Home Page
<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("name"))) & "|WA|" & cStr(cStr(Request.Form("email"))) & "" MailSubject = "A message from " + Application("company") + " website" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"artwork@theimageyard.com") MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "Dear " + Application("company") + "," MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" 'MailBody = MailBody & "I am sending you an email from the contact form on the " 'MailBody = MailBody & Application("company_long_name") 'MailBody = MailBody & " website." & vbCrlf & "" 'MailBody = MailBody & "
" & vbCrlf & "" 'MailBody = MailBody & "
" & vbCrlf & "" 'MailBody = MailBody & "
" & Lcase(Trim(Request.Form("mailing_list"))) & vbCrlf & "" If Lcase(Trim(Request.Form("mailing_list"))) = "yes" Then MailBody = MailBody & "Please add me to the mailing list" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" Else If Lcase(Trim(Request.Form("mailing_list"))) = "no" Then MailBody = MailBody & "Please REMOVE ME from your mailing list" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" End If End If If Trim(Request.Form("interest")) <> "" Then If (Trim(Request.Form("mailing_list")) <> "") Then MailBody = MailBody & "Also, could" Else MailBody = MailBody & "Could" End If MailBody = MailBody & " you please get back to me with regard to the following:" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Replace(Request.Form("interest"),chr(13),"
") MailBody = MailBody & "

" & vbCrlf & "" End If MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Thankyou." & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Request.Form("name") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Request.Form("landline") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Request.Form("mobile") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Request.Form("email") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Request.Form("address") MailBody = MailBody & "
" & vbCrlf & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% 'if (((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0))) then if (Request.ServerVariables("Request_Method") = "POST") then If Trim(Request.Form("occupation")) <> "" Then 'If the occupation field has something in it then a spammer is using the form, so ignore it Response.Write("

spam


") Else 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("info@balston.co.uk") 'Send Mail All Entries if ("../Contact_Confirmation.asp"<>"") then Response.Redirect("../Contact_Confirmation.asp") end if End If end if %>

"> " wmode="transparent">

     
  Add me to your mailing list
  Remove me from your mailing list
     

Your name

Email


Contact Number

Address

Area of interest


 
 
 
 
<% Get_Section_Details.Close() Set Get_Section_Details = Nothing %>