Har följande kod: Har du infogat filen adovbs.inc på sidan? om inte så gör det annars kan du ändra RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic Kör med INSERT INTO istället, då slipper du öppna ett RecSet och vinner en del tid på det... Bara en tanke...Update!
<code>
<%If Request.QueryString("post") = "news" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../Databas/databas.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Nyhet") = Request.Form("news")
RecSet("User") = Session("User")
RecSet("Datum") = date()
RecSet("Tid") = FormatDateTime(Now, 4)
RecSet.Update
RecSet.Close
Connect.Close
End If
</code>
Har nästa samma kod i en annan sektion och då funkar det, nu får ja följande fel:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/main/news.asp, line 27
Line 27: RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic Sv: Update!
till RecSet.Open Addera, Connect, 3, 3
//Tomas Sv: Update!