---
title: "Felmeddelande"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/54257-felmeddelande"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jwradhe"
published: "2002-09-25T15:23:17.000Z"
updated: "2002-09-25T16:08:53.000Z"
replies: 8
views: 203
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/54257-felmeddelande"
---

# Felmeddelande

## #1 — jwradhe, 2002-09-25T15:23Z

```
Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

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

/visa_artiklar.asp, line 24
```

vad är fel?

line 24 =

```
Set RecSet = Connect.execute(VISA)
```

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

## #2 — Jesper T, 2002-09-25T15:24Z

Omöjligt att se med den bifogade koden, skriv ut sqlsatsen.
Och posta mera kod.

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

## #3 — jwradhe, 2002-09-25T15:27Z

```
<%
Function WordLeft(strText, intNoOfWords)
	Dim arrText, strippedText, I

	arrText = Split(strText, " ")
	If UBound(arrText) => intNoOfWords Then
		For I = 0 To (intNoOfWords - 1)
			If i = (intNoOfWords - 1) Then 
				strippedText = strippedText & arrText(i) & "..."
			Else
				strippedText = strippedText & arrText(i) & " "
			End if
		Next
	Else
		strippedText = strText
	End If
	WordLeft = strippedText
End Function
%>
<% Set Connect = Server.CreateObject("ADODB.connection")
Connect.open = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/artiklar.mdb")
VISA = "SELECT TOP 6 * FROM artiklar ORDER by datum DESC "

Set RecSet = Connect.execute(VISA) 

%>
<%
strRubrik = "=RecSet(rubrik)"
%>
<% do until RecSet.EOF %>
      <a href="las_artikel.asp?id=<%=RecSet("id")%>"> 
      <%Response.Write WordLeft(strRubrik, 10)%>
      </a><BR>
<% RecSet.MoveNext
loop
RecSet.close
Connect.close
Set RecSet = nothing
Set Connect = nothing %>
```

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

## #4 — Jesper T, 2002-09-25T15:30Z

\<%
strRubrik =RecSet("rubrik")
%\>

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

## #5 — jwradhe, 2002-09-25T15:35Z

det står fortfarande det där felmeddelandet.

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

## #6 — Jesper T, 2002-09-25T15:50Z

Kanske?!

do until RecSet.EOF
strRubrik = RecSet("rubrik")
Response.write "\<a href=""las_artikel.asp?id="& RecSet("id")&"\>"" &\_
WordLeft(strRubrik, 10)&"\</a\>\<BR\>"
RecSet.MoveNext

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

## #7 — jwradhe, 2002-09-25T15:53Z

jesper...står ..

```
Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/visa_artiklar.asp, line 31 

Response.write "<a href=""las_artikel.asp?id="& RecSet("id")&">"" &_
--------------------------------------------------------------------^
```

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

## #8 — Jesper T, 2002-09-25T16:07Z

```
do until RecSet.EOF 
strRubrik = RecSet("rubrik") 
Response.write "<a href=""las_artikel.asp?id="& RecSet("id")&">""" &_ 
WordLeft(strRubrik, 10)&"</a><BR>" 
RecSet.MoveNext
```

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

## #9 — LarsG, 2002-09-25T16:08Z

```
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/artiklar.mdb")
VISA = "SELECT TOP 6 * FROM artiklar ORDER by datum DESC "
```

Du hade ett = direkt efter connect.open.

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

---

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