Jump to content

  2. →
  3. →

Photo

Problema Com Asp?

Started By Netrix, 21/12/2004, 08:20

  • Faça o login para participar
14 replies to this topic

#1 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 21/12/2004, 08:20

:o Gostaria de Saber Se Alguém Pode Me Ajudar Com Este Erro?

Objeto Server error 'ASP 0177 : 800401f3'

Falha em Server.CreateObject

/torpedo/torpedo/cadastrotorpedo.asp, line 240

800401f3


#2 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 21/12/2004, 08:37

pelo jeito deu erro no obj que vc criou, posta o código para vermos melhor.

#3 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 21/12/2004, 09:05

Este Aqui

<%
'***********************************************************************
'**        Sistema de torpedo desenvolvido pela equipe aspHELP        **
'**            Contatos: José Luis Tegnher - ICQ 119412820            **
'**                      Temístocles Sota  - ICQ 104458476            **
'**                      http://www.asphelp.com.br                    **
'***********************************************************************
%>
<script language="JavaScript">
<!--
function AbreJanela() {
window.open('','AbreJanela','width=560,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no,resizable=no,left=220,top=120')
}
//-->
</script>

<head>
<title></title>
</head>

<body bgcolor="#000000" text="#FF0000" link="#FF0000" vlink="#FF0000" alink="#FFFFFF">

<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="25">&nbsp;</td>
    <td width="590">
<br>



<% If IsEmpty( Request.Form("acao") ) Then %>


           
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
  <FORM name=form method=post>
              <TBODY>
              <TR>
                <TD bgColor=#000000>
                  <TABLE cellSpacing=1 cellPadding=5 width="100%" align=center
                  border=0>
                    <TBODY>
                    <TR>
                      <TD vAlign=top
                   
                      bgColor=#000000>
                        <p align="center"><B><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2><INPUT type=hidden value=Torpedo name=tipo>
                </FONT></B>
              <p align="left"><br>
                        <img border="0" src="imagens/torpedo.gif"><br>
                        </p>
                        <p><B> <FONT
                        color=#ff0000 size=1>
                        <FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2>
                        <br>
</FONT></FONT> <font color="#ff0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2> <FONT
                        color=#ff0000 size=1>
                        »</FONT> Seu nome: <BR><INPUT
                        class=caixa size=35 name=SeuNome style="border: 1 solid #000000"> </FONT></B><B><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2><BR>
                        </FONT><font color="#ff0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2><FONT color=#ff0000 size=1>»</FONT> Seu uin do
                        ICQ:<BR>
                      <INPUT
                        class=caixa size=35 name=SeuEmail style="border: 1 solid #000000"> 
                        <BR>
                        </FONT><font color="#ff0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2><FONT color=#ff0000 size=1>»</FONT> Recadinho
                        para:<BR><INPUT
                        class=caixa size=35 name=TorpedoPara style="border: 1 solid #000000"> <BR>
                        </FONT><font color="#ff0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2>
                      <FONT
                        color=#ff0000 size=1>»</FONT> Uin do ICQ de seu amigo(a):<BR>
                      <INPUT
                        class=caixa size=35 name=EmailTorpedo style="border: 1 solid #000000">
                        </FONT></B>
                        </p>
                        <p><B><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2>Recadinho:</FONT></B>
                        <BR><B><FONT
                        face="Verdana, Arial, Helvetica, sans-serif"
                        size=2></FONT></B>
                        <TABLE cellSpacing=1 cellPadding=1 width="100%"
border=0>
                          <TBODY>
                          <TR>
                            <TD>
                              <p style="margin-top: 0; margin-bottom: 0"><B><FONT
                              face="Verdana, Arial, Helvetica, sans-serif"
                              size=2><TEXTAREA class=caixa2 onkeypress=java script:limita(); name=msg rows=6 cols=48 style="border: 1 solid #000000"></TEXTAREA>
                              </FONT></B></p>
                              <p style="margin-top: 0; margin-bottom: 0"><FONT face="Verdana, Arial, Helvetica, sans-serif"
                        size=2><INPUT disabled maxLength=3 size=3 value=600
                        name=nu_caracteres style="border: 1 solid #000000"> </FONT></p>
                              <P><IMG
                              src="imagens/rostos/108.gif">  <IMG height=16
                              src="imagens/rostos/115.gif"
                              width=15> <IMG height=18
                              src="imagens/rostos/128.gif"
                              width=16>&nbsp; <IMG height=15
                              src="imagens/rostos/165.gif"
                              width=15>&nbsp;&nbsp; <IMG height=31
                              src="imagens/rostos/101.gif"
                              width=31>&nbsp; <IMG height=21
                              src="imagens/rostos/110.gif"
                              width=22><BR><a href="imagens/rostos/rostos1.asp" target=AbreJanela onClick="AbreJanela('','AbreJanela',560,400,'yes','yes')"><font face="Verdana" size="1">Quer
                              imagens no seu recadinho? Clique Aqui e saiba
                              como.</font></A></P>
                            </TD>
                          </TR></TBODY></TABLE>
                        <P align=center><INPUT type=hidden value=Londrina
                        name=cidade> <INPUT type=hidden value=07/04/2002
                        name=data> <INPUT type=hidden value=09:49 name=hora>
                        <INPUT type=hidden value=200.151.40.151 name=ip> <INPUT
                        type=hidden value=sim name=liberado> <INPUT class=caixa type=submit value=Inserir name=acao style="border: 1 solid #000000"> <INPUT class=caixa type=submit value=Visualizar name=acao style="border: 1 solid #000000">
