Estrarre tutti i recordset da access

[cesare86]

Ciao a tutti, io ho un problema con una news mail, vi espongo il problema

ho messo questo codice

%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
strsql = "SELECT * FROM [emails]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn

 x_Email = rs("Email")
%>

ma viene preso solo il primo record mentre vorrei che in x_Email ci fossero tutti i record... come faccio? devo fare un ciclo?

p.s. non so quasi niente di asp

[Mems]

%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
strsql = "SELECT * FROM [emails]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
  if not rs.eof then
    do until rs.eof
      x_Email = x_Email & rs("Email") & ","
      rs.moveNext
    loop
  end if

x_Email = left(x_Email,(len(x_Email) - 1))
%>

[cesare86]

GRAZZIE MILLLE!
perfetto!