<% If Request.Form("action") = "Save Form Data" Then comment = Request.Form("comment") email = Request.Form("email") strProv="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\data\auztech.mdb") '& "auztech.mdb;" set msg = Server.CreateObject("ADODB.Recordset") msg.Open "data", strProv, 1, 3, 2 msg.addnew msg("email")= email msg("info")= comment msg.Update msg.Close set msg = Nothing End If %>
       
         
info@auztech.com >>
Time:

 

 

 

 

 

<% If Request.Form("action") = "Save Form Data" Then response.write("Your input is appreciated") else response.write("Comments or queries ... ?") End If %>

e-mail: (optional)