Cannot Update MS Access Database From ASP File

Can someone tell me how to get that inline frame inside the message for the code so it doesnt take up too much spaces.

I could not get the MS Access database to update from ASP when a user update the moditfied information. When clicking the 'save' button, it suppose to update the changes. Also, the 'delete' button is suppose to delete a record but it doesn't delete. It just reload the page with the original information and no error message is produced. I checked the permission of the database to 'read/write' but didnt seem to have any affect. Then I checked the code to match up to the field name in the database. I am moditfing the code that was used for same concept except this will have long list of people.


[CODE]<%

dim RstSave 'As ADODB.Recordset
dim frmItem 'As Request.Form.Item

'*** Debug Line ***'Response.Write Request.Form("cmdTopic")

select case Request.Form("cmdTopic")

'***** Paragraph Text *****

case "Edit Paragraph Text"

if len(Request.Form("cmdSaveRec")) > 0 then

Set RstSave = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM tblText ORDER BY ID;"

RstSave.Open SQL, Conn, 3, 2

if RstSave.BOF and RstSave.EOF then

else
RstSave.MoveFirst
'Step thru Recordset
'*** Debug Line ***'Response.Write "Starting Recordset<BR>"
do While not RstSave.EOF
'Check each Item returned by the Form
'*** Debug Line ***'Response.Write "ID: " & RstSave("ID") & "<BR>"
for each frmItem in Request.Form
'Is it a Record?
'*** Debug Line ***'Response.Write "IsNumeric Results: " & Isnumeric(mid(frmItem,6)) & "<BR>"
if isnumeric(mid(frmItem,6)) then
'Does it Match the Current Record?
'*** Debug Line ***'Response.Write "ID: " & RstSave("ID") & "-" & mid(frmItem,6) & " = 0 ?: " & (RstSave("ID") - Cint(mid(frmItem,6))) = 0 & " <BR>"
if RstSave("ID") = Cint(mid(frmItem,6)) then
'*** Debug Line ***'Response.Write "Saving Record with ID: " & RstSave("ID") & " | " & Request.Form(frmitem) & " | " & Clng(Request.Form("txtHT" & mid(frmitem,6))) & "<BR>"
'Write the Form Field to the Recordset
RstSave("Text") = Request.Form("txtID" & mid(frmitem,6))
RstSave.Update
end if
end if
next
RstSave.MoveNext
loop
end if
RstSave.Close
set RstSave = Nothing
end if

'***** Patient Services *****

case "Edit Patient Services"

if len(Request.Form("cmdSaveRec")) > 0 then

Set RstSave = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM tblPatientServ ORDER BY ID;"

RstSave.Open SQL, Conn, 3, 2

if RstSave.BOF and RstSave.EOF then

else
RstSave.MoveFirst
'Step thru Recordset
'*** Debug Line ***'Response.Write "Starting Recordset<BR>"
do While not RstSave.EOF
'Check each Item returned by the Form
'*** Debug Line ***'Response.Write "ID: " & RstSave("ID") & "<BR>"
for each frmItem in Request.Form
'Is it a Record?
'*** Debug Line ***'Response.Write "IsNumeric Results: " & Isnumeric(mid(frmItem,10)) & "<BR>"
if isnumeric(mid(frmItem,10)) then
'Does it Match the Current Record?
'*** Debug Line ***'Response.Write "ID: " & RstSave("ID") & "-" & mid(frmItem,6) & " = 0 ?: " & (RstSave("ID") - Cint(mid(frmItem,6))) = 0 & " <BR>"
if RstSave("ID") = Cint(mid(frmItem,10)) then
'*** Debug Line ***'Response.Write "Saving Record with ID: " & RstSave("ID") & " | " & Request.Form(frmitem) & " | " & Clng(Request.Form("txtHT" & mid(frmitem,6))) & "<BR>"
'Write the Form Field to the Recordset
RstSave("Service") = trim(Request.Form("txtServID" & mid(frmitem,10)))
RstSave("Description") = trim(Request.Form("txtID" & mid(frmitem,10)))
RstSave.Update
end if
end if
next
RstSave.MoveNext
loop
end if
RstSave.Close
set RstSave = Nothing
end if

'***** Physician Directory *****

case "Edit Physician Directory"

if len(Request.Form("cmdSaveRec")) > 0 then

Set RstSave = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM tblDoctor ORDER BY ID;"

RstSave.Open SQL, Conn, 3, 2

if RstSave.BOF and RstSave.EOF then

else
RstSave.MoveFirst
'Step thru Recordset
'*** Debug Line ***'Response.Write "Starting Recordset<BR>"
do While not RstSave.EOF
'Check each Item returned by the Form
'*** Debug Line ***'Response.Write "ID: " & RstSave("ID") & "<BR>"
for each frmItem in Request.Form
'Is it a Record?
'*** Debug Line ***'Response.Write "IsNumeric Results: " & Isnumeric(mid(frmItem,13)) & "<BR>"
if isnumeric(mid(frmItem,13)) then
'Does it Match the Current Record?
'*** Debug Line ***'Response.Write "ID: " & RstSave("ID") & "-" & mid(frmItem,13) & " = 0 ?: " & (RstSave("ID") - Cint(mid(frmItem,13))) = 0 & " <BR>"
if RstSave("ID") = Cint(mid(frmItem,13)) then
'*** Debug Line ***'Response.Write "Saving Record with ID: " & RstSave("ID") & " | " & Request.Form(frmitem) & " | " & Clng(Request.Form("txtHT" & mid(frmitem,13))) & "<BR>"
'Write the Form Field to the Recordset
RstSave("LName") = trim(Request.Form("txtLName" & mid(frmitem,13)))
RstSave("FName") = trim(Request.Form("txtFName" & mid(frmitem,13)))
RstSave("Title") = trim(Request.Form("txtTitle" & mid(frmitem,13)))
RstSave("DEPT") = trim(Request.Form("txtDEPT" & mid(frmitem,13)))
RstSave("Phone") = trim(Request.Form("txtPhone" & mid(frmitem,13)))
RstSave.Update
end if
end if
next
RstSave.MoveNext
loop
end if
RstSave.Close
set RstSave = Nothing
end if

end select
%>[CODE]