<% 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\menzspa.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@menzspa.com" objSendMail.Cc = "menzspa@yahoo.com" objSendMail.BodyFormat = 0 'HTML Format objSendMail.MailFormat = 0 'HTML Format objSendMail.Body = HTML objSendMail.Subject = "Menzspa Enquiry/Booking Form" %> <% objSendMail.Send End If %> ::: MenzSpa :::
















* Your Name
  
 
* Your E-mail
   
Contact No
    
* Message
  
   


 Copyright © 2007 menzspa.com . All Rights Reserved.