Ir para conteúdo

POWERED BY:

Arquivado

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

Flori

[Resolvido] formulario em cdosys

Por , em ASP Clássico

Recommended Posts

Flori    0

Flori
Postado

Olá galera

 

Tenho um formulario pronto criado no dreamweaver, mas preciso adaptá-lo para a hospedagem no ig empresas, que usa cdosys, tem como me ajudar?

 

Segue o código:

 

<html>
<head>
<title>Contato</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="fag.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.formularios {	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: xx-small;
	background-color: #FAFDFE;
	border: 1px solid #993300;
}
-->
</style>
<script type="text/javascript">
<!--
function MM_validateForm() { //v4.0
  if (document.getElementById){
	var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
	for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
	  if (val) { nm=val.name; if ((val=val.value)!="") {
		if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
		  if (p<1 || p==(val.length-1)) errors+='- '+nm+' ñ é um email válido.\n';
		} else if (test!='R') { num = parseFloat(val);
		  if (isNaN(val)) errors+='- '+nm+' precisa conter apenas números.\n';
		  if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
			min=test.substring(8,p); max=test.substring(p+1);
			if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
	  } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' é necessário.\n'; }
	} if (errors) alert('Alguns erros ocorreram:\n'+errors);
	document.MM_returnValue = (errors == '');
} }
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="776" height="581" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">
  <!--DWLayoutTable-->
<tr>
		<td width="361">
			<img src="images/sub_01.jpg" width="361" height="158" alt=""></td>
		<td colspan="4"><img src="images/sub_02.jpg" alt="" width="415" height="158" border="0" usemap="#Map2">
		  <map name="Map2">
			<area shape="rect" coords="361,41,397,74" href="index.html" target="_parent" alt="Home">
		  </map>		</td>
  </tr>
	<tr>
		<td colspan="2" rowspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/sub_03.jpg">
		  <!--DWLayoutTable-->
		  <tr>
			<td width="48" height="54"> </td>
			<td width="454"> </td>
			<td width="44"> </td>
		  </tr>
		  <tr>
			<td height="280"> </td>
			<td valign="top"><form action="http://www.fagma.com.br/cgi-bin/formulario.cgi" method="POST" name="formcontato" target="_parent" id="formcontato" onSubmit="MM_validateForm('nome','','R','email','','RisEmail','telefone','','NisNum');return document.MM_returnValue">
				<input type="hidden" name="RECIPIENT"value="teste@ig.com.br">
				<input type="hidden" name="SUBJECT"value="Mensagem">
				<input type="hidden" name="REDIRECT"value="http://www.fagma.com.br/pg_sucesso.htm">
				<table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
				  <!--DWLayoutTable-->
				  <tr>
					<td width="30" height="12"></td>
					<td width="84"></td>
					<td width="6"></td>
					<td width="15"></td>
					<td width="10"></td>
					<td width="50"></td>
					<td width="96"></td>
					<td width="54"></td>
					<td width="54"></td>
					<td width="51"></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td colspan="5" rowspan="2" valign="top"><input name="nome" type="text" class="formularios" id="nome" size="40" maxlength="50"></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="19"></td>
					<td rowspan="2" valign="top" class="vinho"><b class="menu">Nome: </b> </td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="2"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td colspan="5" rowspan="2" valign="top"><input name="email" type="text" class="formularios" id="email" size="40" maxlength="50"></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="19"></td>
					<td rowspan="2" valign="top" class="vinho"><b class="menu">E-mail:</b></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="2"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td colspan="5" rowspan="2" valign="top"><input name="telefone" type="text" class="formularios" size="20" maxlength="20" id="telefone"></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="19"></td>
					<td rowspan="2" valign="top" class="vinho"><b class="menu">Telefone:</b></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="2"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td colspan="5" rowspan="2" valign="top"><select name="depto" size="1" class="formularios" id="depto">
					  <option>Vendas</option>
						<option>Diretoria</option>
						<option>Marketing</option>
						<option>Financeiro</option>
																									</select></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="20"></td>
					<td colspan="2" rowspan="2" valign="top" class="vinho"><b class="menu">Departamento:</b></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="1"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="9"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr class="vinho">
					<td height="110" colspan="10" valign="top"><span class="txtprodutos">    
					     <b> </b></span><span class="menu"><b> Mensagem:   </b></span>   
					<textarea name="mensagem" cols="40" rows="6" wrap="VIRTUAL" class="formularios" id="mensagem"></textarea>					</td>
				  </tr>
				  <tr>
					<td height="6"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
				  </tr>
				  <tr>
					<td height="23"></td>
					<td></td>
					<td></td>
					<td></td>
					<td></td>
					<td valign="top" class="textocentral"><input name="Submit" type="submit" class="verde" onClick="MM_validateForm('nome','','R','email','','NisEmail');return document.MM_returnValue" value="Enviar"></td>
					<td> </td>
					<td valign="top" class="textocentral"><input name="limpar" type="reset" class="verde" value="Limpar" id="limpar"></td>
					<td> </td>
					<td></td>
				  </tr>
				</table>
			</form></td>
			<td> </td>
		  </tr>
		  <tr>
			<td height="52"> </td>
			<td> </td>
			<td> </td>
		  </tr>
		  
		  
		  
				</table></td>
		<td width="39" height="195">
			<img src="images/sub_04.jpg" width="39" height="195" alt=""></td>
		<td width="154" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/sub_05.jpg">
		  <!--DWLayoutTable-->
		  <tr>
			<td width="154" height="195" valign="top"><pre class="menu">	 
		   
  
		<a href="empresa.html" target="_parent" class="menu">EMPRESA</a>


		<a href="servicos.html" target="_parent" class="menu"></a><a href="produtos.html" target="_parent" class="menu">PRODUTOS</a>


		FALE CONOSCO</pre>			</td>
		  </tr>
		  
		  </table>		</td>
