---
title: "Eländes Komponenter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8724-eländes-komponenter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ironhead"
published: "2001-03-27T13:05:00.000Z"
updated: "2001-03-28T07:27:00.000Z"
replies: 5
views: 178
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/8724-eländes-komponenter"
---

# Eländes Komponenter

## #1 — ironhead, 2001-03-27T13:05Z

...eller är det bara jag som inte kan nåt :)

Jag får ett fel när jag ska lista data ur en SQL-databas med en komponent. Så här ser det ut:

Set rst = Server.CreateObject("ADODB.RecordSet")  
Set objHandBook = Server.CreateObject ("HandbokSokning.HandBookSearch")
set rst = objHandBook.GetHandBooks
while not rst.EOF
\<%= rst.Fields("sName")%\>
rst.MoveNext
wend
set rst = nothing

Är det något fel på denna kod? Får det inte att funka utan får felmeddelandet Argument not optional: 'GetHandBooks'

Please Help :)
\\\\Peter Johansson

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

## #2 — Eclipse, 2001-03-27T13:18Z

Allt är ju ASP, inte bara utskriften som du angett! :-)

Byt:
\<%= rst.Fields("sName")%\>
Till:
response.write rst.Fields("sName") & "\<BR\>" & vbCRLF

\[r\]response.write rst("sName") & "\<BR\>" & vbCRLF

Vad är fields för något!?\[/r\]

...och så sätter du all kod inom \<% ... %\>

\[r2\]
Dessutom ska du avsluta med LOOP, inte WEND.
\[/r2\]

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

## #3 — @nders, 2001-03-27T13:18Z

hej där! :)

metoden GetHandBooks har argument som inte är valbara, utan måste anges. hur ser den funktionen ut i komponentkoden?

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

## #4 — ironhead, 2001-03-27T13:52Z

bah! fick till det till slut...man blir kod-blind :)
Jag glömde skicka med argumenten till komponenten, det skulle vara:

set rst = objHandBook.GetHandBooks(Application("provider"), Application("conStr"))

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

## #5 — @nders, 2001-03-27T13:56Z

Dessutom ska du avsluta med LOOP, inte WEND

nja...

do-loopar loopas med loop.
while-loopar loopas med wend. :)

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

## #6 — toha, 2001-03-28T07:27Z

Jag är inte säker på att du måste instantiera ett recordset. skulle kunna tänka mig att du endast behöver dimma en variablen för recordset:et eftersom din komponentmetod returnerar ett recordset. I sådana fall blir koden:

```
Dim rst
Set objHandBook = Server.CreateObject ("HandbokSokning.HandBookSearch")
Set rst = objHandBook.GetHandBooks
while not rst.EOF
     response.write rst.Fields("sName")
     rst.MoveNext
wend
set rst = nothing
```

Det är värt ett försök.... :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8724-eländes-komponenter