Erro No Envio Do Formulário.

Março 10, 2005

Boa tarde caros amigos, venho pedir ou melhor suplicar uma ajuda para vocês, eu não entendo nada de programação em ASP,por isso gostaria que alguêm me desse uma ajuda.

Eu copiei um formulário feito em PHP cujo o envio estava como CDONTS (não sei se essa é a palavra certa), quando eu mandei para o site, ela não funcionava porque o site de hospedagem não trabalhava mais com essa tecnologia (se é que posso chamar de tecnologia), dai eu mudei minha conta linux para windows para que pudesse funcionar, mais ela continua com erro, quando você prenche o formulário e envia ele dar como erro, liguei para eles e me disseram que eu teria que mudar a função do enviar CDONTS para qualquer outra que utilize ASP, então eu copiei o código que eles me deram mais tem um porém, esse código tem que ser adaptado ao formulário e eu não sei como fazer para mudar isso, estou mandando os códigos para que alguêm possa vê-lo e me dizer o que eu devo fazer.

Primeiro é o código do formulário.

<script language=javascript> 
function valid(txtNome, txtEmpresa, txtCNPJ, txtEnd, txtComp, txtNum, txtBair, txtCEP, txtCid, txtUF, txtEmail, txtDDDFone, txtTelefone, txtMsg){ 
var strerro = ""; 

if (isEmpty(txtNome)) 
strerro = strerro + "O preenchimento do campo 'NOME' é obrigatório.\n"; 

if (isEmpty(txtEmpresa)) 
strerro = strerro + "O preenchimento do campo 'EMPRESA' é obrigatório.\n"; 

if (isEmpty(txtCNPJ)) 
strerro = strerro + "O preenchimento do campo 'CNPJ' é obrigatório.\n"; 

if (isEmpty(txtEnd)) 
strerro = strerro + "O preenchimento do campo 'ENDEREÇO' é obrigatório.\n"; 

if (isEmpty(txtComp)) 
strerro = strerro + "O preenchimento do campo 'COMPLEMENTO' é obrigatório.\n"; 

if (isEmpty(txtNum)) 
strerro = strerro + "O preenchimento do campo 'NÚMERO' é obrigatório.\n"; 

if (isEmpty(txtBair)) 
strerro = strerro + "O preenchimento do campo 'BAIRRO' é obrigatório.\n"; 

if (isEmpty(txtCEP)) 
strerro = strerro + "O preenchimento do campo 'CEP' é obrigatório.\n"; 

if (isEmpty(txtCid)) 
strerro = strerro + "O preenchimento do campo 'CIDADE' é obrigatório.\n"; 

if (isEmpty(txtUF)) 
strerro = strerro + "O preenchimento do campo 'UF' é obrigatório.\n"; 

if(isEmpty(txtEmail)) 
strerro = strerro + "O preenchimento do campo 'E-MAIL' é obrigatório.\n"; 

if(isEmpty(txtDDDFone)) 
strerro = strerro + "O preenchimento do campo 'DDD DO TELEFONE' é obrigatório.\n"; 

if(isEmpty(txtTelefone)) 
strerro = strerro + "O preenchimento do campo 'TELEFONE' é obrigatório.\n"; 

if(isEmpty(txtMsg)) 
strerro = strerro + "O preenchimento do campo 'MENSAGEM' é obrigatório.\n"; 
if (isEmpty(strerro)) 
document.theform.submit(); 
else 
alert(strerro); 
} 
</script> 
</p> 

