%
Response.Buffer = True
Dim strBody
Dim objCDOMail
Dim strMyEmailAddress
Dim strReturnEmailAddress
strMyEmailAddress = "steve.broomhall@sartorius.com"
strReturnEmailAddress = Request.Form("email")
strBody = "You have received a Service enquiry from:"
strBody = strBody & "
" & Request.Form("name") & " from " & Request.Form("company")
strBody = strBody & "
E-mail: " & strReturnEmailAddress
strBody = strBody & "
Phone: "& Request.Form("phone") & ""
strBody = strBody & "
Their enquiry:"
strBody = strBody & "
" & Request.Form("enquiry") & "
"
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "info.sartorius@zen.co.uk"
objCDOMail.To = strMyEmailAddress
objCDOMail.Subject = "Service site enquiry"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2
objCDOMail.Send
Set objCDOMail = Nothing
%>
|
|||||||
|
|||||||
| Editorial © Sartorius Ltd 2005 www.sartorius.co.uk www.weighing.ie |