Ir para conteúdo

POWERED BY:

Arquivado

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

eduardo alberto

[Resolvido] Erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de

Por , em ASP Clássico

Recommended Posts

eduardo alberto    0

eduardo alberto
Postado

Olá a todos

Meu sistema esta dando pau e não esto conseguindo resposta você poderiam me ajudar ?

Tipo de erro:
Objeto Server, ASP 0177 (0x800401F3)
Seqüência de classe inválida 
/summersoft/web/src/contato.asp, line 10

Meu codigo e esse 

<!--#include file="../includes/topo.inc" //-->

<%
Class mail

Dim corpo,de,para,assunto,serv,html,link_after
dim Tmail

		Public Sub enviar()
		  Set Tmail = Server.CreateObject("Persits.MailSender")
		  Tmail.Host = serv
		  Tmail.From = de
		  Tmail.AddAddress para
		  Tmail.Subject = assunto
		  Tmail.IsHTML = html
		  Tmail.Body = corpo
		  if Tmail.Send then
		  Response.Redirect(link_after)
		  else
		  Response.Write Tmail.response
		  end if
		End Sub
	
		End Class
	
		'==========================================
		'==========================================
		'==========================================
		if request.form <> "" then

		dim email
		set email = new mail
		email.serv = "smtp2.locaweb.com.br"
		email.de = request.form("email")
		email.para = "suporte@summersoft.com.br"
		email.assunto = "Contato do Site"
		email.html = true
		email.link_after = "contato.asp?enviado=true"

		msg = "<table width=512 cellpadding=0 cellspacing=0>"
		
		msg = msg & "<tr><td colspan=2><img src=http://www.summersoft.com.br/images/img_email_topo.jpg>"
		
		msg = msg & "<tr><td height=40 width=120><font style=font-family:arial;font-size:12px>    Empresa:</td><td><font style=font-family:arial;font-size:10px>" & request.form("empresa")
		msg = msg & "<tr><td height=40><font style=font-family:arial;font-size:12px>    Nome:</td><td><font style=font-family:arial;font-size:10px>" & request.form("nome")
		msg = msg & "<tr><td height=40><font style=font-family:arial;font-size:12px>    Telefone:</td><td><font style=font-family:arial;font-size:10px>" & request.form("telefone")
		msg = msg & "<tr><td height=40><font style=font-family:arial;font-size:12px>    E-mail:</td><td><font style=font-family:arial;font-size:10px>" & request.form("email")
		msg = msg & "<tr><td height=40><font style=font-family:arial;font-size:12px>    Observação:</td><td><font style=font-family:arial;font-size:10px>" & request.form("obs")
		
		msg = msg & "<tr><td colspan=2><img src=http://www.summersoft.com.br/images/img_email_rodape.jpg>"
		
		email.corpo = msg
		email.enviar()

end if

%>
<script language="JavaScript">
function Validar(){

if (document.getElementById("empresa").value  == "")
	 {
	   alert("Digite o nome da Empresa!");
	   document.getElementById("empresa").focus();
	   return false;
	 }
if (document.getElementById("nome").value  == "")
	 {
	   alert("Digite o nome");
	   document.getElementById("nome").focus();
	   return false;
	 }
if  (document.getElementById("telefone").value =="")
	  {
	   alert("Digite o numero do Telefone! ");
	   document.getElementById("telefone").focus();
	   return false;
	  }  
if	 (isNaN(document.getElementById("telefone").value))
	   {
		 alert("Esse campo deve conter apenas numeros!")
		 document.getElementById("telefone").focus();
		 return false;  
	   }	 
if	(document.getElementById("email").value =="")
	  {
	  alert("Digitar e-mail valido!");
	  document.getElementById("email").focus();
	  return false;
	  }	
	  parte1=document.getElementById("email").value.indexOf("@");
	  parte2=document.getElementById("email").value.indexOf(".");
	  parte3=document.getElementById("email").value.length;
if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9))
	 {
		alert("E-mail inválido.");
		document.getElementById("email").focus();
		return false;
	 }
}
</script>

<script language="JavaScript">
function vigiaTextarea()
{
	limite = 100;
	myTextArea = document.forms[0].obs;
	myTextField = document.forms[0].contagem;

	if (myTextArea.value.length > limite) {
		myTextArea.value = myTextArea.value.substr(0,(myTextArea.value.length - (myTextArea.value.length - limite)));
	} else {
		myTextField.value=(limite - myTextArea.value.length);
	}
}
</script>

