<% Dim MenuConn dim rstForm dim cmdForm Set MenuConn= Server.CreateObject("ADODB.Connection") MenuConn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("hilltorchDB.mdb") 'MenuConn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\webproject\hilltorchDB.mdb" MenuConn.Open Set cmdForm= Server.CreateObject("ADODB.Command") Set rstForm= Server.CreateObject("ADODB.Recordset") xstcomments = request.form("stcomments") xstcontact = request.form("stcontact") xstreferral = request.form("streferral") xstfullname = request.form("stfullname") xstemail = request.form("stemail") xstphone = request.form("stphone") xdayval = request.form("xdayval1") xmonthval= request.form("xmonthval1") xYearval= request.form("xYearval1") xstformdate = cstr(xdayval) + "/" + cstr(xmonthval) + "/" + cstr(xYearval) %>

Support / Feedback Page

We would love to know what you think about our website, our services, our firm or anything else that comes to mind. Your comments and suggestions are welcome.

Please enter your comments in the space provided below

 
Question or Comment:
How did you get to know about us?
If referral, by who?
How do we get in touch with you?
  
Full Name:
E-mail:
Telephone
Date
 / /
   

<% if xstcomments <> "" then IF request.form("Message") = "True" THEN xDate = Date xTime = Time 'Set cmdForm.ActiveConnection = MenuConn 'Set rstForm = cmdForm.Execute cmdForm.CommandText = "Insert into tblsupport (Comments, Contact, Referral, Fullname, Phone, Email, Formdate,DatePosted,TimePosted) " _ & "Values ('" & xstcomments & "','" & xstcontact & "','" & xstreferral & "','" & xstfullname & "','" & xstphone & "','" & xstemail & "','" & xstformdate & "','" & xDate & "','" & xTime & "')" Set cmdForm.ActiveConnection = MenuConn 'Response.write cmdEtcc.CommandText cmdForm.Execute Response.Redirect("response.html") end if 'Response.write "Record Successfully Inserted into tblsupport" End if %>