<td width="37">
			<img src="images/sub_06.jpg" width="37" height="195" alt=""></td>
	</tr>
	<tr>
	  <td height="191" colspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/sub_07_1.jpg">
		<!--DWLayoutTable-->
		<tr>
		  <td width="230" height="27"> </td>
	</tr>
		<tr>
		  <td height="146" valign="top" class="home"><p align="center" class="home"><strong>Central de Vendas</strong></p>
			<p align="center" class="home">Tel.: 55 11 3804-7990</p>
			<p align="center" class="home">Tel./Fax.: 55 11 3804-7991</p>
		  <p align="center" class="home"><a href="mailto:vendas@fagma.com.br" class="verde">vendas@fagma.com.br</a></p>			<p align="center" class="home">SAC: <a href="mailto:sac@fagma.com.br" class="verde">sac@fagma.com.br</a></p></td>
	</tr>
		<tr>
		  <td height="18"></td>
		</tr>
		
		
		</table>
	  </td>
	</tr>
	<tr>
		<td colspan="5">
			<img src="images/sub_08.jpg" alt="" width="776" height="36" border="0" usemap="#Map"></td>
  </tr>
	<tr>
		<td>
			<img src="images/spacer.gif" width="361" height="1" alt=""></td>
		<td width="185">
			<img src="images/spacer.gif" width="185" height="1" alt=""></td>
		<td>
			<img src="images/spacer.gif" width="39" height="1" alt=""></td>
		<td>
			<img src="images/spacer.gif" width="154" height="1" alt=""></td>
		<td>
			<img src="images/spacer.gif" width="37" height="1" alt=""></td>
	</tr>
</table>


</body>
</html>

Valeu !!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Abaixo um exemplo de como enviar email utilizando o cdosys.

 

 

<% 
'cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seu_dominio.com.br" 

'porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 
= 25 

'porta do CDO 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'timeout 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 

objCDOSYSCon.Fields.update 

'atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'e-mail do remetente 
objCDOSYSMail.From = "para@seu_dominio.com.br" 

'e-mail do destinatário 
objCDOSYSMail.To = "de@seu_dominio.com.br " 

'assunto da mensagem 
objCDOSYSMail.Subject = "Assunto" 

'conteúdo da mensagem 
objCDOSYSMail.TextBody = " Mensagem de email " 
'para envio da mensagem no formato html altere o TextBody para HtmlBody 
'objCDOSYSMail.HtmlBody = "Mensagem de email" 

'objCDOSYSMail.fields.update 
'envia e-mail 
objCDOSYSMail.Send 

Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write "E-mail enviado para email@seu_dominio.com.br " 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Flori    0

Flori
Postado

Ok ! Mas ñ entendo nada de programação...muito menos de ASP, aonde eu insiro esse códigos nesse meu formulario??? Poderia me orientar?

 

Valeu!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você terá um formulário que aponta para um determinado action, esse action será sua pagina asp com CDOSYS, que receberá os valores do formulário, dae você precisa apenas setar as variáveis corretas para o request dos dados (campos do formulário) e alterar o email para seu email.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Flori    0

Flori
Postado

Ok xanburzum! Vou tentar aqui!! Qq. coisa eu berro de novo...

 

Valeu!!

 

Pois é...

 

Inseri os códigos que você me passou e coloquei dentro da tag action, mas ainda dá alguns erros...mexi alterei como disse e aparece a informação: Bad Request (Invalid URL)

 

Aonde estou errando??

 

Por favor me ajude...

 

Bom, entendi maisou menos...a pg de envio ficou assim:

 

<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpusers.igempresas.com.br"

'porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25

'porta do CDO
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout
objCDOSYSCon.Fields
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente
objCDOSYSMail.From = "flori@fator2studio.com.br"

'e-mail do destinatário
objCDOSYSMail.To = "flori@fantastictoys.com.br"

'assunto da mensagem
objCDOSYSMail.Subject = "Assunto"

'conteúdo da mensagem
objCDOSYSMail.TextBody = " Mensagem de email "
'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = "Mensagem de email"

'objCDOSYSMail.fields.update
'envia e-mail
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail enviado para contato@fator2studio.com.br "
%>

 

Mas aparece o seguinte erro qdo envia:

 

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/fale.asp, line 13

 

= 25

^

Que ñ sei muito bem o que é...

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