<form method="POST" name="form" action="contato.asp?enviado=true" onSubmit="return Validar()">
	<table width="310" cellpadding="0" cellspacing="0">
		<tr>
			<td height="70" valign="top">
	
				<img src="../images/barra_noticias.jpg">
			</td>
		</tr>
		
		<tr>		
			<td style="padding-left: 10px">
				<font id="font_texto">
					Informações para contato<br>
					Propostas, Orçamentos e Cotações:  <br>
					rfp@summersoft.com.br
					<br><br><br>
					Recursos Humanos : <br>
					rh@summersoft.com.br
					<br><br><br>
					Suporte Técnico: <br>
					suporte@summersoft.com.br
					<br><br><br>
					Fone/fax:<br>
					(11) 3562-7135
					<br><br><br>
					Endereço<br>
					Rua Comendador Francisco Pettinati, 389,<br>
					V. Campo Belo, São Paulo, SP, 05634-010.<br>
					<a href="../images/mapa.jpg" id="font_texto" target="_blank">clique aqui para ver o mapa</a></br>
					<a href="http://www.apontador.com.br/local/index.html?local=summer%20soft&type=1" id="font_texto" target ="_blank">Veja a localização no Apontador.com</a>
				</font>
			</td>
		</tr>
	</table>

		</td>
		<td width="458" height="405" align="center" valign="top">

		<br>
		
	<table width="310" cellpadding="0" cellspacing="0" >
		<tr>
			<td height="70" valign="top">

				<img src="../images/barra_contato.jpg">
			</td>
		</tr>
		
		<tr>
		
			<td style="padding-left:10px ">
				<font id="font_texto">
					Empresa:
				</font>
			</td>
		</tr>
		
		<tr>
			<td style="padding-left:10px ">
				<input type="text" name="empresa" id="text">
			</td>
		</tr>
		
		<tr>
			<td height="10">
			</td>
		</tr>
		
		<tr>		
			<td style="padding-left:10px ">
				<font id="font_texto">
					Nome:
				</font>
			</td>
		</tr>
		<tr>
			<td style="padding-left:10px ">
				<input type="text" name="nome" id="text">
			</td>
		</tr>
		
		<tr>
			<td height="10">
			</td>
		</tr>
		
		<tr>
			<td style="padding-left:10px ">
				<font id="font_texto">
					Telefone:
				</font>
			</td>
		</tr>
		
		<tr>
			<td style="padding-left:10px ">
				<input type="text" name="telefone" id="text">
			</td>
		</tr>
		
		<tr>
			<td height="10">
			</td>
		</tr>
		
		<tr>
			<td style="padding-left:10px ">
				<font id="font_texto">
					E-mail:
				</font>
			</td>
		</tr>
		
		<tr>
			<td style="padding-left:10px ">
				<input type="text" name="email" id="text">
			</td>
		</tr>
		
		<tr>
			<td height="10">
				</td>
		</tr>
		
		<tr>
			<td style="padding-left:10px ">
				<font id="font_texto">
					Observação:
				</font>
			</td>
		</tr>
		
		<tr>
			<td style="padding-left:10px ">
				<textarea name="obs" rows="5" id="textarea" onKeyUp="vigiaTextarea();"/>
				</textarea>
			</td>			
		</tr>
		   <tr>
			  <td style="padding-left:10px ">
			   <input type="text" disabled="disabled" name="contagem" size="3" value="100" />
			  </td>
		   </tr>
		<tr>
			<td height="10">
				</td>
		</tr>
		
		<tr>
			<td colspan="2" style="padding-left:10px ">
				<input type="submit" name="botao" value="Enviar" id="botao">
			</td>
		</tr>

		<% if request.QueryString("enviado")="true" then %>
			
			<tr>
				<td height="30" colspan="2" align="center">
					<font id="font_texto" color="#FF0000">E-mail enviado com sucesso.</font></font>
				</td>
			</tr>
			
		<% end if %>

</table>

<!--#include file="../includes/rodape.inc" //-->
Desde já meu muito obrigado!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tem o componetne registrado?

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