PWS não executa arquivo ASP

covered · Junho 2, 2005

Bom, eu tava fazendo um sistema de envio de e-mail para um meu cliente, daí eu publiquei no servidor(é PWS no Win98), mas diz que a página não foi encontrada. O DataCebter disse que o código era muito antigo por isso não funciona. Alguem sabe como resolver isso?

O código é:

ASP

[*]<%@ Language = VBScript%>

[*]<%

[*]Option Explicit

[*]Response.Buffer = true

[*]Response.Expires = 0

[*]Response.Clear

[*]'--------------------------------------------------

[*]Dim url, UrlSite, UrlSite2, UrlPoesia

[*]Dim emailDestino, emailOrigem, nomeOrigem, nomeDestino, texto

[*]Dim FromName, FromEmail, FromHost

[*]Dim eMail, htmlText

[*]Dim eMail2, htmlText2

[*]Dim eMail3, htmlText3

[*]Dim IP, Servidor, data, hora, metoo, pagina

[*]'--------------------------------------------------

[*]nomeOrigem = Request.Form("nomeOrigem")

[*]nomeDestino = Request.Form("nomeDestino")

[*]emailOrigem = Request.Form("emailOrigem")

[*]emailDestino = Request.Form("emailDestino")

[*]texto = Request.Form("yourmessage")

[*]metoo = Request.Form("metoo")

[*]UrlSite2 = Request.Form("UrlSite")

[*]pagina = Request.Form("pagina")

[*]UrlSite = "http://www.avozdapoesia.com/" & UrlSite2 & ".asp"

[*]'----------------------------------------------------------------

[*]IP = Request.ServerVariables("remote_Addr")

[*]Servidor = request.ServerVariables("server_name")

[*]data = Date

[*]hora = Time

[*]'----------------------------------------------------------------

[*]'UrlSite = Request.ServerVariables("HTTP_REFERER")

[*]url = "http://www.avozdapoesia.com/suc_agradecimento.html"

[*]FromName = "A Voz da Poesia"

[*]FromEmail = "envio@avozdapoesia.com"

[*]'FromEmail = "serenissima-ba@pop.com.br"

[*]'---- MENSAGEM PARA USUÁRIO --------------------------------------

[*]htmlText = "Olá "& nomeDestino &", "

[*]htmlText = htmlText & "A Voz da Poesia Falando ao Coração... envia a você momentos de emoção! "

[*]htmlText = htmlText & "Seu amigo(a) chamado: "&nomeOrigem&", lhe enviou esta poesia: "

[*]htmlText = htmlText & "<a href="""&UrlSite&"?pg="&pagina&""">"&UrlSite&"</a> "

[*]htmlText = htmlText & "Mensagem do seu amigo(a): "&texto&" "

[*]htmlText = htmlText & "Atenciosamente, "

[*]htmlText = htmlText & "Equipe ''A Voz da Poesia'' "

[*]htmlText = htmlText & "<a href=""mailto:"&FromEmail&""">"&FromEmail&"</a>"

[*]'---- MENSAGEM PARA ADMINISTRAÇÃO -------------------------------

[*]htmlText2 = "FOI EFETUADO O ENVIO DA SEGUINTE POESIA: "

[*]htmlText2 = htmlText2 & "<a href="""&UrlSite&"?pg="&pagina&""">"&UrlSite&"</a> "

[*]htmlText2 = htmlText2 & "De: "&nomeOrigem&" email: "&emailOrigem&" "

[*]htmlText2 = htmlText2 & "Para: "&nomeDestino&" email: "&emailDestino&" "

[*]If metoo = "" Or metoo = Null Then htmlText2 = htmlText2 & "Sem CÓPIA para o remetente! "

[*]If metoo = "yes" Then htmlText2 = htmlText2 & "Com CÓPIA para o remetente! "

[*]htmlText2 = htmlText2 & "O IP do responsável foi: "&IP&" "

[*]htmlText2 = htmlText2 & "Data do envio: "&data&" "

[*]htmlText2 = htmlText2 & "Hora do envio: "&hora&"h "

[*]htmlText2 = htmlText2 & "Site de origem: "&Servidor&" "

[*]htmlText2 = htmlText2 & " --------------------- FIM DA MENSAGEM --------------------- "

[*]'---- EMAIL PARA USUÁRIO ----------------------------------------

[*]Set eMail = Server.CreateObject("Cdonts.Newmail")

[*]eMail.From = FromEmail

[*]eMail.To = emailDestino

[*]eMail.Subject = FromName

[*]eMail.htmlBody = htmlText

[*]eMail.Send

[*]Set eMail = Nothing

[*]'---- EMAIL PARA ADMINISTRAÇÃO ----------------------------------

[*]Set eMail2 = Server.CreateObject("Cdonts.Newmail")

[*]eMail2.From = FromEmail

[*]eMail2.To = FromEmail

[*]eMail2.Subject = FromName&": *** SETOR ADMINISTRAÇÃO ***"

[*]eMail2.htmlBody = htmlText2

[*]eMail2.Send

[*]Set eMail2 = Nothing

[*]

[*]'***** CASO O REMETENTE QUEIRA UMA CÓPIA DA SUA MENSAGEM ENVIADA SEGUE ABAIXO: *****

[*]If metoo = "yes" Then

[*] '---- MENSAGEM CÓPIA ------------------------------------------

[*] htmlText3 = "Olá "& nomeOrigem &", "

[*] htmlText3 = htmlText3 & "A Voz da Poesia Falando ao Coração... enviou ao seu amigo(a), momentos de emoção! "

[*] htmlText3 = htmlText3 & "Seu amigo(a) chamado: "&nomeDestino&", recebeu esta mensagem que A Voz da Poesia enviou: "

[*] htmlText3 = htmlText3 & "<a href="""&UrlSite&"?pg="&UrlSite2&""">"&UrlSite&"</a> "

[*] htmlText3 = htmlText3 & "Mensagem enviada para seu amigo(a): "&texto&" "

[*] htmlText3 = htmlText3 & "Atenciosamente, "

[*] htmlText3 = htmlText3 & "Equipe ''A Voz da Poesia'' "

[*] htmlText3 = htmlText3 & "<a href=""mailto:"&FromEmail&""">"&FromEmail&"</a>"

