Ir para conteúdo
Fórum Script Brasil
  • 0

Erro De Sintaxe E Compilação


premiere

Pergunta

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

%>

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...