<% Sub SendTheMail dim strSubject dim strbody strbody = "Name : " & request.form("name") & "
" &_ "Email Address : " & request.form("email") & "
" &_ "Company : " & request.form("Company") & "
" &_ "Phone : " & request.form("Phone") & "
" &_ "Products : " & request.form("Products") & "
" &_ "Products : " & request.form("Region") & "
" &_ "Message : " & request.form("message") & "
" strSubject = "Email from Mc Bean’s website" Set objMessage = CreateObject("CDO.Message") objMessage.from = "admin@firsttech.net" objMessage.To = "mcbeans@mcbeans.co.za" ' objMessage.Cc = "robin@pmbcomp.co.za" objMessage.Bcc = "" objMessage.Subject = strSubject objMessage.HTMLBody = strBody objMessage.Send End Sub if request("step") = "two" then SendTheMail %>

Thank you

The following Message has been sent :

<% Response.Write "Name : " & request.form("name") & "
" &_ "Email Address : " & request.form("email") & "
" &_ "Company : " & request.form("Company") & "
" &_ "Phone : " & request.form("Phone") & "
" &_ "Products : " & request.form("Products") & "
" &_ "Products : " & request.form("Region") & "
" &_ "Message : " & request.form("message") & "
" %>


<% else %>

Contact us
* Name
* Email Address
Company
Phone
Products	Fire Fighting Pumps
Region	Eastern Cape Free State Gauteng KwaZulu-Natal Mpumalanga Northern Cape Limpopo Province North West Province Western Cape
* What can we help you with?
* Required

<%end if%>