<% If Request.Form("Submit") = "Send message" Then Call EmailOut Else Call EmailForm End If %> <% Sub EmailForm %>
 

contact us

Comments, suggestions and questions are always very welcome.

 

 

 

Voice East Midlands

66 Carlton Road

Nottingham

NG3 2AP

Tel: 0115 950 8820

Fax: 0115 950 9232

e-mail: admin@voice-em.org.uk

 
<% End Sub Sub EmailOut Dim EMailBod Set objMsg = Server.CreateObject("CDONTS.NewMail") objMsg.BodyFormat = 1 objMsg.MailFormat = 0 objMsg.From = "website@voice-em.org.uk" objMsg.To = "admin@voice-em.org.uk" objMsg.Subject = "Contact message from Voice website" EmailBod = "The following message has been sent via the website:" & chr(10) & chr(10) EmailBod = EmailBod & "Name: " & Request.Form("Name") & chr(10) & chr(10) EmailBod = EmailBod & "Email: " & Request.Form("Email") & chr(10) & chr(10) EmailBod = EmailBod & "Message: " & Request.Form("Message") & chr(10) & chr(10) objMsg.Body = EmailBod objMsg.Send Set objMsg = nothing Response.Redirect "contact_thanks.asp" End Sub %>