Erro De Sintaxe E Compilação

[premiere]

Amigos me ajudem por favor a encontar onde está estes erros...

nesta primeira parte dá dando este erro: PAGINA incluir.asp

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/curso/incluir.asp, line 79, column 45

If not IsEmpty (Request.Form("submit") ) AND

CODIGO:

<%

If IsEmpty(Request.Form ("submit") ) Then

%>

<p>&nbsp;</p>

<form id="form1" name="form1" method="post" action="<%=Request.ServerVariables("script_name")%>">

<%

Else

If not IsEmpty (Request.Form("submit") ) AND

Trim(Request.Form ("Nome")) <> "" AND

Trim(Request.Form ("Endereço")) <> "" AND

Trim(Request.Form ("Bairro")) <> "" AND

Trim(Request.Form ("Cidade")) <> "" AND

Trim(Request.Form ("Estado")) <> "" AND

Trim(Request.Form ("CEP")) <> "" AND

Trim(Request.Form ("Telefone")) <> "" AND

Trim(Request.Form ("RG")) <> "" AND

Trim(Request.Form ("CPF")) <> "" AND

Trim(Request.Form ("E-Mail")) <> "" AND

Trim(Request.Form ("Assinatura")) <> "" AND

Set conexao = Server.CreateObject ("ADODB.Connection")

Conexao.open "DBQ=D:\Inetpub\wwwroot\curso\db\assinantes.mdb;Driver={Microsoft Acess Driver (*.mdb)};"

comandoSQL = "INSERT INTO cadastro (Nome, Endereço, Bairro, Cidade, Estado, CEP, Telefone, RG, CPF, E-Mail, Assinatura)"

ComandoSQL = ComandoSQL & "VALUES ("

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("Nome")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("Endereço")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("Bairro")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("Cidade")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("Estado")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("CEP")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("Telefone")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("RG")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("CPF")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("E-mail")) & "',"

ComandoSQL = ComandoSQL &"'" &

Server.HTMLEncode(Request.FORM("Assinatura")) & "',"

Set bd = Conexao.Execute(ComandoSQL)

Conexao.close

Set bd = Nothing

%>

Os dados foram enviados com sucesso

<% else

%>

Atenção: Alguns dados necssários não foram preenchidos corretamente. <BR />

<a href="javascript:history.go(-1)"> clique aqui para voltar

<%

end if

%>

PAGINA DE CONSULTA

erro:Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/curso/consultar.asp, line 22

"DBQ=D:\Inetpub\wwwroot\curso\db\assinantes.mdb; Driver={Microsoft Acess Driver (*.mdb)};"

CODIGO: primeira parte

<%

Set Conexao = Server.CreateObject ("ADODB.Connection")

Conexao.Open

"DBQ=D:\Inetpub\wwwroot\curso\db\assinantes.mdb; Driver={Microsoft Acess Driver (*.mdb)};"

ComandoSQL = "SELECT * FROM cadastro"

Set db = Conexao.Execute(ComandoSQL)

If Not db.EOF Then

db.Move Request.Querystring ("n")

%>

segunda parte

<%

If request.QueryString ("n")> 0 then

Response.write "<a href="& Request.ServerVariables("SCRIPT_NAME") & "?n=" &

Request.QueryString("n")- 1 & "> &lt;&lt;

Anterior</a>&nbsp;&nbsp;"

End if

db.MoveNext

If Not db.EOF then

Response.Write "&nbsp;&nbsp; <a href="& Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & "> próximo &gt;&gt;</a>"

End if

Conexao.Close

Set db =Nothing

Set Conexao = Nothing

%>

[fercosmig]

qual a linha 45?

coloca ela em destaque!!!

[.Andreia.]

If not IsEmpty (Request.Form("submit") ) AND

Trim(Request.Form ("Nome")) <> "" AND

Trim(Request.Form ("Endereço")) <> "" AND

Trim(Request.Form ("Bairro")) <> "" AND

Trim(Request.Form ("Cidade")) <> "" AND

Trim(Request.Form ("Estado")) <> "" AND

Trim(Request.Form ("CEP")) <> "" AND

Trim(Request.Form ("Telefone")) <> "" AND

Trim(Request.Form ("RG")) <> "" AND

Trim(Request.Form ("CPF")) <> "" AND

Trim(Request.Form ("E-Mail")) <> "" AND

Trim(Request.Form ("Assinatura")) <> "" AND

você colocou AND sendo que não há nada mais a acrescentar. Então no fim, em vez de AND, coloque THEN:

Trim(Request.Form ("Assinatura")) <> "" THEN

[premiere]

Andreia-sp fiz a alteração e o erro permanece o mesmo

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/curso/incluir.asp, line 79, column 45

If not IsEmpty (Request.Form("submit") ) AND

[.Andreia.]

voce está colocando enter e por isso não aceita, faça assim:

[premiere]

o erro persistiu

[.Andreia.]

Eu criei aqui o seu arquivo incluir.asp, fiz algumas modificações. Primeiro eu separei a conexao, fazendo um include na pagina. Isso é vantajoso porque voce poderá usar a conexao em qualquer arquivo sem precisar escreve-la sempre, somente chamando a função:

conexao.asp

[premiere]

ok Andreia eu alterei o bco e o codigo , mas deu este erro

/curso/incluir.asp, line 11, column 40

If IsEmpty(Request.Form ("submit") ) AND

[.Andreia.]

Não entendi, se for o primeiro IF então é