<INPUT class=caixa type=reset value=Refazer name=acao style="border: 1 solid #000000">
                        <br>
                                           
                        </P></TD></TR></TBODY></TABLE></TD></TR></TBODY></FORM></TABLE>

<% else %>

<table border="0" width="100%" bgcolor="#000000" cellspacing="0">
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#000000">
        <tr>
          <td width="100%">         
            <%
            If Request.Form("acao") = "Visualizar" Then
            smiler = 1
            msg = request.form("msg")
            While Not smiler = 211
            img = ":" & smiler & ":"
            msg = replace(msg,img,"<img border='0' src='imagens/rostos/" & smiler & ".gif'>")
           
            smiler = smiler + 1
            Wend
            %>
  <form name="form" method="post">
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
            <td bgcolor="#000000">
              <table width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
                <tr>
                  <td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>De:</b><%= request.form("SeuNome")%><b> - <b>Para:
                    </b></b><%= request.form("TorpedoPara")%></font></td>
                </tr>
                <tr>
                  <td bgcolor="#E8E8E8" valign="top" background="imagens/back_torpedo.gif">
                    <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#993300">
   
<%= msg %></font> </p>
                    </td>
                </tr>
                <tr>
                  <td bgcolor="#FFFFFF">
                    <div align="center"> 
   
                      <input type="submit" name="acao" value="Inserir" style="border-style: solid; border-width: 1">
                      <input type="button" name="acao" value="Alterar" onClick="java script:history.go(-1)" style="border-style: solid; border-width: 1">
    </div>                 
      </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <input type="hidden" name="SeuNome" value="<%= request.form("SeuNome")%>">
        <input type="hidden" name="SeuEmail" value="<%= request.form("SeuEmail")%>">
        <input type="hidden" name="EmailTorpedo" value="<%= request.form("EmailTorpedo")%>">
        <input type="hidden" name="TorpedoPara" value="<%= request.form("TorpedoPara")%>">       
        <input type="hidden" name="torpedo" value="<%= msg %>">
        </form>

            <p align="center">

            <%
            else
                        smiler = 1
            msg = request.form("msg")
            While Not smiler = 211
            img = ":" & smiler & ":"
            msg = replace(msg,img,"<img border='0' src='imagens/rostos/" & smiler & ".gif'>")
           
            smiler = smiler + 1
            Wend
            torpedo = Request.FORM("torpedo") & msg
            torpedo = Replace(torpedo, Chr(39), "''")
           
  If Not IsEmpty(Request.Form("acao")) AND Trim(Request.Form("SeuNome")) <> ""  AND Trim(Request.Form("TorpedoPara")) <> ""  AND Trim(torpedo) <> ""  Then
    Set Conexao = Server.CreateObject("ADODB.Connection")
    Conexao.Open dados
    ComandoSQL = "INSERT INTO torpedo (SeuNome, SeuEmail, TorpedoPara, EmailTorpedo, torpedo)"
    ComandoSQL = ComandoSQL & " VALUES ("
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("SeuNome")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("SeuEmail")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("TorpedoPara")) & "',"
    ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("EmailTorpedo")) & "',"
    ' ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(torpedo) & "')"
    ComandoSQL = ComandoSQL & "'" & torpedo & "')"
    Set bd = Conexao.Execute(ComandoSQL)
    Conexao.Close
    Set bd = Nothing
    Set Conexao = Nothing
   

  Set Conexao = Server.CreateObject("ADODB.Connection")
  Conexao.Open dados
  ComandoSQL = "SELECT * FROM torpedo where SeuNome='" & Server.HTMLEncode(Request.FORM("SeuNome")) & "' order by id desc"
  Set bd = Conexao.Execute(ComandoSQL)
  cod = bd("id")
  Conexao.Close
  Set bd = Nothing
  Set Conexao = Nothing

   
   
    body = ts & vb script:history.go(-1)"><b>Clique aqui</b></a>  para voltar</center>

            &nbsp;</font>
        </p>

            <p align="center">
              <%
  End If
