Good Example Given Above To Get Started. The following is a sample of code I use that may be of some help. It works well with my Access 2000 Database web pages.
This Code Is In My Include File:
'====================================================================
' Database connection string '
Sub OpenDB
Set connCP = server.createobject("adodb.connection")
dbName="/Accounting/Maintenance/Database/CP_Data.mdb"
connectCP ="provider=microsoft.jet.oledb.4.0;data source="
connectCP=connectCP & server.mappath(dbName)& ";"
connCP.open connectCP
End Sub
'====================================================================
'Clean Up
Sub CloseDB
Set rsCP = Nothing
Set connectCP = Nothing
Set SQLstmtCP = Nothing
connCP.close
Set connCP = Nothing
Set dbName = Nothing
End Sub
'====================================================================
This Call Is In A "NEW / EDIT / DELETE Record Form" Submit page:
'====================================================================
'Capture Data From Vendor Edit / New Form
DIM ChargeID
DIM Ingredient
DIM UnitOfMeasure7Inch
DIM UnitOfMeasure12Inch
DIM UnitCost7Inch
DIM UnitCost12Inch
DIM DateLastChange
RecordAction = request.form("RecordAction")
ChargeID = request.form("ChargeID")
Ingredient = ucase(replace(request.form("Ingredient"),"'","''"))
UnitOfMeasure7Inch = request.form("UnitOfMeasure7Inch")
UnitOfMeasure12Inch = request.form("UnitOfMeasure12Inch")
UnitCost7Inch = request.form("UnitCost7Inch")
UnitCost12Inch = request.form("UnitCost12Inch")
DateLastChange = request.form("DateLastChange")
'====================================================================
Call OpenDB
'====================================================================
If RecordAction = "AddNew" Then 'Add New Record
SQLstmtCP = "INSERT INTO ChargeTable (Ingredient,UnitOfMeasure7Inch,UnitOfMeasure12Inch,UnitCost7Inch,UnitCost12Inch,DateLastChange)"
SQLstmtCP = SQLstmtCP & " VALUES ("
SQLstmtCP = SQLstmtCP & "'" & Ingredient & "',"
SQLstmtCP = SQLstmtCP & "'" & UnitOfMeasure7Inch & "',"
SQLstmtCP = SQLstmtCP & "'" & UnitOfMeasure12Inch & "',"
SQLstmtCP = SQLstmtCP & "'" & UnitCost7Inch & "',"
SQLstmtCP = SQLstmtCP & "'" & UnitCost12Inch & "',"
SQLstmtCP = SQLstmtCP & "'" & DateLastChange & "'"
SQLstmtCP = SQLstmtCP & ")"
Set rsCP = connCP.execute(SQLstmtCP)
ElseIf RecordAction = "EditRecord" Then 'Update Edited Record
SQLstmtCP = "UPDATE ChargeTable"
SQLstmtCP = SQLstmtCP & " SET Ingredient='" & Ingredient &"',"
SQLstmtCP = SQLstmtCP & "UnitOfMeasure7Inch='" & UnitOfMeasure7Inch &"',"
SQLstmtCP = SQLstmtCP & "UnitOfMeasure12Inch='" & UnitOfMeasure12Inch &"',"
SQLstmtCP = SQLstmtCP & "UnitCost7Inch='" & UnitCost7Inch &"',"
SQLstmtCP = SQLstmtCP & "UnitCost12Inch='" & UnitCost12Inch &"',"
SQLstmtCP = SQLstmtCP & "DateLastChange='" & DateLastChange &"'"
SQLstmtCP = SQLstmtCP & " WHERE ChargeID=" & ChargeID
Set rsCP = connCP.execute(SQLstmtCP)
ElseIf request.querystring("RecordAction") = "DelRecord" Then 'Delete Record
ChargeID = request.querystring("ChargeID")
SQLstmtCP = "DELETE * from ChargeTable WHERE ChargeID=" & ChargeID
Set rsCP = connCP.execute(SQLstmtCP)
End If
Call CheckErrors
Call CloseDB
Response.Redirect "Charges.asp"
'====================================================================