Hej hopp!

Jag har följande kod, men jag får error på rad 11(SQL1 = "SELECT...) : Error Type:
ADODB.Recordset (0x800A0BB9) Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

(Fast det finns ett ID med nummer 36)

Använder Acccess och ASP

dbas1.mdb är likadan i strukturen som dbas2.com.

Tack på förhand.

<code>
<%

Const adOpenStatic = 36
Const adLockOptimistic = 36

Set Databas1 = Server.CreateObject("ADODB.Connection")
Databas1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbas1.mdb")
Set RecSet1 = Server.CreateObject("ADODB.Recordset")

SQL1 = "SELECT * FROM lankar WHERE ID = 36"
RecSet1.Open SQL1, Databas1, adOpenStatic, adLockOptimistic


Set Databas2 = Server.CreateObject("ADODB.Connection")
Databas2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dbas2.mdb")
Set RecSet2 = Server.CreateObject("ADODB.Recordset")

SQL2 = "SELECT * FROM lankar"
RecSet2.Open SQL2, Databas2, adOpenStatic, adLockOptimistic

RecSet2.AddNew

RecSet2("namn")=RecSet1("namn")
RecSet2("adress")=RecSet1("adress")
RecSet2("klick")=RecSet1("klick")

RecSet1.close
Databas1.close

RecSet2.close
Databas2.close

%>
</code>

Var har du fått dessa värden ifrån?

Const adOpenStatic = 36
Const adLockOptimistic = 36

Byt till

Const adOpenStatic = 3
Const adLockOptimistic = 3