Hej jag får detta felmeddelande när jag försöker köra min databas:
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
/forum/sektion.asp, line 82
Här är koden:
<!-- #include virtual="../adovbs.inc" -->
<%
Select Case Request.querystring("sektion")
case 0
If session("admin") = "" then
response.Redirect("forum.asp")
else
sektion = "Admin Forumet"
nummer = "0"
end if
case 1
sektion = "Mötesplatsen - mingelforumet"
nummer = "1"
case 2
sektion = "Datorer - Allmänt > Hårdvaru Forumet"
nummer = "2"
case 3
sektion = "Datorer - Allmänt > Programering / Webbdesign"
nummer = "3"
case 4
sektion = "Hetast > Ekonomi"
nummer = "4"
case 5
sektion = "Hetast > Länkar & nyheter"
nummer = "5"
case 6
sektion = "Hetast > Sport & odds"
nummer = "6"
case 7
sektion = "Intresseklubben > Bil & motor"
nummer = "7"
case 8
sektion = "Intresseklubben > Foto & bild"
nummer = "8"
case 9
sektion = "Intresseklubben > Musik & instrument"
nummer = "9"
case 10
sektion = "Intresseklubben > Mode & livsstil"
nummer = "10"
case else
Response.Redirect("forum.asp")
end Select
%>
<html>
<head>
<title>Forum > <% =sektion %>
</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
-->
</style>
<link href="forum.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#E3E4E4"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="forum.asp" class="forumlink"><font color="#000000">Forum</font></a>
>
<% = sektion %>
</font> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#D5D3C1">
<td height="13" colspan="3" bgcolor="#D5D3C1"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Tråd:</font></strong></div></td>
<td width="144"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Skapad
av:</font></strong></div></td>
<td width="67"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Inlägg:</font></strong></div></td>
<td width="67"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Läst:</font></strong></div></td>
<td width="129"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Senaste
inlägg:</font></strong></div></td>
</tr>
<%
'börjar hämta trådar
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\databaser\forumdbase.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Hemta = "SELECT * FROM TRAD WHERE sektion='" & nummer & "' ORDER BY klistrad, senast_andrad"
RecSet.Open Hemta, Connect, adOpenStatic, adLockOptimistic
Do Until i = 20 or RecSet.eof
%>
<tr bgcolor="#ECECE8">
<td width="27" bgcolor="#ECECE8"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><% =RecSet("klistrad") %></font></td>
<td width="27" bgcolor="#ECECE8"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><img src="forumikoner/<% =RecSet("ikon") %>.gif" width="25" height="25"></font></td>
<td width="573" bgcolor="#ECECE8"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><A href="las.asp?id=<% =RecSet("ID")%>" title="<% =RecSet("text") %>">
<% =RecSet("titel") %>
</A></font></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% =RecSet("av") %>
</font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% =RecSet("inlagg") %>
</font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% =RecSet("last") %>
</font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% =RecSet("senast") %>
</font></div></td>
</tr>
<%
RecSet.MoveNext
i = i + 1
Loop
RecSet.Close
Connect.close
%>
</table></td>
</tr>
</table>
</body>
</html>
Jag har kollat på detta hur lång tid som helst och begriper inte vad som är felet. Jag tror inte felet ligger i databasen för det slutade att fungera när jag skrev vidare på koden. Och jag har även provat att göra om databasen.
Någon som ser vad det är jag missat?
rad 81: Hemta = "SELECT * FROM TRAD WHERE sektion='" & nummer & "' ORDER BY klistrad, senast_andrad"