Vad är fel på min grej?

3 svar · 215 visningar · startad av daPhil 2 aug. 2002

daPhilMedlem sedan apr. 2001151 inlägg

Frågan2 aug. 2002 13:17#1

Här är koden:

<!-- #include file="_db/adovbs.inc" -->

<% 
	
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_guestbook/_db/guestbook.mdb")
	
	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Visa = "SELECT * FROM guestbook ORDER BY Id DESC"

  	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>    #######DET HÄR ÄR "LINE 13"

<%	Do Until RecSet.EOF %>
	
<table class="tableborder" bgcolor="dddddd" width="350" cellspacing="0">
<tr>
<td colspan="2"><%=RecSet("meddelande")%></td>
</tr>
<tr>
<td>&nbsp;</td>
</tr>
<tr bgcolor="bbbbbb">
<td>Skrivet av: <b><%=RecSet("namn")%></b></td>
<td align="right"><%=RecSet("tid")%>
</tr>
</table>
<br>

<% RecSet.MoveNext %>
<% Loop %>

Och här är felmeddelandet:

Microsoft JET Database Engine error '80040e10' 

No value given for one or more required parameters. 

/v2beta/_guestbook/guestbook.asp, line 13

solbulleMedlem sedan mars 20015 287 inlägg

2 aug. 2002 15:14#2

Stämmer sökvägen till adovbs.inc?

daPhilMedlem sedan apr. 2001151 inlägg

2 aug. 2002 15:26#3

Ja, annars klagar den på det innan.

CatZMedlem sedan jan. 20022 440 inlägg

2 aug. 2002 15:56#4

<!-- #include file="_db/adovbs.inc" -->

<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("_guestbook/_db/guestbook.mdb")
	
Set RecSet = Server.CreateObject("ADODB.Recordset")

Visa = "SELECT * FROM guestbook ORDER BY Id DESC"

[b]const adOpenStatic = 3
const adLockOptimistic = 3
[/b]
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>    #######DET HÄR ÄR "LINE 13"

<%Do Until RecSet.EOF%>

<table class="tableborder" bgcolor="dddddd" width="350" cellspacing="0">
<tr>
<td colspan="2"><%=RecSet("meddelande")%></td>
</tr>
<tr>
<td> </td>
</tr>
<tr bgcolor="bbbbbb">
<td>Skrivet av: <b><%=RecSet("namn")%></b></td>
<td align="right"><%=RecSet("tid")%>
</tr>
</table>
<br>

<% RecSet.MoveNext %>
<% Loop %>

Eller testa ta bort openstatic sakerna.....