Buongiorno a tutti.
Mi date una mano a risolvere questo problema?
Ho una query che estrae questi valori:
ID|testo
1 | a
1 | c
1 | f
2 | s
2 | r
2 | v
3 | w
3 | e
4 | j
4 | o
4 | p
etc....

Devo mostrare a video delle tabelle che dovranno essere affiancate l'una all'altra

sto provando così

i=1
for t = 1 to 5
if (i Mod 2) <> 0 then
Do while (rs("ID") Mod 2) <> 0
else
Do while (rs("ID") Mod 2) = 0
end if
response.write(rs("testo"))
i=i+1
rs.MoveNext

Loop

Response.write("istruzione finale")

i = 1
i = i + 1
next

ma ricevo questo errore:
Errore di compilazione di Microsoft VBScript error '800a03fb'

Previsto 'Loop'

riga 44

ed la riga 44 corrisponde a else

Come posso fare a realizzare un ciclo che cicli fino a quando il numero sia pari e poi dispari?