[*] '---- EMAIL CÓPIA PARA REMETENTE --------------------------------

[*] Set eMail3 = Server.CreateObject("Cdonts.Newmail")

[*]

[*] eMail3.From = FromEmail

[*] eMail3.To = emailOrigem

[*] eMail3.Subject = FromName

[*] eMail3.htmlBody = htmlText3

[*] eMail3.Send

[*] Set eMail3 = Nothing

[*]End If

[*]'****************************************************************************

******

[*]

[*]'----------------------------------------------------------------

[*]Response.Redirect(url)

[*]Response.End

[*]%>

globim · Junho 2, 2005

hehe primeiro 1º o seu servidor suporta todas as liguagens (povavelmente sim )segundo 2º ele tem o componente que necessita pra enviar emauil ?se nao tiver da uma olhada cara ^^ abraços []'s

globim · Junho 2, 2005

ei cara nao da bola pra 1º opção que falei li sua assinatura como se fosse parte do post hauihaiuha ^^ abraços []'s

covered · Junho 2, 2005

vou perguntar do componente

globim · Junho 2, 2005

vou perguntar do componente

como assim ?vais ver se suporta ?hehe provavelmente ele nao suporta cdonts nao :P hehe provavelmente :P mais dai tem outros geitos de mandar email ^^abraços http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

covered · Junho 2, 2005

suporta mas já resolvi o erro

globim · Junho 2, 2005

e o que que era o erro soh fala ai pq pode ter outras pessoas com ele ^^abraços []s

covered · Junho 4, 2005

agora nao tá enviando o e-mail

covered · Junho 6, 2005

ninguem sabe o que está aconetcendo?

Marcelo Barcellos · Junho 6, 2005

Qual o erro ?

covered · Junho 6, 2005

nao aparece

Marcelo Barcellos · Junho 6, 2005

Coloque assim...

No momento do envio do e-mail

ASP

[*]

[*]Ao inves de:

[*]Email.Send

[*]

[*]Coloca

[*]X = Email.Send

[*]

A Variavel "X" vai conter o código do Erro, então você faz um teste para saber se retornou erro

ASP

[*]

[*]If x <> 0 then

[*] Response.write "Erro nº" & X

[*] Response.end

[*]

[*]End if

[*]

dark0 · Junho 7, 2005

bueno, bueno, bueno.Tem duvida ainda?QUal componente de e-mail você está tentando usar com o pws?Relembrando.. o cdonts não funciona no pws.. (pelo menos nao por padrao).Eu recomendo o componente JMAIL.. pra usar com o win98.Mas, posta aí a duvida que esta tendo agoraabraço

globim · Junho 7, 2005

nao sabia disto drak0 poderia explicar melhor por que nao funciona ?hehe ^^eu uso soh o iis :P , ahh falar a verdade primeira vez que ousso que alguma coisa nao funciona no pws ^^é muito mais façil escutar reclamaçoes do iis do que do pws ^^abraços a todos

dark0 · Junho 7, 2005

hehee aí globim, blza?Bem, o CDONTS não funciona no PWS, porque, o PWS não possui um Servidor SMTP.E, como o CDONTS, para enviar e-mail, utiliza o Servidor SMTP do micro, se não tiver um servidor smtp instalado, o e-mail não é enviado.Sacou?Já componentes, como o JMAIL, por exemplo, nao utilizam nada para enviar e-mail. Somente o pacote que é instalado dele já é suficiente para funcionar.Entendeu?Basicamente é por causa disso.Agora.. nao me pergunte se o CDONTS funcionaria, caso tenha um Servidor SMTP instalado na maquina, pq eu nao saberia responder.. pois nunca vi nenhum servidor Smtp que desse para instalar no windows 98, e funcionar junto com o pws!Abraço

Arquivado

PWS não executa arquivo ASP

Recommended Posts

covered 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

globim 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

globim 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

covered 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

globim 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

covered 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

globim 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

covered 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

covered 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Barcellos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

covered 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Barcellos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dark0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

globim 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dark0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante