Traceroute + Aspmail

[Guest Thiago Gema]

Amigos estou tentando somar o traceroute com o aspmail, quer dizer, cada internauta que entrar no site ele automaticamente ira mandar um e-mail contendo o ip do mesmo, mais infelizmente eu estou pecando em alguma parte do codigo e por isso que preciso dessa ajuda.

Ficarei muito grato.

Atenciosamente,

Thiago Gema

Segue o codigo abaixo.

<%

request.servervariables( "REMOTE_ADDR" )

Dim sEmailFrom, sText, sAssunto

sEmailTo = "meu_email@provedor.com.br"

sText = "REMOTE_ADDR"

sAssunto = "Monitoramento Site - IP"

set mailer = server.createobject

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

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

Mailer.AddRecipient sEmailTo

Mailer.Subject = sAssunto

strMsgFooter = sText

Mailer.BodyText = strMsgFooter

if Mailer.SendMail then

else

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

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

end if

%>

[bareta]

que erro dá??? qual a linha q da erro???

[Victor]

Amigos estou tentando somar o traceroute com o aspmail, quer dizer, cada internauta que entrar no site ele automaticamente ira mandar um e-mail contendo o ip do mesmo, mais infelizmente eu estou pecando em alguma parte do codigo e por isso que preciso dessa ajuda.

Ficarei muito grato.

Atenciosamente,

Thiago Gema

Segue o codigo abaixo.

<%

request.servervariables( "REMOTE_ADDR" )

Dim sEmailFrom, sText, sAssunto

sEmailTo = "meu_email@provedor.com.br"

sText = "REMOTE_ADDR"

sAssunto = "Monitoramento Site - IP"

set mailer = server.createobject

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

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

Mailer.AddRecipient sEmailTo

Mailer.Subject = sAssunto

strMsgFooter = sText

Mailer.BodyText = strMsgFooter

if Mailer.SendMail then

else

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

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

end if

%>

Deixa eu ver se entendi...

...Vai ter um login quando o cara entrar no site, ou se cadastrar, ai quando ele der o submit ai vai ser enviado um e-mail pro cara... Isso?

Ou você quer que quando o cara entra no site mande um e-mail? Porque quando o cara entrar no site, não vai ser reconhecido o e-mail dele, sem passar por uma verificação com um formulario!!!

Mas explica melhor ai

[]'s

Victor

[cyberalexxx]

O que eu percebi no seu codigo:

A maneira que você cria o objeto (mailer) você não informa que tipo de objeto esta sendo criado

set mailer = server.createobject

A depois voce passa todos os parametros para o objeto Mailer, mais em momento algum voce pede para que o email seja enviado.

T+

[Victor]

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

[Guest Thiago Gema]

Vai funcionar assim, o cara quando entrar no site automaticamente será enviado o ip dele pra meu email.

[cyberalexxx]

Voce corrigiu a linha que cria o objeto mailer??

ta dando erro ainda???

[Victor]

Olha é só você no começo da página que vai enviar o e-mail, você faz uma variavel:

variavel = Request.ServerVariables("REMOTE_ADDR")

Ai você abre a função para enviar o e-mail, ai na mensagem você coloca a variavel... Entendeu?

[]'s

Victor

[Guest Thiago Gema]

Desculpe não entendi.

[Victor]

Desculpe não entendi.

No inicio da página, onde você vai querer que mande um e-mail para você com o IP do cara, você faz se quiser uma variavél, ai você faz a função de mandar e-mail, ai na parte de mensagens você coloca a variavel que você fez antes..

Entendeu?

[]'s

Victor

[Guest Thiago Gema]

Esta certo agora?

<%

Dim sEmailFrom, sText, sAssunto

sEmailTo = "email@dominio.com.br"

sTraceroute = "request.servervariables( "REMOTE_ADDR" )"

sAssunto = "Monitoramento Site"

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

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

Mailer.AddRecipient sEmailTo

Mailer.Subject = sAssunto

strMsgFooter = sTraceroute

Mailer.BodyText = strMsgFooter

if Mailer.SendMail then

else

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

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

end if

%>

[Victor]

Esta certo agora?

<%

Dim sEmailFrom, sText, sAssunto

sEmailTo = "email@dominio.com.br"

sTraceroute = "request.servervariables( "REMOTE_ADDR" )"

sAssunto = "Monitoramento Site"

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

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

Mailer.AddRecipient sEmailTo

Mailer.Subject = sAssunto

strMsgFooter = sTraceroute

Mailer.BodyText = strMsgFooter

if Mailer.SendMail then

else

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

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

end if

%>

Parece que está tudo be, testa ai no seu servidor, e ve se funciona

[]'s

Victor

[Guest Thiago Gema]

Não deu....

Erro,

Microsoft VBScript compilation error '800a0401'

Expected end of statement

monitoramento.asp, line 6

sTraceroute = "request.servervariables( "REMOTE_ADDR" )"

[Guest Thiago Gema]

Algumas vezes dá esse erro,

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

Invalid ProgID

[Victor]

sTraceroute = request.servervariables( "REMOTE_ADDR" )

Coloca assim

[Guest Thiago Gema]

Agora esse,

Server.CreateObject Failed

monitoramento.asp, line 9

Invalid ProgID

[Victor]

o monitoramento.asp, line 9, e a linha do instanciamento de objeto?

[Guest Thiago Gema]

Linha 9

--------

set mailer = server.createobject("SMTPsvg.Mailer")

[Victor]

Linha 9

--------

set mailer = server.createobject("SMTPsvg.Mailer")

Você tem certeza que o seu servidor suporta ASPMAIL? Pqo instanciamento ta certo, não sei porque ainda ta dando erro

[Guest Thiago Gema]

Checa pra mim o codigo, esta tudo certo agora ?

<%

Dim sEmailFrom, sTraceroute, sAssunto

sEmailTo = "email@meusite.com.br"

sTraceroute = request.servervariables( "REMOTE_ADDR" )

sAssunto = "Monitoramento Site"

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

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

Mailer.AddRecipient sEmailTo

Mailer.Subject = sAssunto

strMsgFooter = sTraceroute

Mailer.BodyText = strMsgFooter

if Mailer.SendMail then

else

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

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

end if

%>

[Victor]

Checa pra mim o codigo, esta tudo certo agora ?

<%

Dim sEmailFrom, sTraceroute, sAssunto

sEmailTo = "email@meusite.com.br"

sTraceroute = request.servervariables( "REMOTE_ADDR" )

sAssunto = "Monitoramento Site"

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

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

Mailer.AddRecipient sEmailTo

Mailer.Subject = sAssunto

strMsgFooter = sTraceroute

Mailer.BodyText = strMsgFooter

if Mailer.SendMail then

else

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

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

end if

%>

Não tenho ASPMAIL aqui no meu PC, vou colocar no servidor do site do meu professor...Perai

[Guest Thiago Gema]

Deu certo ?

[Guest Thiago Gema]

Como que configura o aspmail no XP?

[mariofdf]

cara você esta testando isso aonde, em sua maquina ou em um server?

a, e outra coisa se cadastra ai....

[Thiago Gema]

No server

[mariofdf]

agora sim, cadastrado da mais vontade de ajudar, que server... se possivel mande a url da pagina e do server...