hi i am having same problems also, heres my code doe sanyone have a clue?
<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
If Session("UserLoggedIn") <> "true" Then
Response.Redirect("default.asp")
End If
if Session("logId")<>1 then
Response.write "<b>You are not Authorized to Manage Users</b>"
else
%>
<center>
<h1>Enter New Subject</h1><br><br>
<%
a=0
for each item in request.form
if request.form(item)="" then
a=a+1
end if
next
if a>0 then
response.write "Please fill all fields"
%>
<h3> <A href="javascript
:history.back()"
onclick="history.back();return false">Go Back</A> </h3>
<%
else
Dim con, sConnString
dim i, rs,rs2
set con=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("../mmu.mdb") & ";"
con.Open(sConnString)
rs.open "select * from tblTimeTable where lcase(subjid)='" & lcase(trim(request.form("txtSubj"))) & "'",con,3,3
if rs.recordcount>0 then
response.write "<b>Subject Already exist, please try to modify the existing subject</b>"
%>
<h3> <A href="javascript
:history.back()"
onclick="history.back();return false">Go Back</A> </h3>
<%
else
rs2.open "select * from tblTimeTable",con,3,3
rs2.addnew
rs2("subjid")=trim(request.form("txtSubj"))
rs2("mon")=trim(request.form("txtMon"))
rs2("tue")=trim(request.form("txttue"))
rs2("wed")=trim(request.form("txtWed"))
rs2("thur")=trim(request.form("txtThu"))
rs2("fri")=trim(request.form("txtFri"))
rs2("sat")=trim(request.form("txtSat"))
rs2("sun")=trim(request.form("txtSun"))
rs2.update
response.write "<b>New Subject Info entered Successfully</b>"
rs2.close
set rs2=nothing
end if
rs.close
set rs=nothing
con.close
set con=nothing
end if
end if
%>
<br><br>
<a href=admin.asp>Admin Home</a></center
heres my error message
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/admin/ttblenterok.asp, line 74
BUT IV MADE SURE THAT THERE ARE NO LOCKS ON IT. PLEASEEEE HELP.
can't insert in db
