---
title: "Konstigt Felmeddelande!!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7914-konstigt-felmeddelande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jacek"
published: "2001-01-29T12:33:00.000Z"
updated: "2001-01-29T18:08:00.000Z"
replies: 7
views: 174
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/7914-konstigt-felmeddelande"
---

# Konstigt Felmeddelande!!!

## #1 — Jacek, 2001-01-29T12:33Z

Tjo håller på med en liten länk tjafs till min sida.. Min kod ser ut så här:

\<%

set conn=server.createobject("adodb.connection")
path="DBQ=" & server.mappath("../db/tidningen.mdb")
conn.open "driver={microsoft access driver (\*.mdb)}; " & path,"name","name"

namnsdag = "SELECT namn1,namn2 FROM Namnsdag WHERE Manad = "&Month(Date)&" and Dag = "&Day(Date)&""
Set namnsdag = Conn.Execute(namnsdag)

SQLStmt = "SELECT \* FROM Lenkargrupper order by Namn"
Set RS = Conn.Execute(SQLStmt)

SQLStmt = "SELECT \* FROM Lenkargrupper order by Namn"
Set RS2 = Conn.Execute(SQLStmt)

SQLStmt = "SELECT \* FROM Lenkar order by Namn"
Set RS3 = Conn.Execute(SQLStmt)

%\>
\<html\>
\<head\>
\<title\>Tidningen!\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\<link rel="stylesheet" href="http://badmike/tidningen/style.css"\>
\<script language="JavaScript"\>
\<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options\[selObj.selectedIndex\].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//--\>
\</script\>
\</head\>

\<body bgcolor="#FFFFFF"\>
\<div align="center"\> 
  \<table width="780" border="0" cellspacing="0" cellpadding="0"\>
    \<tr\> 
      \<td colspan="6"\> 
        \<div align="right"\>\<img src="http://badmike/tidningen/bilder/top.gif" width="780" height="100"\>\</div\>
      \</td\>
    \</tr\>
    \<tr\> 
      \<td colspan="6"\> 
        \<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#336699"\>
          \<tr\> 
            \<td\> 
              \<div align="center"\> 
                \<!--#include virtual="/tidningen/topbar.asp" --\>
              \</div\>
            \</td\>
          \</tr\>
        \</table\>
        \<br\>
      \</td\>
    \</tr\>
    \<tr\> 
      \<td width="175" align="left" valign="top" height="276"\> 
        \<!--#include virtual="/tidningen/meny.asp" --\>
        \<img src="file:///%7Emp2tidning/public_html/tidningen/bilder/vitt.gif" width="175" height="1"\> 
      \</td\>
      \<td align="left" valign="top" width="462" height="276"\> 
        \<table width="462" border="0" cellspacing="0" cellpadding="2"\>
          \<tr\> 
            \<td height="2" width="64" valign="middle"\> 
              \<div align="left" class="TextBold"\>L&auml;nkar\</div\>
            \</td\>
            \<form name="form1"\>
              \<td height="2" width="390"\> 
                \<select name="Lenkar" onChange="MM_jumpMenu('parent',this,0)"\>
                  \<option value="#"\>Grupper\</option\>
                  \<option value="#"\>- - - - - - - - - -\</option\>
                  \<% Do Until RS.EOF %\>
                  \<option value="#\<%= RS("Namn")%\>"\>\<%= RS("Namn")%\>\</option\>
                  \<% 
					 RS.MoveNext
					 Loop
					 RS.Close
				  %\>
                \</select\>
              \</td\>
            \</form\>
          \</tr\>
          \<tr\> 
            \<td height="2" colspan="2" valign="middle"\>&nbsp;\</td\>
          \</tr\>
          \<tr\> 
            \<td height="2" colspan="2" valign="middle"\>
		  \<% 

			Do Until RS2.EOF 

			SQLStmt = "SELECT \* FROM Lenkar WHERE Grupp = " & RS2("Namn")
			Set RS3 = Conn.Execute(SQLStmt)

		  %\>
             \<table width="100%" border="0" cellspacing="3" cellpadding="4"\>
                \<tr\> 
                  \<td colspan="2"\> 
                    \<div align="right" class="TextLiten"\>\<a href="#"\>Till toppen\</a\>\</div\>
                  \</td\>
                \</tr\>
                \<tr\> 
                  \<td colspan="2" bgcolor="#AFAF85"\> 
                    \<div class="TextBold"\>\<a name="\<%= RS2("Namn")%\>"\>\</a\>:: \<%= RS2("Namn")%\>\</div\>
                  \</td\>
                \</tr\>
                \<tr\> 
                  \<td width="30%" bgcolor="#C9C9AD"\> 
                    \<div class="Text"\>Namn\</div\>
                  \</td\>
                  \<td width="70%" bgcolor="#C9C9AD"\> 
                    \<div class="Text"\>Info\</div\>
                  \</td\>
                \</tr\>
                \<% Do Until RS3.EOF %\>
                \<tr\> 
                  \<td width="30%"\> 
                    \<div class="Text"\>\<a href="\<%= RS3("http")%\>" target="\_blank"\>\<%= RS3("Namn")%\>\</a\>\</div\>
                  \</td\>
                  \<td width="70%"\> 
                    \<div class="TextGrey"\>\<%= RS3("Info")%\>\</div\>
                  \</td\>
                \</tr\>
                \<tr\> 
                  \<td colspan="2"\>&nbsp;\</td\>
                \</tr\>
                \<% 
				RS3.MoveNext
				Loop
  				RS3.Close
				%\>
              \</table\>
            \<% 
			RS2.MoveNext
			Loop
			RS2.Close
			%\>
			\</td\>
          \</tr\>
        \</table\>
      \</td\>
      \<td width="145" align="center" valign="top" height="276"\> 
        \<!--#include virtual="/tidningen/banners.asp" --\>
        \<br\>
        \<img src="file:///%7Emp2tidning/public_html/tidningen/bilder/vitt.gif" width="145" height="1"\> 
      \</td\>
    \</tr\>
    \<tr\> 
      \<td colspan="3" align="left" valign="top"\> 
        \<!--#include virtual="/tidningen/bottombar.asp" --\>
        \</td\>
    \</tr\>
  \</table\>
