<% 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
   Region
* What can we help you with?
* Required
<%end if%>