---
title: "Kod problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87579-kod-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "centret"
published: "2003-10-03T18:22:36.000Z"
updated: "2003-10-03T18:37:01.000Z"
replies: 3
views: 211
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/87579-kod-problem"
---

# Kod problem

## #1 — centret, 2003-10-03T18:22Z

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\> 
      &gt; 
      \<% = 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&aring;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&auml;gg:\</font\>\</strong\>\</div\>\</td\>
          \<td width="67"\>\<div align="center"\>\<strong\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>L&auml;st:\</font\>\</strong\>\</div\>\</td\>
          \<td width="129"\>\<div align="center"\>\<strong\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Senaste 
              inl&auml;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"

Permalänk: https://www.webforum.nu/p/87579

## #2 — Sebbe, 2003-10-03T18:26Z

Antingen finns inte tabellen trad eller någon av kolumnerna sektion, klistrad eller senast_andrad. :)

Permalänk: https://www.webforum.nu/p/1174257

## #3 — centret, 2003-10-03T18:28Z

> **Sebbe skrev:**
>
> Antingen finns inte tabellen trad eller någon av kolumnerna sektion, klistrad eller senast_andrad. :)

Hehe oj ! Tackar så mycket för det snabba svaret, jag som vimsat till det lite  :birp

Permalänk: https://www.webforum.nu/p/1174259

## #4 — solbulle, 2003-10-03T18:37Z

Du använder variabeln nummer som en sträng, men det har du kanske insett.

Permalänk: https://www.webforum.nu/p/1174262

---

Tråden på webben: https://www.webforum.nu/amne/asp/87579-kod-problem