<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if request("email") <> "" then formname = request.form("name") formtel = request.form("tel") formemail = request.form("email") formcomments = request.form("comments") Set myMail=CreateObject("CDO.Message") myMail.Subject="Message from Old Farm Cottages website" myMail.From=formemail myMail.To="mwgrant77@gmail.com" 'myMail.To="m@mfh.im" emailbody = "" emailbody=emailbody & "You have received a message from your website contact form:" & VbCrLf & VBCrLf emailbody=emailbody & "Name: " & formname & VBCrLf emailbody=emailbody & "Email: " & formemail & VBCrLf emailbody=emailbody & "Comments: " & formcomments & VBCrLf myMail.TextBody=emailbody myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="mail.gridhost.co.uk" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =465 'Your UserID on the SMTP server myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@oldfarmcottageslochness.co.uk" 'Your password on the SMTP server myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ofcln135" myMail.Configuration.Fields.Update myMail.Send set myMail=nothing response.redirect("thanks.htm") else %> Old Farm Cottages – Self-catering on Loch Ness

Contact us

Mobile: 07738 732419 (texts only)

Mrs Marion Grant, Old Farm, Glenmoriston Lodge Estate, Invermoriston, IV63 7YA.

<% end if %>