Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/vogne_view_selected.asp, line 204
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database
Dim lngRecordNo 'Holds the record number to be updated
'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"
'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT * FROM vogne WHERE id_no=" & lngRecordNo
'Open the recordset with the SQL query
rsGuestbook.Open strSQL, adoCon
%>
<html>
<head>
<title>View_selected</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#F9F9F9" text="black">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber2" bgcolor=#eeeeee>
<tr>
<td width="100%" class=head align=center>
Artikelnr=<% = rsGuestbook("artikelnr") %>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber2">
<tr>
<td width="100%" class=text1 align=left>
<a href="vogne_view.asp?sort=producent asc">
Tilbage
</a>
</td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-width:0px; border-collapse: collapse" width="530" id="table2" bordercolor="#000000">
<tr>
<td colspan="3" bgcolor=#d7dadf align=center class="text1" style="border-left-color: #000000; border-left-width: 1px; border-right-color: #000000; border-right-width: 1px; border-top-color: #000000; border-top-width: 1px">
<b><% '= rsGuestbook("overskrift") %></b></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">
Artikelnr</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
:<% = rsGuestbook("Artikelnr") %></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">
Producent</td>
<td class="text1" style="border-style: none; border-width: medium" >
:<% = rsGuestbook("producent") %></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Beskrivelse</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
:<% = rsGuestbook("beskrivelse") %></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">Litrering</td>
<td class="text1" style="border-style: none; border-width: medium" >
:<% = rsGuestbook("Litrering") %></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Farve</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("farve")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">Aksler</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("Aksler")%></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Selskab</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("Selskab")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">Art</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("Art")%></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">UnderArt</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("Underart")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">Epoke</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("Epoke")%></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Fotourl</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("fotourl")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">udgivelsesår</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("Udgivelsesaar")%></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Beskrivelse</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("xbeskrivelse")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">Spor</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("Spor")%></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Land</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("Land")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">Link</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("Link")%></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Katalogår</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("Katalogaar")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">Oprettet d.</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("Dato")%></td>
</tr>
<tr>
<td class="text1" bgcolor=#eeeeee width="30%" style="border-style: none; border-width: medium">Oprettet kl</td>
<td class="text1" bgcolor=#eeeeee style="border-style: none; border-width: medium" >
: <%=rsguestbook("Tid")%></td>
</tr>
<tr>
<td class="text1" width="30%" style="border-style: none; border-width: medium">IP</td>
<td class="text1" style="border-style: none; border-width: medium" >
: <%=rsguestbook("IP")%></td>
</tr>
</table>
</div>
<br>
<br>
<center>
<img src="images/530px.gif" align="textTop" width="530" height="1"></td>
</center>
</font>
<%
sql = "SELECT count(id_nr) as antal FROM brugersvogne WHERE VognID=" & lngRecordNo &" AND BrugerID=" & Session("UserID")
set rscount = adoCon.Execute(sql)
antal = rscount("antal")
set rscount = nothing
If antal > 0 Then
Response.write ("Er I din samling")
Else
Response.Write ("<a href=""tilfoj_brugersvogn.asp?ID=" & rsGuestbook("ID_no") & """>")
Response.write ("<FONT size=1 face=verdana>Tilføj vogn til min samling</FONT>")
Response.Write ("</a>")
End If
%>
</body>
</html>
</font>
<%
'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>
Ny bruger
Nybegynder
Opret
Preview
