<% if request.querystring("email") <> "" then Set myMail=CreateObject("CDO.Message") myMail.Subject="Unsubscribe" myMail.From = request.querystring("email") myMail.To = "queensberry@thequeensberry.co.uk" myMail.TextBody = "Unsubscribe: " & request.querystring("email") & vbCrlf myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.hitwave.net" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="postmaster@blueparrot" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="sausage14" myMail.Configuration.Fields.Update myMail.Send end if%> The Queensberry Hotel

Unsubscribe

<%if request.querystring("email") <> "" then%>

Thank you, your email address (<%=request.querystring("email")%>) has been removed from our mailing list

<%else%>

To unsubscribe please enter your email address, in the form below, and we will remove it from our mailing list:

<%end if%>