J
|
Jane 11/21/2008 |
Hi, str = "select EmailField from AnotherTableName" Set rstmp = server.CreateObject("ADODB.Recordset") rstmp.open str,dbConnection all_emails = "" while not rstmp.eof all_emails = all_emails & rstmp("EmailField") & "," rstmp.Movenect wend all_emails = left(all_emails,Len(all_emails)-1) rstmp.close set rstmp=nothing |