<form name="theform" action="aspmail.asp" method="post" ="return valid(document.theform.txtNome.value,document.theform.txtEmpresa.value,document.theform.txtCNPJ.value,document.theform.txtEnd.value,document.theform.txtComp.value,document.theform.txtNum.value,document.theform.txtBair.value,document.theform.txtCEP.value,document.theform.txtCid.value,document.theform.txtUF.value,document.theform.txtEmail.value,document.theform.txtDDDFone.value,document.theform.txtTelefone.value,document.theform.txtMsg.value)"> 
<div id="Layer13" style="position:absolute; left:67px; top:820px; width:646px; height:10px; z-index:14"><font color="#CCCCCC" size="1" face="Arial, Helvetica, sans-serif">&copy; 
Copyright - Cerveira, Dornellas e Advogados Associados - 2004 - 2005 Todos 
Direitos Reservados</font><font color="#CCCCCC"> - <font size="1" face="Arial, Helvetica, sans-serif">designer 
by: Wesley P. Rodrigues &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></font></div> 
<table width="97%" border="0" cellspacing="0" cellpadding="0" align="center" height="143"> 
<tr> 
<br><br><br><br><br><br><br><br><br><br><br> 
<td height="143"> <div align="justify"><font color="#FFFFFF" size="3" face="Arial, Helvetica, sans-serif">As 
suas informações estarão fazendo parte do nosso banco de dados para 
uso único e exclusivo da empresa <strong>Cerveira, Dornellas e Advogados 
Associados</strong> que se destinam a melhor atendê-lo.<br> 
<br> 
Os campos marcados com * dever&atilde;o ser necessariamente preenchidos 
para que possamos cadastrá-lo com segurança e precisão.</font> <font color="#FFFFFF" size="3" face="Arial, Helvetica, sans-serif">&nbsp; 
</font><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"> 
</font></div> 
<font face="Arial, Helvetica, sans-serif" size="2"> 
<p> 
<center> 
</center> 
<p> </font> <table cellspacing="5" cellpadding="0" width="125%" border="0"> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Nome:</font></td> 
<td align="left"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtNome" maxlength="40" size="40"> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Empresa:</font></td> 
<td align="left"> <input class="campo" name="txtEmpresa" maxlength="45" size="40"> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*CNPJ:</font></td> 
<td align="left"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtCNPJ" maxlength="18" size="15"> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Endereço:</font></td> 
<td align="left"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtEnd" maxlength="45" size="40"> 
&nbsp;&nbsp; </font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Complemento:</font></td> 
<td align="left"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtComp" maxlength="16" size="15"> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;*N.º: 
<input class="campo" name="txtNum" maxlength="7" size="9"> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Bairro:</font></td> 
<td align="left"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtBair" maxlength="25" size="25"> 
&nbsp; *CEP:&nbsp; 
<input class="campo" name="txtCEP" maxlength="9" size="8"> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Cidade:</font></td> 
<td align="left"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtCid" maxlength="30" size="30"> 
&nbsp;*UF:&nbsp; 
<select name="txtUF"class="campo" > 
<option value="AC">AC</option> 
<option value="AL">AL</option> 
<option value="AP">AP</option> 
<option value="AM">AM</option> 
<option value="BA">BA</option> 
<option value="CE">CE</option> 
<option value="DF">DF</option> 
<option value="ES">ES</option> 
<option value="GO">GO</option> 
<option value="MA">MA</option> 
<option value="MT">MT</option> 
<option value="MS">MS</option> 
<option value="MG">MG</option> 
<option value="PA">PA</option> 
<option value="PB">PB</option> 
<option value="PR">PR</option> 
<option value="PE">PE</option> 
<option value="PI">PI</option> 
<option value="RJ">RJ</option> 
<option value="RN">RN</option> 
<option value="RS">RS</option> 
<option value="RO">RO</option> 
<option value="RR">RR</option> 
<option value="SC">SC</option> 
<option value="SP">SP</option> 
<option value="SE">SE</option> 
<option value="TO">TO</option> 
</select> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*E-mail:</font></td> 
<td align="left"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="email" name="txtEmail" maxlength="40" size="40"> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Telefone:</font></td> 
<td align="left"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtDDDFone" maxlength="2" size="2"> 
&nbsp; 
<input class="campo" name="txtTelefone" maxlength="9" size="8"> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">Fax:</font></td> 
<td align="left"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<input class="campo" name="txtDDDFax" maxlength="2" size="2"> 
&nbsp; 
<input class="campo" name="txtFax" maxlength="9" size="8"> 
</font></td> 
</tr> 
<tr width=100%> 
<td class="txtfine" align="right" valign="top"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">*Mensagem:</font></td> 
<td align="left"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
<textarea name="txtMsg" rows="5" cols="45" class="campo"></textarea> 
</font></td> 
</tr> 
<tr width=100%> 
<td><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td> 
<td class="txtfine2" align="left" valign="top"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:valid(document.theform.txtNome.value,document.theform.txtEmail.value,document.theform.txtDDDFone.value,document.theform.txtTelefone.value,document.theform.txtMsg.value)" onMouseOver="window.status='Click aqui para enviar o formulário';return true;"> 
</a><a href="javascript:valid(document.theform.txtNome.value,document.theform.txtEmpresa.value,document.theform.txtCNPJ.value,document.theform.txtEnd.value,document.theform.txtComp.value,document.theform.txtNum.value,document.theform.txtBair.value,document.theform.txtCEP.value,document.theform.txtCid.value,document.theform.txtUF.value,document.theform.txtEmail.value,document.theform.txtDDDFone.value,document.theform.txtTelefone.value,document.theform.txtMsg.value)" onMouseOver="window.status='Click aqui para enviar o formulário';return true;"> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; 
<input type="submit" name="Submit" value="ENVIAR" tabindex="10"> 
</a> </font></td> 
</tr> 
</table> 
<p align="center">&nbsp;</p></td> 
</tr> 
</table> 
</form> 
<script language="JavaScript1.2">

Segundo é código para enviar o formulário + ou - prenchido como deve ser.

<% option explicit 

dim varNome,varEmpresa,varCNPJ,varEnd,varComp,varNum,varBair,varCEP,varCid,varUF,varEmail,varDDDFone,varTelefone,varDDDFax,varFax,varMsg 
dim objmail 

