skal definere en array størrelse på baggrund af et resultset

laver SQL'en:
set rs = Conn.execute("select count(*) as antal where [noget] = [noget andet]")

så kan du hente det med rs("antal")

Er det optimalt? kan man ikke spørge direkte på resultsættet?

Jo, det kan du da.

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From Tabel"
rs.Open SQL, Din_Conn, 1

Antal = rs.RecordCount

While Not rs.EOF
  'Blabla
  rs.MoveNext
Wend

Du kan også bruge metoden
RSarray = oRS.GetRows()
Se mere her:
http://lists.evolt.org/archive/Week-of-Mon-20020408/109442.html

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=161

Så har du med det samme dit array, og det er en hurtig metode!

God artikel.

ja - og den er optimal at bruge ved større recordssæt...

efterfølgende hvis jeg skal svare på spørgsmålet kan du jo bruge som nmh's metode som grundlag og gøre sådan efter du har udført din sql...:
<%
RSarray = oRS.GetRows()

if IsArray(RSarray) = True then
    response.write "Antallet af records er: " & Ubound(RSArray, 2)
else
    response.write "Ingen records fundet..."
end if
%>

Det var en smart måde at gøre det på! Jeg har bare et lille problem for jeg skal have lidt plads i arrayet så jeg kan ligge nogle data i manulet. eks

række 0 (fra Databasen) | test | test1 |
række 1 (fra Databasen) | 45  |  65  |
række 2 (Fra kode(pris))|  2  |  5  |
række 3 (Fra Koden(antal))| 1  |  1    |

DVS jeg skal have tilføjet 2 rækker mere på arrayet end der kommer fra resultsættet, hvordan gør jeg det?

Du kan gøre således:
i=Ubound(RSarray,1): j=Ubound(RSarray,2)
redim preserve RSarray(i,j+2)
Nu har tabellen RSarray 2 ekstra rækker, og det oprindelige indhold er intakt.

(Brug af redim preserve: Man kan kun ændre den sidste dimension, så det var godt det ikke var flere søjler, du havde brug for)

Det kan godt være at jeg har udtrykt mig forkert, men jeg tror at jeg skal bruge flere søjler, kan dette ikke lade sig gøre?

Jo, men så kan du ikke udvidde dit array på den simple måde. Så skal du definere et nyt array med den størrelse, du skal bruge, og så kopiere dine data fra RSarray over i det nye.
Du kan jo også definere et nyt array "parallelt" med RSarray, til at rumme de ekstra søjler.

dim A(1,10), B(1,10)
det svarer jo til et array med 4 søjler og 10 rækker.

For at definere et nyt array med dimensioner, du først kender på kørselstidspunktet kan du gøre således:

dim A()
'Giv nu n og m de ønskede værdier
'Næste ordre skaber nu det arry, du har brug for.
redim A(n,m)

ups: rettelse dim A(1,10)
2 søjler og 11 rækker.

Jeg takker mange gange