<% dim email, message email=Request.Form("email") message=Request.Form("message") if email <> "" then if message <> "" then Dim objMail Set objMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") 'Configuration: objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort objConfig.Fields(cdoSMTPServer)="auth.smtp.1and1.co.uk" objConfig.Fields(cdoSMTPServerPort)=25 objConfig.Fields(cdoSMTPAuthenticate)=cdoBasic objConfig.Fields(cdoSendUserName) = "m40576314-5" objConfig.Fields(cdoSendPassword) = "cockmuncher" 'Update configuration objConfig.Fields.Update Set objMail.Configuration = objConfig objMail.From = email objMail.To = "info@onebristol.co.uk" objMail.Subject ="OneBristol Information Request" objMail.TextBody= message objMail.Send Response.Write "

Your message has been sent!

" Response.Write "

See below for a copy of the message that was sent.

" Response.Write "" Response.Write "" %>

<% Response.Write "" Response.Write "" Response.End end if end if %>

Contact OneBristol

If you would like to have a free basic listing please use the form below and be sure to provide the details of your business that you would like to appear on this site. Soon we will allow this to be done automatically.

If you would like your own mini-site to appear as http://yourbusinessname.onebristol.co.uk/ then please also use this form and include the text "mini-site" in your message.