End If
%>
              <center>
              </center>
        </p>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<p>&nbsp;
<% end if %>
<br>
</td>
  </tr>
</table>


#4 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 21/12/2004, 09:09

Qual é a linha 240 mesmo?

Mas parece ser o CDONTS.
------
Mero mortal!

#5 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 21/12/2004, 09:34

Isto Linha 240, Ai Por Favor Quebre Este Galho Pra Precisor Muito deste Codigo! :rolleyes:

#6 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 21/12/2004, 09:44

Vc esta rodando este código na sua máquina local? Qual é o sistema operacional??

Veja bem, como vc deve ter percebido, o componente CDONTS serve para fazer o envio de e-mails, existem diversos componentes para ASP deste tipo, geralmente o CDONTS já é instalado, se não me engano, com o IIS.

Neste caso, vc não tem o CDONTS instalado no seu sistema ou no seu host.
Se for este o caso, vc vai ter que alterar esta parte do código para um componente que esteja instalado. Caso isto seja no seu host, veja no site deles ou entre em contato direto com o suporte para ter mais informações.
------
Mero mortal!

#7 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 21/12/2004, 09:49

Na mina Maquina, Win98!! :lol:

#8 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 21/12/2004, 09:59

É este o problema então, esta usando o PWS. Infelismente o CDONTS não acompanha o PWS.

De uma olhada nesses componentes de envio de email:
Persist AspEMail
ServerObject AspMail
Dimac w3JMail

ps.: O w3JMail parece ser 'free', pelo menos de acordo com o que diz no site, porém, não costumo ver este componente instalado nos hosts.

Vc vai ter que alterar esta parte do código, de acordo com o componente que vc escolher para envio de emails.
  set objMail = server.createobject("CDONTS.NewMail")
    objMail.From = fromWeb
    objMail.To = toMod
    objMail.Subject = "Nova Mensagem no " & ts
    objMail.Body = body
    objMail.Importance = 1
    objMail.Send
  set objMail = Nothing

------
Mero mortal!

#9 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 21/12/2004, 10:02

set objMail = server.createobject("CDONTS.NewMail")
  objMail.From = fromWeb
  objMail.To = toMod
  objMail.Subject = "Nova Mensagem no " & ts
  objMail.Body = body
  objMail.Importance = 1
  objMail.Send
set objMail = Nothing


Eu Posso Trocar Este "CDONTS" pro outra ? e qual seria ele!
:P
Desculpa Por Tá Perguntado De Masi Pois Sou Novato!

#10 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 21/12/2004, 10:04

Por um desses:
Persist AspEMail
ServerObject AspMail
Dimac w3JMail

Mas primeiro precisa instalar no seu sistema.
------
Mero mortal!

#11 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 21/12/2004, 10:08

Qual é o Mais Usado Nos servidores?

#12 Prog

Prog

    ...

  • Ex-Admins
  • 3761 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro/RJ
  • Interesses:TI, Software Livre, Design Digital e Rock'n'Roll.

Posted 21/12/2004, 10:35

1 desses mais usado não tem não, mas geralmente todo servidor tem, pelo menos, o CDONTS. *rs*
------
Mero mortal!

#13 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 21/12/2004, 10:37

:D Valeu :D

#14 Netrix

Netrix

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Não informado

Posted 22/12/2004, 07:43

Persist AspEMail Eu Instalei Este Daqui!! Ve Se tar certo o Codigo!

set objMail = server.createobject("Persisit AspEmail.NewMail")
   objMail.From = fromWeb
   objMail.To = toMod
   objMail.Subject = "Nova Mensagem no " & ts
   objMail.Body = body
   objMail.Importance = 1
   objMail.Send
set objMail = Nothing


procure usar a opção Editar nestes casos

Edição feita por: Agente Linhares, 23/12/2004, 03:58.

#15 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 23/12/2004, 04:02

aqui tem td q vc precisa:
http://forum.wmonlin...showtopic=98252
http://forum.wmonlin...showtopic=94340


procure usar a busca.
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
Voltar para ASP


2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq