Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

MisterFoot

Instala Script E Da Problema

Por , em ASP Clássico

Recommended Posts

MisterFoot    0

MisterFoot
Postado

Pessoal todo script q eu tento instala pode dar, certo, mais sempre qndo eu vou clicar em um link ou coisa parecida ele da um problema, alguem pode me dizer por que?segue como exmplo o script logo abaixo, q eh de enviar email, e depois que manda o email aparece uma pagina nao encontrada com logo abaixo com um erro, veja o exemplo.Mensagem de Erro:

Não é possível exibir a página Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la. --------------------------------------------------------------------------------Experimente o seguinte:Clique no botão Atualizar ou tente novamente mais tarde.Abra a localhost home page e procure os links para as informações desejadas. HTTP 500.100 - Servidor interno Erro - erro do ASPInternet Information Services--------------------------------------------------------------------------------Informações técnicas (para a equipe de suporte)Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)ProgID inválido. Para obter informações adicionais específicas sobre esta mensagem, visite o site Microsoft Online Support localizado em: http://www.microsoft.com/contentredirect.asp (site em inglês). /luiz/1/enviar.asp, line 14Tipo de navegador: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) Página: GET /luiz/1/enviar.asp Hora: quinta-feira, 9 de setembro de 2004, 20:42:15 Mais informações: Suporte da Microsoft

default.asp

<html><head><title>Fale Conosco</title></head><body topmargin="0" leftmargin="0"><div align="center"><center><table border="0" width="266"><tr><td width="258" valign="top" height="1"><form method="POST" action="enviar.asp"><div align="center"><center><table border="0" width="50%" cellspacing="0" cellpadding="0"><tr><td width="96%"><p align="left"><font size="2" face="Verdana">Nome:</font></td></tr><tr><td width="96%"><p align="left"><font size="2" face="Verdana"><input type="text" name="nome" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td></tr><tr><td width="96%"><p align="left"><font size="2" face="Verdana">E-mail:</font></td></tr><tr><td width="96%"><p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td></tr><tr><td width="96%"><p align="left"><font size="2" face="Verdana">Assunto:</font></td></tr><tr><td width="96%"><p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td></tr><tr><td width="96%"><p align="left"><font size="2" face="Verdana">Mensagem:</font></td></tr><tr><td width="96%"><p align="left"><font size="2" face="Verdana"><textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea></font></td></tr><tr><td width="96%"> </td></tr><tr><td width="96%"><p align="center"><font face="Verdana"><input type="submit" value="Enviar >>" name="enviar"></font></td></tr></table></center></div></form></center></td></tr></table></div></body></html>

enviar.asp

<%'Declarando variveisDim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto'Pegando os dados digitados nos campos e colocando em variaveissNameFrom = Request.Form("nome")sEmailFrom = Request.Form("email")sEmailTo = "usuario@portalcatalao.com.br"sNameTo = "Nome do Site"sText = Request.Form("mensagem")sAssunto = Request.Form("assunto")'Cria o objeto  set mailer = server.createobject("SMTPsvg.Mailer")  Mailer.FromName = sNameFrom  Mailer.FromAddress = sEmailFrom'Host para envio de emails'CONFIGURE ESTA LINHA !  Mailer.RemoteHost = "mail.portalcatalao.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%>

obrigado.asp

<html><head><title>Fale Conosco</title></head><body topmargin="0" leftmargin="0"><div align="center"><center><table border="0" width="439"><tr></center><p align="center"><font color="#00B0FF" size="3"><b>Muito Obrigado !!</b></font><p align="center"><font size="2"></font><p align="center"><font size="2">Sua Mensagem foi enviada com sucesso.</font></td></tr></table></div></td></body></html>

Obs.: além desses arquivos tem uma pasta chamada "faleconosco" só que não tem nada dentro dela

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

a linha q da erro provavelmente eh essa:set mailer = server.createobject("SMTPsvg.Mailer")você naum tem o objeto instalado no seu server... ProgID inválido

Compartilhar este post

Link para o post
Compartilhar em outros sites

MisterFoot    0

MisterFoot
Postado

a linha q da erro provavelmente eh essa:set mailer = server.createobject("SMTPsvg.Mailer")você naum tem o objeto instalado no seu server... ProgID inválido

e o que eu devo fazer pra funcionar?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito