So wird befuellt:
Private Function GetProperties(intTypeID)
dim strConnection : strConnection = Application("ConnectionString")
dim oDBConnect
dim RS
dim i : i = 0
dim arrProps
set oDBConnect = OpenDB(strConnection)
set RS =
GetAllRecordsWhere(oDBConnect,"qDropDowns","","","FileTypeID",intTypeID)
redim arrProps(RecordCount(RS))
do while not RS.EOF
arrProps(i) = RS("Title")
RS.MoveNext
loop
GetProperties = arrProps
set RS = nothing
CloseDB(oDBConnect)
End Function
Und so ausgelesen:
Dim arrProperties : arrProperties =
GetProperties(cint(Request("FileType")))
for i=0 to (ubound(arrProperties))
response.Write(arrProperties(i) & "a<br>")
next
Packe ich die gleiche Schleife in die Funktion funzt alles bestens.
Th.
-----Original Message-----
From: Alexander Zeitler [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 8:50 AM
To: AspGerman Kaffeehaus
Subject: [aspdecoffeehouse] Re: Arrays in VBScript
>Nein, ein-dimensional.
dann schick bitte mal etwas mehr code,
wie das bef�llen und auslesen abl�uft.
Gruss
Alex
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv Sie
| k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.as
| p
---
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.391 / Virus Database: 222 - Release Date: 9/19/2002
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
