Trådstart#1 Vad har jag gjort för fel?
<%
Set rec = Server.CreateObject("ADODB.Connection")
rec.open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("edit.mdb") & ";UID=Erik Juhlin;PWD=;"
sql = "SELECT * From tblMp2d WHERE 1 = 2"
Set rs = rec.execute(sql)
Set rec = Nothing
rs.AddNew
rs("Mp2dText") = Request("mintext")
rs("Mp2dDate") = Now
rs.Update
rs.Close
Response.Redirect "default.asp"
%>
Feltyp:
ADODB.Recordset (0x800A0CB3)
Objektet eller providern kan inte utföra den begärda åtgärden.
/mp2d/new/edit.asp, line 10
LLarsGMedlem sedan dec. 200012 464 inlägg Du använder recordset för att göra insert. Väldigt onödigt. Om du gör
set rs = conn.execute(sql)
så får du ett recordset som är readonly. Om man nu absolut vill ändra via recordset så får man använda open och sätta en bra cursortyp. Titta här i så fall.
http://msdn.microsoft.com/library/default.asp?URL=/library/psdk/dasdk/mdam4tgu.htm
Om man vill ha anseende och respekt i vissa kretsar så använder man sig av insert i SQL för att lägga till nya poster.
<%
Set rec = Server.CreateObject("ADODB.Connection")
rec.open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("edit.mdb") & ";UID=Erik Juhlin;PWD=;"
sql = "insert into tblMp2d " & _
"(mp2dtext,mp2ddate) values('" & _
Request("mintext") & "',now())"
rec.execute sql,,128
rec.close
set rec = nothing
Response.Redirect "default.asp"
%>
Äh, jag löste det så här istället. 
<%
Set Mp2dCon = Server.CreateObject("ADODB.Connection")
Mp2dCon.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("edit.mdb") & ";UID=Erik Juhlin;PWD=;"
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * From tblMp2d WHERE 1 = 2"
rs.Open sql, Mp2dCon, 1, 2
Set Mp2dCon = Mp2dCon
rs.AddNew
rs("Mp2dText") = Request("mintext")
rs("Mp2dDate") = Now
rs.Update
rs.Close
Response.Redirect "default.asp"
%>
