Ir para conteúdo

POWERED BY:

Arquivado

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

blink

cdonts

Por , em ASP Clássico

Recommended Posts

blink    0

blink
Postado

Alguem pode avaliar o código para mim pois eu não estou vendo erro nele...Mais não funciona..he he he

<%str_nome = trim(request.form("nome"))str_remetente = trim(request.form("remetente"))str_destinatario = trim(request.form("destinatario"))str_assunto = "www.esquinado som.com.br"endereco = request.form("pagina")str_mensagem = "Acessei este site e achei interessante: <a href = " & endereco & ">" & endereco & "</a>"set mensagem = Server.CreateObject("CDONTS.NewMail")mensagem.from = str_nome & "(" & str_remetente & ")"mensagem.to = str_destinatariomensagem.Subject = str_assuntomensagem.bodyformat = 0mensagem.mailformat = 0mensagem.Body = str_mensagemmensagem.Sendresponse.write "<b> Dados da mensagem...</b>"response.write "<br> <i> Remetente: </i> " & str_nome & "-" & str_remetenteresponse.write "<br> <i> Destinatario: </i> " & str_destinatarioresponse.write "<br> <i> Assunto: </i> " & str_assuntoresponse.write "<br> <i> mensagem: </i> " & str_mensagemresponse.write "<br> <h2> Mensagem enviada com sucesso! </h2>"response.write "<br> <strong> <a href = " & endereco & "> Clique  aqui para voltar! </a> </strong>"%>

O html

<html><head><title>usuarios online</title></head><body><p>Nesta area aparece o codigo da sua pagina</p><hr><form action="indique.asp" method="post"><strong> Preencha os campos abaixo e indique a um amigo:</strong><br><b>Seu nome</b><input type="text" name="remetente" size="30"><br><b>E-mail do seu amigo:</b><input type="text" name="destinatario" size="26"><br><input type= hidden name="pagina" value="http://www.iped.com.br/"><input type="submit" value="indique este site para um amigo"></form></body></html>

Isso vai ajudar muita gente tambem respondão ai por favor!!!Ha!!!Tem algum site free que hospede asp e seja em portugues?Se não tiver em portugues pode ser qualquer lingua...heheObrigaduuuuuuuu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Qual erro está dando?

E sobre hospedagem ASP, tem o ASPecto

Compartilhar este post

Link para o post
Compartilhar em outros sites

blink    0

blink
Postado

Olá o erro é:Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida indique.asp, line 8Linha 8:set mensagem = Server.CreateObject("CDONTS.NewMail")

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O seu servidor possui o CDONts instalado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

namio    0

namio
Postado

Tive o mesmo problema.

 

Para verificar se o componente CDONTS está instalado, ruinas me mandou o seguinte script (que apresenta todos os componentes instalados no servidor):

 

<% @ Language="VBScript" %>

<% Option Explicit %>

<%

Dim theComponent(11)

Dim theComponentName(11)

 

' componentes

theComponent(0) = "ADODB.Connection"

theComponent(1) = "SoftArtisans.FileUp"

theComponent(2) = "AspHTTP.Conn"

theComponent(3) = "AspImage.Image"

theComponent(4) = "LastMod.FileObj"

theComponent(5) = "Scripting.FileSystemObject"

theComponent(6) = "SMTPsvg.Mailer"

theComponent(7) = "CDONTS.NewMail"

theComponent(8) = "Jmail.smtpmail"

theComponent(9) = "SmtpMail.SmtpMail.1"

theComponent(10) = "Persits.Upload.1"

theComponent(11) = "UnitedBinary.AutoImageSize"

 

' apelido do componente!

theComponentName(0) = "ADODB"

theComponentName(1) = "SA-FileUp"

theComponentName(2) = "AspHTTP"

theComponentName(3) = "AspImage"

theComponentName(4) = "LastMod"

theComponentName(5) = "FileSystemObject"

theComponentName(6) = "ASPMail"

theComponentName(7) = "CDONTS"

theComponentName(8) = "JMail"

theComponentName(9) = "SMTP"

theComponentName(10) = "Persits Upload"

theComponentName(11) = "AutoImageSize"

 

Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

%>

<html>

<head>

<title>O q tem aqui?</title>

<meta name="generator" content="Namo WebEditor v5.0(Trial)">

</head>

<body>

<table width="100%" border="1" cellspacing="0" cellpadding="0">

<tr>

<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes

instalados:</b></font></td>

</tr>

<tr>

<td>

<table border="0" cellpadding="0" cellspacing="0" width="100%">

<%

Dim i

For i=0 to UBound(theComponent)

If Not IsObjInstalled(theComponent(i)) Then

 

Else

Response.Write "<tr>" & vbCrLf

Response.Write "<td width=""100%"">" & vbCrLf

Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf

Response.Write "</td>" & vbCrLf

Response.Write "</tr>" & vbCrLf

End If

Next

%>

</table>

 

</td>

</tr>

</table>

 

</body>

</html>

 

 

 

Agora para instalar o componente eu tb não sei ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

namio    0

namio
Postado

Tá igual ao meu. Entretanto, o neco me enviou o caminho das pedras. Estou te passando abaixo a resposta que ele me mandou. Espero que possa ajudá-lo.

 

Para pegar o cdonts.dll clique <a href="http://www.maritonio.com.br/download/cdonts.dll">AQUI</a>

 

A dica é a seeguinte: Se o seu Windows for o NT ou 2000 ele já possui a dll registrado, mas caso seja o 95, 98, ME ou XP, você deverá registrá-la com o regsvr32.exe. Para isso, siga as instruções abaixo:

 

1. Baixe o arquivo cdonts.dll e salve no diretório c:\windows\system32.

2. No menu iniciar do windows, clique em executar.

 

Atenção: No caso do Windows XP, é preciso que o Menu Iniciar esteja no modo clássico para visualizar o comando EXECUTAR. Para mudar o Menu Iniciar para o modo clássico, clique com o botão direito do mouse sobre ele e escolha a opção propriedades. A seguir escolha Menu Inciar Clássico.

 

3. Em executar Digite a seguinte linha de comando:

regsvr32.exe c:\windows\system32\cdonts.dll

 

4. Dê enter e execute os seus códigos ASP no seu Localhost usando seus scripts com o CDONTS

 

A dica foi conseguida no site http://www.turismonanet.hpg.ig.com.br/

 

Abraços,

 

Nâmio Evangelista Cavalcante

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