Formulario

[Guest silvio.de.costa]

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "silvio.de.costa@itelefonica.com.br"

sNameTo = "Manutembox"

sText = Request.Form("mensagem")

sAssunto = Request.Form("assunto")

'Cria o objeto

set mailer = server.createobject("o que eu coloco aqui")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "smtp.itelefonica.com.br"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = sAssunto & " - E-mail"

'Monta a texto para o envio

strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "obrigado.asp"

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.<BR>")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>

[dark0]

qual erro ele dá?

mostre a descrição do erro..

[Cliford]

ESSE AQUI N VAI TER ERRO

<%

function enviar_email(de_email,de_nome,para_email,para_nome,assunto,texto)

Set objmail = Server.CreateObject("CDONTS.NewMail")

objmail.from = de_email

objmail.to = para_email

objmail.subject = assunto

objmail.body = texto

objmail.send

Response.Write "Email enviado para : " & para_nome & " || " & para_emailtime & "

set objmail = nothing

end function

ConnString="DBQ=e:\aspbrasil\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}"

sqlstmt = "select nome, email from cadastro"

Set Conn = Server.CreateObject("ADODB.Connection")

set rsquery = conn.execute(sqlstmt)

nr_geral = 0

assunto = request.form("assunto")

texto = replace(request.form("texto"),chr(13),"

")

while not rsquery.eof

enviar_email("dangelo@aspbrasil.com.br","ASPBRASIL",rsquery("email"),rsquery("nome"),assunto,texto)

nr_geral = nr_geral + 1

wend

Response.write "Numero Total de Emails: " & nr_geral & "

rsquery.close

set rsquery = nothing

set conn = nothing

%>