Guest Marcel Postado Junho 5, 2003 Denunciar Share Postado Junho 5, 2003 Então pessoal, fiz esse codigo de contato e está dando esse erro:Tipo de erro: Objeto Server, ASP 0177 (0x800401F3) Seqüência de classe inválida Está dando erro na linha 10 que é o "Option Explicit" e na linha 21 que é "Set EnviarMail" 1 [COLOR=blue]1[/COLOR]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 2<html> 3<head> 4<title>Enviar</title> 5<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 6</head> 7 8<body> 9<% 10 Option Explicit 11 12 Dim var_nome, var_icq, var_email, var_site, var_comentario, var_to, EnviarMail, MsgBody 13 14 var_nome = request.querystring("txtnome") 15 var_icq = request.querystring("txticq") 16 var_email = request.querystring("txtmail") 17 var_site = request.querystring("txtsite") 18 var_comentario = request.querystring("txtcomentario") 19 var_to = "demasterg33k@hotmail.com" 20 21 Set EnviarMail = Server.CreateObject("CDONTS.NewMail") 22 EnviarMail.To = var_to 23 EnviarMail.From = var_mail 24 EnviarMail.Subject = " Waves o site do Surf !!!" 25 MsgBogy = "<html>" _ 26 & "<head>" _ 27 & "</head>" _ 28 & "<body bgcolor=""#FFFFFF"">" _ 29 & "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você 30recebeu uma mensagem de <b>" & var_nome & "</b>, icq <b>" & var_icq & "</b>, email <b>" & 31var_email & "</b>, site <b>" & var_site & "</b> e fez o seguinte comentário:</font></p><p 32align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario 33& "</b></font></p>" _ 34 & "</body>" _ 35 & "</html>" 36 EnviarMail.Body = MsgBody 37 EnviarMail.Importance = 1 38 EnviarMail.BodyFormat = 0 39 EnviarMail.MailFormat = 0 40 EnviarMail.Send 41 42 Set EnviarMail = Nothing 43 44 Response.Redirect "waves_confirmar.html" 45 46%> 47</body> 48</html> alguém pode me ajudar fazendo favor, valeu.... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Salgado Postado Junho 5, 2003 Denunciar Share Postado Junho 5, 2003 1º:Retire isso:1 [COLOR=blue]1[/COLOR]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 2<html> 3<head> 4<title>Enviar</title> 5<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 6</head> 7 8<body> e isso: 47</body> 48</html> Pois sua página é somente para enviar o e-mail, certo? Na primeira linha coloque: <%@ Language=VBScript %>Ai sim você testa e dá o retorno para dizer se funcionou.Valeu? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Marcel
Então pessoal, fiz esse codigo de contato e está dando esse erro:
Está dando erro na linha 10 que é o "Option Explicit" e na linha 21 que é "Set EnviarMail"1 [COLOR=blue]1[/COLOR]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 2<html> 3<head> 4<title>Enviar</title> 5<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 6</head> 7 8<body> 9<% 10 Option Explicit 11 12 Dim var_nome, var_icq, var_email, var_site, var_comentario, var_to, EnviarMail, MsgBody 13 14 var_nome = request.querystring("txtnome") 15 var_icq = request.querystring("txticq") 16 var_email = request.querystring("txtmail") 17 var_site = request.querystring("txtsite") 18 var_comentario = request.querystring("txtcomentario") 19 var_to = "demasterg33k@hotmail.com" 20 21 Set EnviarMail = Server.CreateObject("CDONTS.NewMail") 22 EnviarMail.To = var_to 23 EnviarMail.From = var_mail 24 EnviarMail.Subject = " Waves o site do Surf !!!" 25 MsgBogy = "<html>" _ 26 & "<head>" _ 27 & "</head>" _ 28 & "<body bgcolor=""#FFFFFF"">" _ 29 & "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você 30recebeu uma mensagem de <b>" & var_nome & "</b>, icq <b>" & var_icq & "</b>, email <b>" & 31var_email & "</b>, site <b>" & var_site & "</b> e fez o seguinte comentário:</font></p><p 32align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario 33& "</b></font></p>" _ 34 & "</body>" _ 35 & "</html>" 36 EnviarMail.Body = MsgBody 37 EnviarMail.Importance = 1 38 EnviarMail.BodyFormat = 0 39 EnviarMail.MailFormat = 0 40 EnviarMail.Send 41 42 Set EnviarMail = Nothing 43 44 Response.Redirect "waves_confirmar.html" 45 46%> 47</body> 48</html>alguém pode me ajudar fazendo favor, valeu....
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.