Get in touch

• If you want to leave a comment about one of the holiday companies listed on Hotel Guru, please use the comments form.

<% If Request.Querystring("sendForm") <> "" Then Function SendMail(Emto, Emfrom, Emsub, Embody) strEmailBody = Embody If bAppendTechInfo Then strEmailBody = strEmailBody & vbcrlf & vbcrlf & "Page: " & Request.ServerVariables("URL") & vbcrlf & vbcrlf strEmailBody = strEmailBody & "Referrer: " & Request.ServerVariables("HTTP_REFERER") & vbcrlf & vbcrlf strEmailBody = strEmailBody & "User Agent: " & Request.ServerVariables("HTTP_USER_AGENT") End If Dim oCdoMsg, oCdoConfg, strReferer, strServer, strClientIP, strServerIP, blnSpam Set oCdoMsg = Server.CreateObject("CDO.Message") strReferer = Request.ServerVariables("HTTP_REFERER") strServer = Replace(Request.ServerVariables("SERVER_NAME"), "www.", "") 'strClientIP = Request.ServerVariables("REMOTE_ADDR") 'strServerIP = Request.ServerVariables("LOCAL_ADDR") ' Check for spam attempt intComp = InStr(strReferer, strServer) If intComp > 0 Then blnSpam = False Else blnSpam = True End If oCdoMsg.to = Emto oCdoMsg.from = Emfrom oCdoMsg.Subject = Emsub oCdoMsg.Textbody = strEmailBody If Not blnSpam Then oCdoMsg.send End If Set oCdoMsg = Nothing ' Comment for localhost testing 'Set oCdoConfg = Nothing End Function On Error Resume Next Dim Emsub, Emto, Emfrom, Embody Emsub = Request.Form("Emsub") Emto = Request.Form("Emto") Emfrom = Request.Form("Emfrom") Embody = "" Embody = Embody & "Name: " & Request.Form("Name") & vbcrlf & vbcrlf & "Email: " & Request.Form("Email") & vbcrlf & vbcrlf & "Comments: " & Request.Form("Comments") sendMail Emto, Emfrom, Emsub, Embody If Err.Number <> 0 Then Response.Write "

Error: " & Err.Description & "

" Else %>

The form was submitted succesfully.

Thank you for your comments.

<% End If Else %>

Name:
Email Address:
Comments:

<% End If %>

If you prefer to use your own email client you can send your email to