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

[*]%>