<%
On Error Resume Next
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("testDB.mdb"),"" , ""
strSQL = ""
strSQL = strSQL &"INSERT INTO test (test1,test2) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtT")&"','"&Request.Form("txtY")&"' )"
Set objExec = Conn.Execute(strSQL)
If Err.Number = 0 Then
Response.write("Save Done.")
Else
Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>