Sæt ind i variabel

Jeg håber, der er nogen der forstår det vrøvl her.....  :0)

Ehm....
dim myArr(100) \'Lav evt sql udtræk og tæl antal records.
counter = 0
Do until rs.eof
  myArr(counter) = rs(\"felt\")
  counter = counter + 1
rs.movenext
Loop

For i = 0 to Ubound(myArr)
  If myArr(i) <> \"\" Then
    Response.write(myArr(i) & \"<BR>\")
  End if
Next

Hvis nu min forbindelse og sql ser sådan her ud:

Set rsConn = Server.CreateObject(\"ADODB.Connection\")
rsConn.Open session(\"ArticleDB\")

SQL = \"Select * FROM Articles where accepted=\'accepted\' Order BY LastVerifyDate DESC\"
set RS = rsconn.execute(SQL)


Hvordan ser den færdige kode så ud?  :0)

Hvad er det du vil have ud af at lægge det over i et array ?

Det er fordi, jeg er ved at lave en tabel med to kolonner. I denne skal de forskellige variabler indsættes. Det er noget nemmere at definere tabellen først for derefter at indsætte variablerne på de rette pladser.

http://www.erhvervstilbud.dk/forside-eksempel.htm

viser lidt grundlæggende om mine tanker...

I bunden af http://www.erhvervstilbud.dk/forside.asp

kan ses en 1-kolonnet tingest


Jeg skal iøvrigt bruge - for hvert udtræk: 1 category og en tekst

Ehm ja så kan du bruge:

dim myArr(10)
counter = 0
Do until rs.eof
  myArr(counter) = rs(\"felt\")
  counter = counter + 1
rs.movenext
Loop

også bagefter sætte ind ved at loope igennem arrayet med:

For i = 0 to Ubound(myArr)
  If myArr(i) <> \"\" Then
    \'indsæt record i db her   
  End if
Next

Hvis det ikke er det bliver du nød til at forklare det nærmere, jeg fatter rimelig minus.

Okay - tak. Jeg arbejder lidt med det. Jeg er godt klar over den sorte snak  :0)