erro no email no site

[alexneg 0]

eae galea... beleza?

 

estou com o seguinte problema... estou fazendo a página de email do site só q na hora de enviar está dando o seguinte erro:

 

Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida /maisfacil/fale_conosco/frame/enviar.asp, line 51

eis o código da página....

<%nome = request.Form("txt_nome")email = request.Form("txt_email")titulo = request.Form("txt_titulo")mensagem = request.Form("txt_mensagem")if email <> "" then	Dim msg, texto	Set msg = Server.CreateObject("CDONTS.NewMail") 	msg.From = "corretor@maisfacil.com.br" 	msg.To="drop_alex@yahoo.com.br" 	msg.Subject = titulo 	msg.BodyFormat = 0	msg MaiFormat = 0	msg.Body = mensagem	msg.Send 	Set msg = Nothing  	    Response.Write "<p align='center' class='titulo'>Mensagem enviada com sucesso.<br>Obrigado pela participação!</p>"  else    response.write "<span class='titulo'> O campo email não foi preenchido </span>"end if%>

A linha 51 é a linha Set msg = Server.CreateObject("CDONTS.NewMail")

 

Ajudem-me por favor... é urgente,.... valeu...

[Cable 0]

msg MaiLFormat = 0

Acho q você esqueceu do L... :P

 

 

Se não for isso, ve se você tem ai o CDONTS instalado/configurado onde você ta rodando. Se certifique disso, pq pelo q eu vi, tirando o "L" faltando, no codigo ta certinho. ;)

[alexneg 0]

ah é verdade.... pior q esse exemplo eu peguei aki no imasters... hehehe...

[WebASP 0]

Seqüência de classe inválida

 

Quer dizer que o seu componente CDonts não esta instalado

[felipe.matias 0]

usa o aspmail.. eu particularmente prefiro ele.. !!!posta ai q agente ve oq da pra fzer por você !

[WebASP 0]

usa o aspmail.. eu particularmente prefiro ele.. !!!

 

posta ai q agente ve oq da pra fzer por você !

Use o ASPEMAIL este é grátis

[felipe.matias 0]

e de graca sim... você so precisa ver se ele ta instalado no seu hospedeiro... tem um codigo aki na area de codigos q verifica todos os componentes instalados... e uma pagina em asp, mto bem feita pelos caras me ajudou bastante !! vai lah da um olhada e poe na net.. pra você ver quais os q eles tem instalados...

[WebASP 0]

Salva como componentes.asp

 

 

<% Dim arrListaComponentes(35) arrListaComponentes(0) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )arrListaComponentes(1) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )arrListaComponentes(2) = Array( "ActiveX Data Object","ADODB.Connection" )arrListaComponentes(3) = Array( "ASP DNS", "AspDNS.Lookup" )arrListaComponentes(4) = Array( "ASP HTTP","AspHTTP.Conn" )arrListaComponentes(5) = Array( "ASP Image","AspImage.Image" )arrListaComponentes(6) = Array( "ASP Mail","SMTPsvg.Mailer" )arrListaComponentes(7) = Array( "ASP NNTP News", "AspNNTP.Conn" )arrListaComponentes(8) = Array( "ASP POP 3", "POP3svg.Mailer" )arrListaComponentes(9) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )arrListaComponentes(10) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )arrListaComponentes(11) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )arrListaComponentes(12) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )arrListaComponentes(13) = Array( "ASP Smart Tree","TreeGen.Tree" )arrListaComponentes(14) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )arrListaComponentes(15) = Array( "ASP WhoIs","WhoIs2.WhoIs" )arrListaComponentes(16) = Array( "CDONTS","CDONTS.NewMail" )arrListaComponentes(17) = Array( "Dimac JMail","JMail.Message" )arrListaComponentes(18) = Array( "Dundas Mailer","Dundas.Mailer" )arrListaComponentes(19) = Array( "Dundas Upload","Dundas.Upload.2" )arrListaComponentes(20) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")arrListaComponentes(21) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")arrListaComponentes(22) = Array( "Dundas 3D Chart", "Dundas.ChartServer")arrListaComponentes(23) = Array( "Dynu Encrypt","Dynu.Encrypt" )arrListaComponentes(24) = Array( "Dynu HTTP","Dynu.HTTP" )arrListaComponentes(25) = Array( "Dynu Mail","Dynu.Email" )arrListaComponentes(26) = Array( "Dynu Upload","Dynu.Upload" )arrListaComponentes(27) = Array( "Dynu WhoIs","Dynu.Whois" )arrListaComponentes(28) = Array( "Dynu Ping","Dynu.Ping" )arrListaComponentes(29) = Array( "Easy Mail","EasyMail.SMTP.5" )arrListaComponentes(30) = Array( "File System Object","Scripting.FileSystemObject" )arrListaComponentes(31) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )arrListaComponentes(32) = Array( "Persits ASP JPEG","Persits.Jpeg" )arrListaComponentes(33) = Array( "Persits ASPEmail","Persits.MailSender" )arrListaComponentes(34) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )arrListaComponentes(35) = Array( "Persits File Upload","Persits.Upload.1" )' Rotina que verifica o componente do array é um objeto.Function VerificaObjeto(pComponente)Dim objComponenteOn Error Resume NextVerificaObjeto = FalseErr.ClearSet objComponente = Server.CreateObject(pComponente)If Err = 0 Then VerificaObjeto = TrueSet objComponente = NothingErr.ClearEnd FunctionPublic Function VerificaComponentes()Dim intCont, strTxtDim intIndex, strProvintCont = 0strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>"For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)strProv = intIndexstrTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>"If VerificaObjeto(arrListaComponentes(intIndex)(1)) ThenstrTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>"intCont = intCont + 1ElsestrTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>"End IfstrTxt = strTxt & "</tr>"NextstrTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de "strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>"VerificaComponentes = strTxt End FunctionResponse.Write "<center><a href='http://www.w2n.com.br'><font size='1' color='990000' face='tahoma'>Verifica Componentes</font></a></p>"Response.Write VerificaComponentesResponse.Write "<p><center><font face='tahoma' size='2'>(C) Copyright 2003. Todos direitos reservados.</font></center>"%>