Enviar newsletter (htm,cdonts,access)

[vgaray]

'Continuación...

If Count>0 then
Response.Write "<br><b><font color='green'>" & Count & "</b></font>"
Else
Response.Write "<br><font color='gray'>" & Count & "</font>"
End if
Response.Write " Correos han sido enviados a usuarios cuya dirección empieza con la letra...<b>" & Chr(x) & "</b>"
Else
Response.Write "The file : " & file & " was not found to be used, please check."

End If
Set objFSO = Nothing

Table.Close
set Table = nothing

Next ' go for the next letter

connVB.Close
set connVB = nothing

Response.Write "<br>Fin de envio de 'newsletters'"

Else ' Si no esta instalado el componente Cdonts

Response.Write "<br>No tienes instalado el componente Cdonts para poder enviar correos desde tu sitio."

End if
%>


---------------------
Tan libre como gratuito!!!