<% Option Explicit
Response.Buffer = TRUE 
%>
<%
' stop flow if e-mail errors (yes or no) - set to no if you want process to continue if e-mail problem
Const stopFlow = "yes"

Dim NewMailObj, fromWho, toWho, replyTo, Subject, Body

SUB sendMail( fromWho, toWho, replyTo, Subject, Body )
Set NewMailObj = Server.CreateObject("Persits.MailSender")
NewMailObj.Host = "IPgoeshere"
NewMailObj.From = fromWho
NewMailObj.AddAddress toWho
NewMailObj.AddReplyTo replyTo
NewMailObj.Subject = Subject
NewMailObj.Body = Body
NewMailObj.IsHTML = false
' Make sure any errors don't stop the program flow if required
If stopFlow = "no" Then
On Error Resume Next
End If
NewMailObj.Send
' Clear the mail object
Set NewMailObj = Nothing
' Check for any errors
If stopFlow = "no" Then
If (err.Number <> 0) Then
strResult = "There was a problem processing your details. Please try again later."
err.Clear
End If
End If
END SUB

Dim custname, custcompany, custaddress, custphone, custmobile, custfax, custemail, custrefer
Dim custaccomm, custsubscribe, custcomments
Dim accsuite, accdouble, acctwin, accfamily, accsingle
Dim partytotal, partyadults, partychildren, agechildren
Dim firstDate, lastDate
Dim sMailBody, blnSubmit, blnSpam, strHack, strResult, processData

' Check for form submissions
processData = TRIM( Request.Form( "processData" ) )

If processData = "yes" Then
blnSubmit = True
' request form data
custname = TRIM( Request.form( "custname" ))
'custcompany = TRIM( Request.form( "custcompany" ))
custaddress = TRIM( Request.form( "custaddress" ))
custphone = TRIM( Request.form( "custphone" ))
custmobile = TRIM( Request.form( "custmobile" ))
'custfax = TRIM( Request.form( "custfax" ))
custemail = TRIM( Request.form( "custemail" ))
custrefer = TRIM( Request.form( "custrefer" ))
'partytotal = TRIM( Request.form( "partytotal" ))
'partyadults = TRIM( Request.form( "partyadults" ))
'partychildren = TRIM( Request.form( "partychildren" ))
'agechildren = TRIM( Request.form( "agechildren" ))
'accsuite = TRIM( Request.form( "accsuite" ))
'accsingle = TRIM( Request.form( "accsingle" ))
'accdouble = TRIM( Request.form( "accdouble" ))
'acctwin = TRIM( Request.form( "acctwin" ))
'custaccomm = TRIM( Request.form( "custaccomm" ))
custsubscribe = TRIM( Request.form( "custsubscribe" ))
custcomments = TRIM( Request.form( "custcomments" ))
'firstDate = TRIM( Request.form( "firstDate" ))
'lastDate = TRIM( Request.form( "lastDate" ))

' stop spiders and hacking 
blnSpam = False

' Stop spiders etc submitting forms	
If custname="" Then 
blnSpam = True
End If 

sMailBody = "******** The Physio - Website Contact Form ********" & vbNewLine & vbNewLine
sMailBody = sMailBody & "== Personal information == " & vbNewLine
sMailBody = sMailBody & "From : " & custname & vbNewLine
'sMailBody = sMailBody & "Company : " & custcompany & vbNewLine & vbNewLine
sMailBody = sMailBody & "Address : " & vbNewLine & custaddress & vbNewLine & vbNewLine
sMailBody = sMailBody & "Phone : " & custphone & vbNewLine
sMailBody = sMailBody & "Mobile : " & custmobile & vbNewLine
'sMailBody = sMailBody & "Fax : " & custfax & vbNewLine
sMailBody = sMailBody & "E-mail : " & custemail & vbNewLine & vbNewLine
'sMailBody = sMailBody & "== Accommodation information == " & vbNewLine
'sMailBody = sMailBody & "First Night : " & firstDate & vbNewLine
'sMailBody = sMailBody & "Last Night : " & lastDate & vbNewLine
'sMailBody = sMailBody & "Single rooms : " & accsingle & vbNewLine
'sMailBody = sMailBody & "Twin rooms : " & acctwin & vbNewLine
'sMailBody = sMailBody & "Double rooms : " & accdouble & vbNewLine
'sMailBody = sMailBody & "Suites : " & accsuite & vbNewLine
'sMailBody = sMailBody & "Accommodation type : " & custaccomm & vbNewLine & vbNewLine
sMailBody = sMailBody & "== Other information == " & vbNewLine
sMailBody = sMailBody & "How did you hear of us? : " & custrefer & vbNewLine
sMailBody = sMailBody & "Happy to receive e-mail news/offers? : " & custsubscribe & vbNewLine & vbNewLine
sMailBody = sMailBody & "Additional comments : " & vbNewLine & custcomments & vbNewLine

