<%Option Explicit%> <% Dim cName : cName = Request.Form("Name") Dim cAddr : cAddr = Request.Form("Email") Dim formPost If Request.Form("Name") <> "" And Request.Form("Email") <> "" Then formPost = cName&" has sent the following from your site:"&vbCrLf&vbCrLf if Request.Form("Comments") <> "" then formPost = formPost &vbCrLf&Request.Form("Comments")&vbCrLf End if formPost = formPost & vbCrLf &vbCrLf& cName &vbCrLf &cAddr &vbCrLf&vbCrLf %> <% 'Dim dept : dept = Request.Form("Dept") Dim contactMailTo : contactMailTo = Request.Form("mailTo") Dim contactSubject : contactSubject = Request.Form("Subject") '********************************************************************************************* sendMail cName, cAddr, contactName, contactMailTo, contactSubject, formPost, "" '********************************************************************************************* End If %> Pefanis Travel & Car Hire Kefalonia - Contact Us

Pefanis Travel & Car Hire

Contact Form

Pefanis travel & Car Hire Kefalonia Alternate Text for this Image

Pefanis Travel Contact Form

<% if Request.Form("Name")="" And Request.Form("Email")="" Then %>

Please use this form for contacting us regarding enquiries for our services or for any other comments you wish to make. Choose a relevant subject from the drop-down menu so your enquiry can be dealt with quickly by the correct department.

Your Name:

Your Email address:

   

Your Message:

Please enter here:  
<%Else%> <% If mailErr <>"" then Response.Write(mailErr) else %>

<%=postContactMsg%>

Continue

<%end if end if %>