Jag ska lägga till data i en databas men det går inte.....
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access] Operationen måste använda en fråga som kan uppdateras.
/kod.asp, line 36
Kod:
<%
'Programmerad av Micke Andersson © MickeA.com 2003
'______________________________________
'Deklarerar Variabler
Option explicit
Dim namn, mail, datum, msg, SQL, Connect, oRecordset
'______________________________________
'Skapar en koppling till databasen
Set Connect = server.createobject("ADODB.connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/databas.mdb")
'______________________________________
'Samlar den data man matat in från formuläret i variabler
namn = request.form("namn")
mail = request.form("epost")
datum = date()
msg = request.form("msg")
'______________________________________
'Sätter SQLfrågan som ska ställas till databasen
SQL = "INSERT INTO data (namn, epost, datum, meddelande) Values ('"& namn &"', '"& mail &"', '"& datum &"', '"& msg &"');"
'______________________________________
'Skapar objektet för att kommunicera med databasen, ett sk."Recordset"
Set oRecordset = server.createobject("ADODB.recordset")
'______________________________________
'Säger åt scriptet att SQLfrågan ska köras
Set oRecordset = Connect.Execute(SQL)
oRecordset.Update
'______________________________________
'Stänger databaskopplingen
Connect.Close
'______________________________________
'Skickar in en variabel i flash som säger att scriptet är färdigkört.
Response.Write("&loaded=true")
%>
###############################################
Set oRecordset = server.createobject("ADODB.recordset") är på rad 31!
HJÄÄÄÄÄÄÄÄÄÄÄÄLP!!!!!!!!!!!!!!!!!