[Resolvido] Enviar e-mail

Pessoal, boa noite!

Estou tentando criar uma pagina simple de envio de e-mail, mas surgiu um pequeno problema:

Prmeiro leio um arquivo txt para depois enviar o e-mail, mas ele está lendo só a primeira linha e não as demais.

Está página é para eu poder mandar e-mails de algumas informações para os clientes, só que´está enviando somente para o cliente da primeira linha, por enquanto estou testando com meus e-mails particulares, para depois fazer o teste real.

Segue o cod.:

<link href="estilo.css" rel="stylesheet" type="text/css" />
<%
'Setar um valor de execução de script
Server.ScriptTimeout = 240

'Iremos também fazer com que o script siga quando ocorrer um erro
'Para podermos tratá-lo após o script
on error resume next

'*********************** Início do Upload *************************

'Utilizaremos a função On Error Resume Next para ignorar qualquer erro que possa vir a acontecer, e posteriormente iremos identifica-lo e só então comunicarmos ao usuário.
On Error Resume Next

Dim objUpload

'Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = server.CreateObject("Dundas.Upload.2")

'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.
'objUpload.UseVirtualDir = false

'Salva o arquivo com o nome real enviado.
objUpload.UseUniqueNames = False

'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.
objUpload.Save "C:\email2l"

'Limpa a instância criada na memória do servidor.
Set objUpload = nothing

'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.
If Err <> 0 Then

'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.

Response.Write Err.Description & " " & Err.Number & "<br>"
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=javascript:history.back(-1)>Voltar</a> </b></font>"

Else
'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acima
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font>"
End If
Response.Write "</BODY></HTML>"
'Fim de grava_anexo

Dim objFSO

'Aqui que daremos início ao sistema
'Criaremos o objeto FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim varArquivo

'Agora, com o uso do FSO, iremos abrir o arquivo texto que iremos criar
Set varArquivo = objFSO.OpenTextFile(server.MapPath("email.txt"), 1)

dim arrayLinha

'Agora que o arquivo já foi aberto, iremos ler linha por linha
'O comando AtEndOfStream determina que iremos repetir o processo abaixo
'até o fim do arquivo
Do while not varArquivo.AtEndOfStream

arrayLinha=split(varArquivo.ReadLine())

Dim Mail, Vtxtemail, Vtxtass

Vtxtemail = request.Form("txtemail")
Vtxtass = request.Form("txtass")

Vtxtemail = request.Form("txtemail")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.dominio.com.br"
Mail.From = "nome@dominio.com.br"
Mail.FromName = "nome sobrenome"

Mail.AddAddress arrayLinha(0)
Mail.Subject = request.Form("emlass")
Mail.Body = request.Form("emlmen")

On Error Resume Next
if Mail.Send then
response.Redirect("email.asp")
else If Err <> 0 Then
Response.Write "Ocorreu o seguinte erro: " & Err.Description
End If
End if

loop

'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto
varArquivo.Close
Set varArquivo = Nothing
Set objFSO = Nothing

%>
<script>
<!--
setTimeout("redireciona()",1000)
function redireciona()
{

window.location.href("email.asp");
}

-->
</script>
Muito obrigado pela ajuda.

Abraço.