<%
Dim strQuery
'First, lets check and see if this is the first time through
'or the second time through.
If Request.Form("Name") <> "" Then
'Second time through
' Set up a data connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.MapPath("/") & "\db\delrmlst.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=16;PageTimeout=5;SafeTransactions=0;UID=admin;UserCommitSync=Yes;"
strQuery = "INSERT INTO delrtble (Post_Date,Post_Time,Name,add,add2,city,state,zip,phone,dob,email,crfttype,comment) VALUES (FORMAT(DATE(),'MM/DD/YYYY'),FORMAT(TIME(),'HH:MM AMPM'),'" & Trim(Request.Form("Name")) & "','" & Trim(Request.Form("add")) & "','" & Trim(Request.Form("add2")) & "','" & Trim(Request.Form("city")) & "','" & Trim(Request.Form("state")) & "','" & Trim(Request.Form("zip")) & "','" & Trim(Request.Form("phone")) & "','" & Trim(Request.Form("dob")) & "','" & Trim(Request.Form("email")) & "','" & Trim(Request.Form("crfttype")) & "','" & Trim(Request.Form("Comment")) & "')"
Set RS = conn.Execute(strQuery)
Conn.Close
%>
