<%

MyName=Replace(Request.Form("MyName"), "'", "''")

MyReason=Replace(Request.Form("MyReason"), "'", "''")

MyAuthorised=Request.Form("MyAuthorised")

MyDetails=Replace(Request.Form("MyDetails"), "'", "''")

MyDay=Request.Form("MyDay")

MyDate=Request.Form("MyDate")

MyMonth=Request.Form("MyMonth")

MyYear=Request.Form("MyYear")

MyPeriods=Request.Form("MyPeriods")

MyCover=Request.Form("MyCover")

MyFaculty=Request.Form("MyFaculty")

MyEmail=Request.Form("MyEmail")

 

if MyName="" then MyName=" "

if MyReason="" then MyReason=" "

if MyAuthorised="" then MyAuthorised=" "

if MyDetails="" then MyDetails=" "

if MyDay="" then MyDay=" "

if MyDate="" then MyDate=" "

if MyMonth="" then MyMonth=" "

if MyYear="" then MyYear=" "

if MyPeriods="" then MyPeriods=" "

if MyCover="" then MyCover=" "

if MyFaculty="" then MyFaculty=" "

if MyEmail="" then MyEmail=" "

 

 

 

Set MyConn=Server.CreateObject("ADODB.Connection")

ConnStr="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Absence.mdb")

 

 

SQL = "Insert Into TblMain (Name, Reason, Authorised, " _ 

& "Details, Day, Dte, " _ 

& "Month, Year, Periods, " _ 

& "Cover, FacultyAware, Email) Values ('"&MyName&"', '"&MyReason&"', '"&MyAuthorised&"', " _ 

& "'"&MyDetails&"', '"&MyDay&"', '"&MyDate&"', " _ 

& "'"&MyMonth&"', '"&MyYear&"', '"&MyPeriods&"', " _ 

& "'"&MyCover&"', '"&MyFaculty&"', '"&MyEmail&"')"

 

MyConn.Open connStr

MyConn.Execute (SQL)

MyConn.Close

Set MyConn = Nothing

I get this error message and i dunno why!

 

 

Microsoft OLE DB Provider for ODBC Driverserror '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /causeforconcern/submission7f.asp, line 42

Please help!

Here is a link to Microsoft's knowledge base article 175168 which seems to address the problem.
http://support.microsoft.com/default...;en-us;q175168

This can usually be fixed by simply modifying the permissions on the database (.mdb) and the folder that it's in. They must be writable by everyone.