' check for people hacking form
strHack = "bcc:"
If Instr(sMailBody,strHack) > 0 Then 
blnSpam = True 
End If
strHack = "Content-Type:"
If Instr(sMailBody,strHack) > 0 Then 
blnSpam = True 
End If
' check for same in all fields (pick 2)
If custname = custphone Then
blnSpam = True 
End If

fromWho = "enqform@thephysionorthwales.co.uk"
Subject = "The Physio website enquiry from " & custname & " sent at " & now()
toWho = "info@thephysionorthwales.co.uk"
replyTo = custemail
Body = sMailBody
	
'send mail
If Not blnSpam Then
sendMail fromWho, toWho, replyTo, Subject, Body
	strResult = "Thank you for filling in our enquiry form. We will contact you shortly."
Else
	strResult = "There was a problem processing your details. Please try again later."
End If


' If form not submitted
Else
blnSubmit = False
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Contact The Physio Physiotherapy and Sports Injury Clinic in Llanrwst, Conwy Valley, North Wales</title>
<meta name="description" content="How to contact The Physio and Sports Injury Clinic in Llanrwst, Conwy, North Wales provides physiotherapy and rehab treatment, and ergonomic work station assessment.">
<meta name="keywords" content="sports physio, physiotherapist, physiotherapy, rehab gym, ergonomic work station assessment, llanrwst, conwy, north wales">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="author" content="PJ WebWorks"> 
<meta name="robots" content="all">
<meta name="revisit-after" content="30 days">
<link href="css/basic.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
@import url("css/advanced.css");
-->
</style>
<script src = "js/rollover.js" type = "text/javascript" language = "JavaScript" ></script>
<script src = "js/validateform.js" type="text/javascript" language = "JavaScript" ></script>
</head>

<body>

