---
title: "Returnera från VB komponent"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9392-returnera-från-vb-komponent"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Erik Juhlin"
published: "2001-05-10T07:37:00.000Z"
updated: "2001-05-10T08:24:00.000Z"
replies: 10
views: 242
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/9392-returnera-från-vb-komponent"
---

# Returnera från VB komponent

## #1 — Erik Juhlin, 2001-05-10T07:37Z

Om man skriver så här i en VB komponent. Hur returneras det sen? Vad skiver man i ASP koden?

```
Public Function Login(ByVal sMemberName As String, _
    ByVal sPassword As String) As Boolean

    On Error GoTo errorHandler

    Dim rs As ADODB.Recordset
    Set rs = GetMemberByName(sMemberName)

    Login = ValidatePassword(sMemberName, sPassword, rs("Password"))

    Set rs = Nothing

    CtxSetComplete
    Exit Function

errorHandler:
    Set rs = Nothing
    HandleError g_modName, "Login"
End Function
```

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

## #2 — Vide, 2001-05-10T07:43Z

Det beror väl på vad "ValidatePassword" returnerar...

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

## #3 — Erik Juhlin, 2001-05-10T07:47Z

True/False..

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

## #4 — @nders, 2001-05-10T07:49Z

```
if login(bla, bla) then
'jamen!
else
'nämen
end if
```

typ.

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

## #5 — Erik Juhlin, 2001-05-10T07:52Z

If Login(true) Then..?

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

## #6 — @nders, 2001-05-10T07:54Z

du har väl skapat ditt objekt i asp-koden? det blir vällan nåt sånt härnt dåra:

```
if objLoginobjektet.login(sMemberName, sPassword) then ...
```

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

## #7 — Erik Juhlin, 2001-05-10T08:00Z

Så här har jag skrivit:

```
<%	
Set objEClub = Server.CreateObject("IABEClub.Member")
Set login = objEClub.Login(Request("name"), Request("password"))
Set objEClub = Nothing

If Login(true) Then
	Response.Write "Rätt!"
Else
	Response.Write "Fel!"
End If
%>
```

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

## #8 — Vide, 2001-05-10T08:04Z

Då skall det räcka med:

```
If Login Then
Response.Write "Rätt!"
Else
Response.Write "Fel!"
End If
```

Eftersom If-satsen redan letar efter ett booelskt värde...

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

## #9 — Erik Juhlin, 2001-05-10T08:06Z

Att skriva så som @nders skrev funkade. Men inte så som du skrev Vide.

Får detta felmeddelande:

> Error Type:
> Microsoft VBScript runtime (0x800A01A8)
> Object required: 'objEClub.login(...)'
> /eclub_local/login.asp, line 3

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

## #10 — @nders, 2001-05-10T08:16Z

erik, i din kod ovan skriver du så här:

```
Set login = objEClub.Login(Request("name"), Request("password"))
```

du skall där inte använda set, eftersom det inte är ett objekt du får tillbaka, utan en boolean.

om du tar bort set från den raden så  borde det fungera att göra på vides sätt också.

mvh,

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

## #11 — Erik Juhlin, 2001-05-10T08:24Z

Jepp, funkade!
Tack för hjälpen Vide och @nders! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9392-returnera-från-vb-komponent