varNome=request.form("txtNome") 
varEmpresa=request.form("txtEmpresa") 
varCNPJ=request.form("txtCNPJ") 
varEnd=request.form("txtEnd") 
varComp=request.form("txtComp") 
varNum=request.form("txtNum") 
varBair=request.form("txtBair") 
varCEP=request.form("txtCEP") 
varCid=request.form("txtCid") 
varUF=request.form("txtUF") 
varEmail=request.form("txtEmail") 
varDDDFone=request.form("txtDDDFone") 
varTelefone=request.form("txtTelefone") 
varDDDFax=request.form("txtDDDFax") 
varFax=request.form("txtFax") 
varMsg=request.form("txtMsg") 

set objmail=server.createobject("aspmail.asp")<p>AspMail - Envio de E-mail através de página Web</p> 
objmail.from=varEmail 
objmail.to="advocacia@cerveiraedornellas.com.br" 
objmail.cc="mario@cerveiraedornellas.com.br" 
objmail.bcc="wesley@cerveiraedornellas.com.br" 
objmail.subject="MENSAGEM DO SITE" 
objmail.body="<html><head><STYLE type=text/css>body{font-family:verdana;font-size: 9pt;color:#800000;}</STYLE></head><body bgColor=#ffffff background=""http://www.cerveiraedornellas.com.br/Fundo Contato.jpg"" TEXT=#000000>"& "<p align=center>E-mail enviado do Site da Proativa Assessoria</p>" & "<br>" & "E-mail: " & varEmail & "<br>" & "Nome: " & varNome & "<br>" & "Empresa: " & varEmpresa & "<br>" & "CNPJ: " & varCNPJ & "<br>" & "Endereço: " & varEnd & "<br>" & "Número: " & varNum & "<br>" & "Complemento: " & varComp & "<br>" & "Bairro: " & varBair & "<br>" & "CEP: " & varCEP & "<br>" & "Cidade: " & varCid & "<br>" & "UF: " & varUF & "<br>" & "Telefone: " & "(" & varDDDFone & ") " & varTelefone & "<br>" & "FAX: " & "(" & varDDDFax & ") " & varFax & "<br>" & "Mensagem: " & "<br>" & varMsg & "</body></html>" 
objmail.bodyformat=0 
objmail.mailformat=0 
objmail.importance=2 
objmail.send 
set objmail=nothing 

%>

Então é isso pessoal, esse é o meu grande problema no momento, espero que alguêm possa me ajudar, até breve e que Deus abençõe a todos nós.

Espartaco · Março 11, 2005

O componente CDONTS está deixando de ser usado, inclusive o Windows 2003 Server não suporta mais ele, que deu lugar ao CDOSYS. Você pode usar o componente AspMAil, que é bem fácil de utilizar.

User esse código que fiz

<%
unome=request.form("txtNome") 
Empresa=request.form("txtEmpresa") 
CNPJ=request.form("txtCNPJ") 
End=request.form("txtEnd") 
Comp=request.form("txtComp") 
Num=request.form("txtNum") 
Bair=request.form("txtBair") 
CEP=request.form("txtCEP") 
Cid=request.form("txtCid") 
UF=request.form("txtUF") 
uemail=request.form("txtEmail") 
DDDFone=request.form("txtDDDFone") 
Telefone=request.form("txtTelefone") 
DDDFax=request.form("txtDDDFax") 
Fax=request.form("txtFax") 
Msg=request.form("txtMsg")
smtp = "mail.seudominio.com.br"
snome = "seunome"
semail = "seuemail"

Set Send = Server.CreateObject("SMTPsvg.Mailer") 
	Send.FromName = unome
	Send.FromAddress= uemail
	Send.RemoteHost = smtp
    Send.AddRecipient snome, semail
	Send.Subject = "Assunto da Mensagem Aqui" 
	Send.BodyText = "Mensagem enviada pelo Formulário."& VBCrLf & VBCrLf & "Nome: " & unome & VBCrLf & "E-mail: " & uemail & VBCrLf & VBCrLf & "Empresa " & empresa & VBCrLf & "CNPJ " & cnpj & VBCrLf & "Complemento: " & comp & VBCrLf & "Número: " & num & VBCrLf &  "Bairro: " & bair & VBCrLf &"CEPo: " & cep & VBCrLf & VBCrLf &"Cidade: "& cid & VBCrLf & "CUF: "&uf& VBCrLf &"DDD: "&dddfone& VBCrLf &"Telefone: "& telefone & VBCrLf &"Telefone: "& telefone & VBCrLf &"DDD Fax: "& fax & VBCrLf & VBCrLf &"Mensagem: "& msg & VBCrLf &"
    Send.SendMail
%>

Entrar

Erro No Envio Do Formulário.

Pergunta

Guest - wesley -

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Espartaco

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades