---
title: "Fel antal argument eller felaktig egenskapstilldelning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14021-fel-antal-argument-eller-felaktig-egenskapstilldelning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-01-25T20:58:00.000Z"
updated: "2002-01-26T20:18:00.000Z"
replies: 11
views: 254
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/14021-fel-antal-argument-eller-felaktig-egenskapstilldelning"
---

# Fel antal argument eller felaktig egenskapstilldelning

## #1 — ampy, 2002-01-25T20:58Z

```
<%

set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa order by id desc")

Do Until rs.EOF

[b]rs("kod")[/b]

rs.MoveNext
loop
%>
```

Felmeddelande:

```
Körningsfel i Microsoft VBScript fel '800a01c2' 

Fel antal argument eller felaktig egenskapstilldelning.: 'rs' 

/ampy/visaalla.asp, line 85
```

Rad 85 är skriven med fetstil, vad har jag gjort för fel?

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

## #2 — LarsG, 2002-01-25T21:00Z

```
<%
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa order by id desc")

Do Until rs.EOF
response.write rs("kod") & "<br>"
rs.MoveNext
loop
%>
```

t.ex.

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

## #3 — jorgen, 2002-01-25T21:02Z

```
<%
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa order by id desc")

Do Until rs.EOF

response.write " "& rs("kod") &" "

rs.MoveNext
loop
%>
```

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

## #4 — ampy, 2002-01-25T21:02Z

Nu skrivs koden ut, men jag har ASP-kod i min databas med utan \<% & %\>, nu skrivs det ut som vanlig text men jag vill koden ska göra det som står .

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

## #5 — LarsG, 2002-01-25T21:12Z

Varför lagrar du källkod i en databas? Det är bara problem med en sådan lösning.
Hela designen av ASP bygger på att man har källkoden i filer.

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

## #6 — ampy, 2002-01-25T21:17Z

För att jag vill skriva ut olika texter varje gång och då slumpas en post ur databasen som jag sedan skriver ut.

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

## #7 — LarsG, 2002-01-25T21:21Z

Varför sparar du inte bara texten i databasen?

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

## #8 — ampy, 2002-01-25T21:24Z

Så här ser koden ut i en post tex:

```
Set Conn = Server.CreateObject(""ADODB.Connection"")
Set DBLink = Server.CreateObject(""ADODB.Recordset"")

Conn.Open ""Driver={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath(""db/icq.mdb"") & "";pwd=;""

SQL = ""SELECT TOP 1 * From icq ORDER BY datum DESC""
DBLink.Open SQL, Conn, 1, 2

Do While Not DBLink.EOF

Response.Write ""<b>Namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""namn"") & ""</i></b></font>""
Response.Write "" <br><b>Nick-namn: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""nick"") & ""</i></b></font>""
Response.Write "" <br><b>Ålder: </b><FONT face=Verdana color=#006600 size=1><b><i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""alder"") & ""</i></b></font>""
Response.Write ""<br><b>Datum: </b> <FONT face=Verdana color=#006600 size=1><i><b> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"" & DBLink(""datum"") & ""</font><b></i>""

DBLink.MoveNext

Loop

DBLink.Close
Conn.Close
```

Jag måste ju ha den koden i databasen för att kunna hämta olika koder eller finns det något annat sätt att lösa det på?

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

## #9 — LarsG, 2002-01-25T21:36Z

Lägg varje sådan post som en sub i din källkod som du sen anropar.

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

## #10 — ampy, 2002-01-26T12:34Z

Kan någon göra om denna kod:

```
%
randomize
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa ")
if rs.eof then
'tji
else
rows = rs.getrows()
post = clng(rnd()*ubound(rows,2))
for i = 1 to ubound(rows,1)
ExecuteGlobal(rows(i,post))
next
end if
%>
```

Så att den skriver ut alla poster i databasen istället för att slumpa en. Skulle vara jättesnällt om någon kunde göra det.

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

## #11 — Pace, 2002-01-26T13:00Z

```
' Hämta från databas.
set connect = server.createobject("adodb.connection")
connect.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("db/statistik.mdb") 
set rs = connect.execute("Select * From slumpa ")
if Not rs.eof then
 &nbsp; arrRows = rs.getrows()
end if

' Skriv ut:
For I = 0 To Ubound(arrRows, 2)
Response.Write arrRows(0, I)
Next
```

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

## #12 — @nders, 2002-01-26T20:18Z

<http://cgi.webforum.nu/wf/Forum11/HTML/008515.html> 

 :q

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14021-fel-antal-argument-eller-felaktig-egenskapstilldelning