PWS não executa arquivo ASP
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á <b>"& nomeDestino &"</b>,<br><br>"
[*]htmlText = htmlText & "A Voz da Poesia Falando ao Coração... envia a você momentos de emoção!<br><br>"
[*]htmlText = htmlText & "Seu amigo(a) chamado: <b>"&nomeOrigem&"</b>, lhe enviou esta poesia:<br>"
[*]htmlText = htmlText & "<a href="""&UrlSite&"?pg="&pagina&""">"&UrlSite&"</a><br><br>"
[*]htmlText = htmlText & "Mensagem do seu amigo(a):<br><b>"&texto&"</b><br><br>"
[*]htmlText = htmlText & "Atenciosamente,<br><br>"
[*]htmlText = htmlText & "Equipe ''A Voz da Poesia''<br>"
[*]htmlText = htmlText & "<a href=""mailto:"&FromEmail&""">"&FromEmail&"</a>"
[*]'---- MENSAGEM PARA ADMINISTRAÇÃO -------------------------------
[*]htmlText2 = "FOI EFETUADO O ENVIO DA SEGUINTE POESIA:<br><br>"
[*]htmlText2 = htmlText2 & "<a href="""&UrlSite&"?pg="&pagina&""">"&UrlSite&"</a><br><br>"
[*]htmlText2 = htmlText2 & "De: <b>"&nomeOrigem&"</b><br>email: <b>"&emailOrigem&"</b><br><br>"
[*]htmlText2 = htmlText2 & "Para: <b>"&nomeDestino&"</b><br>email: <b>"&emailDestino&"</b><br><br>"
[*]If metoo = "" Or metoo = Null Then htmlText2 = htmlText2 & "Sem CÓPIA para o remetente!<br><br>"
[*]If metoo = "yes" Then htmlText2 = htmlText2 & "Com CÓPIA para o remetente!<br><br>"
[*]htmlText2 = htmlText2 & "O IP do responsável foi: <b>"&IP&"</b><br>"
[*]htmlText2 = htmlText2 & "Data do envio: <b>"&data&"</b><br>"
[*]htmlText2 = htmlText2 & "Hora do envio: <b>"&hora&"</b>h<br>"
[*]htmlText2 = htmlText2 & "Site de origem: <b>"&Servidor&"</b><br>"
[*]htmlText2 = htmlText2 & "<br>--------------------- FIM DA MENSAGEM ---------------------<br>"
[*]'---- 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á <b>"& nomeOrigem &"</b>,<br><br>"
[*] htmlText3 = htmlText3 & "A Voz da Poesia Falando ao Coração... enviou ao seu amigo(a), momentos de emoção!<br><br>"
[*] htmlText3 = htmlText3 & "Seu amigo(a) chamado: <b>"&nomeDestino&"</b>, recebeu esta mensagem que A Voz da Poesia enviou:<br>"
[*] htmlText3 = htmlText3 & "<a href="""&UrlSite&"?pg="&UrlSite2&""">"&UrlSite&"</a><br><br>"
[*] htmlText3 = htmlText3 & "Mensagem enviada para seu amigo(a):<br><b>"&texto&"</b><br><br>"
[*] htmlText3 = htmlText3 & "Atenciosamente,<br><br>"
[*] htmlText3 = htmlText3 & "Equipe ''A Voz da Poesia''<br>"
[*] 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
[*]%>
Discussão (14)
Carregando comentários...