I'm working on ASP aplication which send emails.
I want get email add from DB,but I need to put "," between each email add like

>objEMail.To = "email_add_1,email_add_2,..."

Then I have no idea how to put ",".
I'm writing a script like below.

><%
> dim Email(10)
> NoOfEmails = 0
> set conntemp=server.createobject("adodb.connection")
> DSN_Name = GetDSN("***")
> conntemp.open DSN_Name
> set rstemp=conntemp.execute("select email from email_table where dept='Sales'")

> do while not rstemp.eof
> NoOfEmail = NoOfEmail + 1
> Email(NoOfEmail) = rstemp(0)
>
> rstemp.movenext
> loop
> rstemp.close
> for x = 1 to NoOfEmail
> %>
> objEMail.To ="<%=Email(x)%>"
><%
> Next

Dose anyone know how to do this?
Please advice.