4 svar · 322 visningar · startad av larsson
Denna koden skriver den ut :
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/trmkart/andra3.asp, line 11
Och koden ser ut så här :
<html><title>Roger</title>
<body text="#000000" link="#000000" vlink="#000000" alink="#FF0000" bgcolor="#21FA66">
<b>Redigera bland annonserna !</b>
<hr noshade size="1">
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\trmkart\db\annons.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM klader ORDER BY Datum"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
Följande annonser finns att redigera.\<p\>
\<ul\>
<% Do Until RecSet.EOF %>
\<li\>
\<% =RecSet("Datum") %\> \<b\>
\<% =RecSet("Namn") %\>\</b\>\<br\>
\<% =RecSet("Tele") %\>\<br\>
\<% =RecSet("Mobil") %\>\<br\>
\<% =RecSet("Fax") %\>\<br\>
\<% =RecSet("Epost") %\>\<br\>
\<% =RecSet("Annons") %\>\<br\>
\<a href="redigera9.asp?adressID=\<% =RecSet("ID") %\>"\>Redigera denna annonsen\</a\>
\<hr noshade size="1" width="250" align="left"\>
<% RecSet.MoveNext
Loop
RecSet.Close %>
</ul>
<br>
<br>
<br>
Köpes<br>
<hr noshade size="1">
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\trmkart\db\annons.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM kladerk ORDER BY Datum"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
Följande annonser finns att redigera.\<p\>
\<ul\>
<% Do Until RecSet.EOF %>
\<li\>
\<% =RecSet("Datum") %\> \<b\>
\<% =RecSet("Namn") %\>\</b\>\<br\>
\<% =RecSet("Tele") %\>\<br\>
\<% =RecSet("Mobil") %\>\<br\>
\<% =RecSet("Fax") %\>\<br\>
\<% =RecSet("Epost") %\>\<br\>
\<% =RecSet("Annons") %\>\<br\>
\<a href="redigera11.asp?adressID=\<% =RecSet("ID") %\>"\>Redigera denna annonsen\</a\>
\<hr noshade size="1" width="250" align="left"\>
<% RecSet.MoveNext
Loop
RecSet.Close %>
</ul>
</body>
</html>
Välkommen... :)
Felet ligger på raden 11 som har detta innehåll:
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
Och vad jag kan se så ger du inte RecSet någon sökväg till databasen... Connect är ju ingenting när du försöker öppna kopplingen...
------------------
It's not that I'm afraid to die. I just don't want to be there when it happens.
Kom hem till mig...
[Redigerat av Vide den 22 nov 2000]
Som sagt.
Ändra:
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
Till:
RecSet.Open Visa, Conn, adOpenStatic, adLockOptimistic
Dessutom har du ingen hänvisning till ADO-konstanterna, så lägg till:
Const adOpenStatic = 3
Const adLockOptimistic = 3
/J
tips:
om man kastar in option explicit överst i sin kod så slipper man sånt här trassel, eftersom tolken på en gång skulle bråka på att connect inte är definierad.
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
that's what brian boitano would do!</A>