\</div\>
\</body\>
\</html\>
\<%
Conn.Close
%\>

Men när jag kör sidan så kommer detta felmeddelande upp:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e10' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Too few parameters. Expected 1. 

/tidningen/hem/lenkar.asp, rad 94

Ser någon vart felet ligger??

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

## #2 — @nders, 2001-01-29T12:36Z

vilken är rad 94?

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

## #3 — Jacek, 2001-01-29T12:43Z

**91**  Do Until RS2.EOF 
**92**  
**93**  SQLStmt = "SELECT \* FROM Lenkar WHERE Grupp = " & RS2("Namn")
**94**  Set RS3 = Conn.Execute(SQLStmt)

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

## #4 — @nders, 2001-01-29T12:50Z

då finns det ingenting i rs2("Namn").

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

## #5 — @nders, 2001-01-29T13:03Z

vid närmare eftertanke borde det väl se ut så här, eftersom jag antar att namn är ett textfält?

SQLStmt = "SELECT \* FROM Lenkar WHERE Grupp = '" & RS2("Namn") & "'"

mvh,

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

## #6 — Eclipse, 2001-01-29T13:16Z

path="DBQ=" & server.mappath("../db/tidningen.mdb")

Skriv den raka vägen i stället för mapPath! (Allmänt tips på hur man optimerar kod)

\<img src="file:///%7Emp2tidning/public_html/tidningen/bilder/vitt.gif" width="175" height="1"\>

byt ovanstående rad till något mer gångbart!

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

## #7 — Eclipse, 2001-01-29T13:22Z

```
namnsdag = "SELECT namn1,namn2 FROM Namnsdag WHERE Manad = "&Month(Date)&" and Dag = "&Day(Date)&""
Set namnsdag = Conn.Execute(namnsdag)
```

Fungerar verkligen detta!? Det ser llite förvillande ut...

Förresten, är det inte bättre du gör om din databas så du kan ha denna frågan:

```
myRS = "SELECT namn1,namn2 FROM [Namnsdag] WHERE [x_date] = #" & myDate & "#;"
Set RS1 = Conn.Execute(myRS)
```

Då är myDate den dagens datum...(?)

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

## #8 — Jacek, 2001-01-29T18:08Z

Tack @nders det fungera prima... TACK!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7914-konstigt-felmeddelande
