Si estan dentro de una base de datos te recomiendo hacer un while
*********************************************
strTo = "
[email protected]"
Dim mail, strBody, objComm, objRs
set objComm = Server.CreateObject("ADODB.Command")
objComm.ActiveConnection = strConnect
objComm.CommandText = "SELECT * FROM visitas "
objComm.CommandType = adCmdText
set objRS = objComm.Execute
While Not objRs.EOF
intContador = intContador + 1
strTo = strTo & ";" & objRs("Email")
objRs.Movenext
wend
mail.Bcc=strTo
<body topmargin="0" leftmargin="0">
<p align="center"><img border="0" src="http://www.decorarte.com.mx/no.gif" width="120" height="50"></p>
<p align="center">