Blandade frågor

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

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

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å

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

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")

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?

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

Prova att ta bort parenteserna efter ArrPages i funktionsanropet.

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!