<table width="740" border="0" align="center" cellpadding="0" cellspacing="0" id="maintable">
<tr>
<td id="topcell"><img src="i/toppic2.jpg" alt="the physio and sports injury clinic in llanrwst north wales" width="730" height="151"></td>
</tr>
<tr>
<td>
<table width="730" border="0" cellpadding="0" cellspacing="0" id="table2">
<tr>
<td width="120" id="leftnav">
<div id="navbutt">
<a onMouseOver="imgOn('b1')" onMouseOut="imgOff('b1')" href="index.html"><img src="b/b1off.gif" alt="the physio sports physiotherapy home page" name="b1" width="120" height="22" border="0" id="b1"></a>
<a onMouseOver="imgOn('b2')" onMouseOut="imgOff('b2')" href="services.html"><img src="b/b2off.gif" alt="sports physiotherapy services available" name="b2" width="120" height="22" border="0" id="b2"></a><img src="b/b3on.gif" alt="you are on this page" name="b3" width="120" height="22" border="0" id="b3">
</div>
<img src="i/physiofirst.jpg" alt="physio first chartered physiotherapist" class="physiologo"></td>
<td width="608" id="content">
<a name="pagetop" id="pagetop"></a>
<h1>Contacting The  Physio &amp; Sports Injury Clinic, Llanrwst</h1>
<h2>Contact Information</h2>
<div class="contactpage">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="314">
<h3>Address</h3>
<p> Steve Willis,<br> 
The Physio &amp; Sports Injury Clinic,<br>
Llys Jones, <br>
Nebo Road, <br>
Llanrwst, <br>
Conwy, <br>
North Wales. <br>
LL26 0SD. <br>
UK</p>
<h3>Phone</h3>
<p>01492 642142</p>
<h3>Fax</h3>
<p>01492 642144</p>
<h3>E-mail</h3>
<p><a href="mailto:%69%6E%66%6F%40%74%68%65%70%68%79%73%69%6F%6E%6F%72%74%68%77%61%6C%65%73%2E%63%6F%2E%75%6B?subject=Enquiry through The Physio website"><img src="i/email1.gif" alt="click here to e-mail info at thephysionorthwales.co.uk" width="205" height="12" border="0"></a></p>
</td>
<td width="294">&nbsp;</td>
</tr>
</table>
</div>
<% If blnSubmit Then %>
<!-- Form submitted -->
<h2>Form Submission</h2>
<p><%=strResult%></p>
<% Else %>
<!-- Form not submitted -->
<h2>Enquiry Form</h2>
<p>If you wish you can fill in the following enquiry form, and we will contact you as soon as possible.</p>
<p>(* denotes that this has to be filled in)</p>
<div id="enqform">
<form action="contact.asp" method="post" name="form1" id="form1" onSubmit="return validate()">
<table width="520" border="0" cellpadding="0" cellspacing="0">
<tr>
<th width="199">Your name * :</th>
<td width="301"><input type="text" size="40" name="custname"></td>
</tr>
<tr>
<th>Address  :</th>
<td><textarea name="custaddress" rows="8" cols="30"></textarea></td>
</tr>
<tr>
<th>Phone number * : </th>
<td><input type="text" size="30" name="custphone"></td>
</tr>
<tr>
<th>Mobile :</th>
<td><input type="text" size="30" name="custmobile"></td>
</tr>
<tr>
<th>E-mail  :</th>
<td><input type="text" size="40" name="custemail"></td>
</tr>
<tr>
<th>How did you hear of us?   :</th>
<td><input type="text" size="40" name="custrefer"></td>
</tr>
<tr>
<th>Receive e-mail news?  * :</th>
<td>
<input name="custsubscribe" type="radio" value="Yes">
&nbsp;&nbsp;Yes<br>
<input name="custsubscribe" type="radio" value="No" checked>
&nbsp;&nbsp;No<br>
Select 'Yes' if you would like to receive any e-mails that we send about news and offers from The Physio. We will not pass your details to anybody else. </td>
</tr></table>
<div class="centre"> 
<p>Please enter your enquiry below: <br>
<textarea name="custcomments" rows="6" cols="40"></textarea>
<br>
<br>
<br>
Please check that the details you have entered<br>
are correct before submitting the form.<br>
<br>
<input name="submit" type="submit" value="Submit Form" class="enqformbutton">
</p>
</div>
<input name="processData" type="hidden" value="yes">
</form>
</div>
<!-- end of not submitted -->
<% End If %>
<div id="contact">
<h2>Contact Details</h2>
<p> Steve Willis, The Physio &amp; Sports Injury Clinic,<br>
Llys Jones, 
Nebo Road, Llanrwst, Conwy, North Wales. LL26 0SD. UK<br>
<br>
<strong>Tel:</strong> 01492 642142 &nbsp;&nbsp;&nbsp;<strong>Fax:</strong> 01492 642144 <br>
<strong>e-mail:</strong> <a href="mailto:%69%6E%66%6F%40%74%68%65%70%68%79%73%69%6F%6E%6F%72%74%68%77%61%6C%65%73%2E%63%6F%2E%75%6B?subject=Enquiry through The Physio website"><img src="i/email1.gif" alt="click here to e-mail info at thephysionorthwales.co.uk" width="205" height="12" border="0"></a> or use <a href="contact.asp">online form</a> </p>
</div>
<div id="botnav">
<p><a href="index.html">home</a> | <a href="services.html">services</a> | contact us | <a href="javascript:window.print();">print this page</a> | <a href="#pagetop">top of page</a> </p>
</div>
<div id="copyright">
<p>Copyright The Physio &amp; Sports Injury Clinic, North Wales.<br>
The Physio &amp; Sports Injury Clinic is the trading name of 
The Physio North Wales Ltd.<br>
The Physio North Wales Ltd is a company registered in Wales with company number 5513680.</p>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>