Enquiry Form

<% If Request.Form("Submit") = "Submit" Then set conn = server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("Database\menz.mdb") set rs = server.CreateObject ("ADODB.Recordset") rs.open "Select * From Enquiry" , conn, 2, 2 rs.AddNew rs("Name") = request.form("txtName") rs("Email") = request.form("txtEmail") rs("Mobile") = request.form("txtMobile") rs("Message") = request.form("txtMessage") rs.Update rs.Close set rs = nothing HTML = "" & vbCrLf HTML = HTML & "" & vbCrLf HTML = HTML & "" & vbCrLf HTML = HTML & "" & vbCrLf HTML = HTML & "Enquiry Form" & vbCrLf HTML = HTML & "" & vbCrLf HTML = HTML & "" & vbCrLf HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

Enquiry
Name	:	" & request.form("txtName") & "
E-Mail	:	" & request.form("txtEmail") & "
Contact	:	" & request.form("txtMobile") & "
Message	:	" & request.form("txtMessage") & "
Date	:	" & Date() & "
Time	:	" & Time() & "

" set objSendMail = CreateObject("CDONTS.NewMail") objSendMail.From = request.form("txtEmail") objSendMail.To = "info@healthy-beauty.com" objSendMail.Cc = "splim@healthy-beauty.com" objSendMail.Bcc = "" objSendMail.BodyFormat = 0 'HTML Format objSendMail.MailFormat = 0 'HTML Format objSendMail.Body = HTML objSendMail.Subject = "Menz Skin Care Contact Form" %> <% objSendMail.Send End If %> ::: MENZ SKIN CARE :::

Please contact us with the information below.

Address :
No. 133, JLN SS 17/1A, 47500 SUBANG JAYA,
SELANGOR DARUL EHSAN, MALAYSIA.
Tel : 603 - 5633 9347

email : info@healthy-beauty.com

Shop Online at : www.healthy-beauty.com/eshopping

* Your Name
* Your E-mail
Contact No
* Message		<%=txtMessage%>