Jmail + Java Script

Preciso de uma "mão". Estou tentando fazer um formulário que registre uma inscrição em banco de dados e ao mesmo tempo remeta e-mail com estes dados. Acontece que este está registrando os dados mas não está remetendo o email e ainda dá o seguinte erro:

Microsoft JScript compilation error '800a03ec'

Expected ';'

/adm/ok.asp, line 48

Set rodeio = Server.CreateObject("JMail.SMTProdeio")
----^

Resumindo: eu tenho a página add.asp que contém o formulário. Após a inclusão dos dados no BD vai para a página OK.asp (código abaixo) que tem o componente Jmail. Após a execução do componente vai par aa página OK1.asp

O código da página OK.asp está abaixo:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

<%
var email = Server.CreateObject("ADODB.Recordset");
email.ActiveConnection = MM_rodeio_not_STRING;
email.Source = "SELECT * FROM artistica ORDER BY id DESC";
email.CursorType = 0;
email.CursorLocation = 2;
email.LockType = 1;
email.Open();
var email_numRows = 0;
%>
<%
Entidade= (Request.Form("nome"))
Cidade= (Request.Form("cidade"))
RT= (Request.Form("rt"))
Estado= (Request.Form("estado"))
email= (Request.Form("prendadaprenda"))
IAmirim= (Request.Form("IAmirim"))
IAjuvenil= (Request.Form("IAjuvenil"))
IAadulta= (Request.Form("IAadulta"))
IAxirú= (Request.Form("IAxirú"))
PrendaMirim= (Request.Form("PrendaMirim"))
PrendaJuvenil= (Request.Form("PrendaJuvenil"))
PrendaAdulta= (Request.Form("PrendaAdulta"))
PrendaChinoca= (Request.Form("PrendaChinoca"))
declamaPrendaMirim= (Request.Form("declamaPrendaMirim"))
declamaPeaoMirim= (Request.Form("declamaPeaoMirim"))
declamaPrendaJuvenil= (Request.Form("declamaPrendaJuvenil"))
declamaPeaoJuvenil= (Request.Form("declamaPeaoJuvenil"))
declamaPrendaAdulta= (Request.Form("declamaPrendaAdulta"))
declamaPeaoAdulto= (Request.Form("declamaPeaoAdulto"))
declamaCampInter= (Request.Form("declamaCampInter"))
gaitapianomirim= (Request.Form("gaitapianomirim"))
gaitapianojuvenil= (Request.Form("gaitapianojuvenil"))
gaitapiano= (Request.Form("gaitapiano"))
gaitapontomirim= (Request.Form("gaitapontomirim"))
gaitapontojuvenil= (Request.Form("gaitapontojuvenil"))
gaitaponto= (Request.Form("gaitaponto"))
chulamirim= (Request.Form("chulamirim"))
chulajuvenil= (Request.Form("chulajuvenil"))
chulaadulto=(Request.Form("chulaadulto"))
conjuntovocal= (Request.Form("conjuntovocal"))
interpretefeminino=(Request.Form("interpretefeminino"))
interpretemasculino=(Request.Form("interpretemasculino"))
trovamimaior=(Request.Form("trovamimaior"))
trovagildo=(Request.Form("trovagildo"))

Set rodeio = Server.CreateObject("JMail.SMTProdeio")
rodeio.ServerAddress = "mail.rodeio.com.br"
rodeio.From = "email"
rodeio.FromName = "Entidade"
rodeio.AddRecipient = "rodeio@rodeio.com.br"
rodeio.Subject = "Inscrições Artística - Rodeio"
rodeio.silent = True
rodeio.Body = "Testes de Corpo de email"<br> "Entidade:" & Entidade &
rodeio.Priority == 3
rodeio.Execute
Set.rodeio = Nothing
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR...ml4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title></title>
</head>

<body>

</body>
</html>
<%
email.Close();
%>
<%response.redirect ("ok1.asp")%>

Obrigado a todos.

Edição feita por: ncgsampa, 14/03/2006, 18:51.

#1 ncgsampa

#2 Humberto - S.O.S.

#3 ncgsampa

#4 Humberto - S.O.S.

#5 ncgsampa

0 user(s) are reading this topic