CIS 282 ASP Database Examples

This EXAMPLE use an Access database named 282data.mdb with one table named myTable with the following structure:

CONNECTION STRING

<%
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/282/282data.mdb") & ";"
%>

INCLUDE FILE

<!-- #INCLUDE FILE="adovbs.inc" -->

LIST ALL RECORDS (282AspDbExample-listAll.asp)

 

 

LIST SPECIFIC RECORDS (282AspDbExample-listThese.asp)

 

 

ADD RECORDS (282AspDbExampleAddForm.htm & 282AspDbExample-add.asp)

Dim objRecordset
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.CacheSize = 9999
objRecordset.Source = "testtable"
objRecordset.ActiveConnection = DB_CONNECTIONSTRING
objRecordset.LockType = adLockPessimistic
objRecordset.CursorType = adOpenKeyset
objRecordset.Open
objRecordset.AddNew
objRecordset.Fields("FirstName")=requests.Form(FirstName)
objRecordset.Fields("LastName")=requests.Form(LastName)
objRecordset.Fields("Phone")=requests.Form(Phone)
objRecordset.Fields("Age")=val(requests.Form(Age))
objRecordset.Fields("Member")=requests.Form(Member)
objRecordset.Fields("HobbyFishing")=requests.Form(HobbyFishing)
objRecordset.Fields("HobbyComputers")=requests.Form(HobbyComputers)
objRecordset.Fields("BornInState")=requests.Form(BornInState)
objRecordset.Update
objRecordset.Close
set objRecordset = nothing

EDIT RECORDS (282AspDbExample-Edit.asp)

 

 

DELETE RECORDS (282AspDbExample-Delete.asp)