stringa in loop?

[Sonika]

Devo creare una stringa del tipo:

Pippo = "pluto;paperino;gatto;topo"

Voglio che questa stringa venga creata con dei dati presenti su un database e ho fatto così:

1- Ho fatto la connessione ad db
2-
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM sistop", conn

3-

Do
pippo = pippo + ";" + rs.Fields("so").Value + ";"
Loop Until rs.EOF
---

Il comando 3 mi fa andare in time out il server e non capisco il motivo. ho provato anche a fare un ciclo Do while rs.eof ... loop ma il problema era lo stesso!

Grazie

 

[dernier]

set con = server.CreateObject("ADODB.Connection")
con.Open StrConn

Set RS = Server.CreateObject( "ADODB.Recordset" )
sql = "select * from tabella"
RS.Open sql, con
if not RS.eof then

do while not RS.eof
response.Write pippo & ";" & RS.("nomecampo") & "<br>"
RS.movenext
loop
end if
rs.close
set rs = nothing
con.close
set con = nothing

usare & in vbscript
usare + in javascript