---
title: "Blandade frågor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107614-blandade-frågor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2004-07-19T16:59:20.000Z"
updated: "2004-07-21T06:33:17.000Z"
replies: 9
views: 383
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/107614-blandade-frågor"
---

# Blandade frågor

## #1 — voigtann1, 2004-07-19T16:59Z

Om man skapar en funktion som:
function test(varde1,varde2)

och man vill lagra en array i varde1 eller "recset.getrows()" i varde1 i funktionen.... hur ska man göra... är det möjligt?

Andra frågan:
Om man har en array och man kör kanske tillåtna filer exempel:
gif,jpg,jpeg etc hur ska man skriva if satsen för att kontrollera alla värden i array:en.. 

mvh

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

## #2 — Sebbe, 2004-07-19T18:17Z

1\. Jo, det ska väl fungera? Kör den här kodsnutten så förstår du sägert hur man gör:

```
Function Func(arr())
  For i = 0 To UBound(arr)
    Func = Func & arr(i) & "<br>"
  Next
End Function

Response.Write(Func(Array("H", "e", "j")))
```

2\. Vet inte om jag har förstått helt rätt, men är det kanske såhär du menar?

```
Function CheckArray(arr(), str)
  CheckArray = False
  strExt = Right(str, Len(str) - InStrRev(str, "."))

  For i = 0 To UBound(arr)
    If strExt = arr(i) Then CheckArray = True
  Next
End Function

If CheckArray(Array("gif", "jpg", "png"), "bild.gif") Then
  Response.Write("Giltig!")
Else
  Response.Write("Ogiltig...")
End If
```

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

## #3 — @nders, 2004-07-20T05:55Z

1) Använd en byref-parameter så kan du använda värdet efter det att du kallat funktionen.

```
Function test(byref varde1, byval varde2)
....
varde1 = objRS.GetRows()
test = 1 ' bara returnera ett värde
End function

intVal = test(var1, var2)
' din array finns nu i var1
```

Fast nu vet jag ju inte om jag förstått frågan rätt. :-) 

Mvh

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

## #4 — voigtann1, 2004-07-20T16:45Z

tyvärr sebbe fungerade det inte med:

```
SQL = "Select ID,sidnamn from PAGES"
Set recset = databas.execute(SQL)

if not recset.eof then
  ArrPages = recset.GetRows()
end if
recset.close : Set recset = nothing
Response.Write Func(ArrPages())
```

@nders.. jag vill gärna få recset.getrows() innan funktionen.. om du förstå

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

## #5 — @nders, 2004-07-21T05:51Z

> **voigtann1 skrev:**
>
> @nders.. jag vill gärna få recset.getrows() innan funktionen.. om du förstå

Nepp jag förstår inte vad du menar.

mvh

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

## #6 — voigtann1, 2004-07-21T05:58Z

jag vill att funktionen innehåller recset.getrows()... inte att ett värde säts getrows() "inne" i funktionen..

```
function test(varde1,varde2)
'varde1 kan vara array:n med getrows()
end function
Response.Write test(recset.getrows(),"@nders")
```

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

## #7 — @nders, 2004-07-21T06:01Z

> **voigtann1 skrev:**
>
> inte att ett värde säts getrows() "inne" i funktionen..

Varför skrev du att du ville göra det i funktionen då? Du får nog försöka vara lite tydligare med vad du vill, min herre. ;-)

Du kan absolut skicka in en array som argument till en funktion. Vad är problemet?

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

## #8 — voigtann1, 2004-07-21T06:25Z

när jag försöker:

```
SQL = "Select ID,sidnamn from PAGES"
Set recset = databas.execute(SQL)

if not recset.eof then
  ArrPages = recset.GetRows()
end if
recset.close : Set recset = nothing
[b]Response.Write Func(ArrPages())[/b]
```

får jag bara felet:
Körningsfel i Microsoft VBScript (0x800A0009)
Felaktigt matrisindex: 'ArrPages'

felet är den tjocka texten

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

## #9 — @nders, 2004-07-21T06:27Z

Prova att ta bort parenteserna efter ArrPages i funktionsanropet.

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

## #10 — voigtann1, 2004-07-21T06:33Z

då får jag felet på 

```
    Func = Func & arr(i) & "<br>"
```

... men det är ju helt okej...eftersom det ska vara typ arr(1,i) :e 
fungera nu :e tackar @nders och tackar Sebbe!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107614-blandade-frågor