4 svar · 208 visningar · startad av qwerty
Tjena!
Har lite trubbel...
Får följande felmess. Nån som ser problemet. Jag har markerat rad 19 i koden.
Tack på förhand!
Felmeddelande
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/katalog/add.asp, line 19
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nyheter"
RS.Open SQL, Connect, adOpenStatic, adLockOptimistic 'line 19
RS.AddNew
RS("rubrik") = Request.Form("rubrik")
RS("text") = Request.Form("text")
RS("datum") = Request.Form("nu")
RS.Update
RS.Close
Connect.Close %>
Har du glömt att inkludera adovbs.inc på sidan, och inte definierat de konstanterna du använder? Har du skapat Connect?
Jag rekommenderar att du inte inkluderar adovbs, utan definierar konstanterna i den här asp-filen, eller använder konstanternas värden direkt.
Mvh,
ehh...
tack, tror jag.
Red gärna ut begreppen lite. Det där med konstanter fattade jag inte riktigt.
Postar mer utförlig kod nedan
Set Connect = Server.CreateObject("ADODB.Connection")
connect.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../db/artiklar.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM news"
RS.Open SQL, Connect, adOpenStatic, adLockOptimistic
RS.AddNew
RS("rubrik") = Request.Form("rubrik")
RS("text") = Request.Form("text")
RS("datum") = Request.Form("nu")
RS.Update
RS.Close
Connect.Close %>
Det finns en fil som heter adovbs.inc som ska inkluderas där
"adOpenStatic" är lika med "3"
och
"adLockOptimistic" är lika med "3" den också..
Denna fil innehåller även en massa skit som man inte behöver. Sånt som lämnas orört.. därför kan du använda nuffrorna istället..
Testa byta
RS.Open SQL, Connect, adOpenStatic, adLockOptimistic
mot
RS.Open SQL, Connect, 3, 3
O så ökar vi prestandan lite. ;)
Set Connect = Server.CreateObject("ADODB.Connection")
connect.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../db/artiklar.mdb")
SQL = "INSERT INTO news (rubrik,text,datum) VALUES('" & Request.Form("rubrik") & "','" & Request.Form("text") & "',#" & Request.Form("nu") & "#)"
connect.execute(SQL),,128
set connect = nothing