Hi every body.

PROBLEM----------
ODBS DRIVER ERROR
DATABASE OR OBJECT IS READONLY




CODE----------------------------------------

db=Server.MapPath("MyStore.mdb")

Provider=MSDASQL & "Mode = Read|Write" & "DBQ=" & db & ";Driver={Microsoft Access Driver (*.mdb)}" & "DSN='MYSTORE' " & "UserCommitSync='Yes' "
set conn=server.createobject("adodb.connection")

conn.open session("dblog")

Set rsproducts = Server.CreateObject("ADODB.Recordset")
IPN=REQUEST.FORM("TXTIPN")
sSQL = "SELECT * FROM products where itemproductnumber like '" & _
IPN & "'"

rsproducts.open sSQL ,conn,adOpenStatic ,adLockOptimistic ,adcmdtext

if not rsproducts.EOF then
Response.Write "The Record Already Exist"
Response.Write vbcrlf
Response.Write "<a href='addprod.asp'>Add Different ItemProductNumber</a>"

else





rsproducts.addnew

rsproducts("RetailerName") = request.form("txtrn")
rsproducts("itemproductnumber") = request.form("txtipn")
rsproducts("itemname") = request.form("txtin")
rsproducts("ItemPictureFile") = request.form("txtpfn")
rsproducts("itemdescription") = request.form("txtid")
rsproducts("itemregularprice") = request.form("txtirp")
rsproducts("itemsaleprice") = request.form("txtisp")
rsproducts("itemstockquantity") = request.form("txtisq")
rsproducts("beginspecial") = Request.form ("txtbs")
rsproducts("endspecial") = request.form("txtes")
rsproducts.update
rsproducts.close
set rsproducts=nothing
set conn=nothing

end if
--------------------

Please Help..