Erro de sintaxe e compilação

[premiere 0]

Amigos me ajudem por favor a encontar onde está estes erros...nesta primeira parte dá dando este erro: PAGINA incluir.aspTipo de erro:Erro de compilação do Microsoft vb script:history.go(-1)"> clique aqui para voltar<%end if%> PAGINA DE CONSULTAerro: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 thenResponse.write "<a href="& Request.ServerVariables("SCRIPT_NAME") & "?n=" &Request.QueryString("n")- 1 & "> <<Anterior</a>  "End if db.MoveNextIf Not db.EOF thenResponse.Write "   <a href="& Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & "> próximo >></a>"End ifConexao.Close Set db =NothingSet Conexao = Nothing%>

[Mário Monteiro 179]

este trecho ta assim mesmo com quebra de linha???If not IsEmpty (Request.Form("submit") ) ANDTrim(Request.Form ("Nome")) <> "" ANDTrim(Request.Form ("Endereço")) <> "" ANDTrim(Request.Form ("Bairro")) <> "" ANDTrim(Request.Form ("Cidade")) <> "" ANDTrim(Request.Form ("Estado")) <> "" ANDTrim(Request.Form ("CEP")) <> "" ANDTrim(Request.Form ("Telefone")) <> "" ANDTrim(Request.Form ("RG")) <> "" AND Trim(Request.Form ("CPF")) <> "" ANDTrim(Request.Form ("E-Mail")) <> "" ANDTrim(Request.Form ("Assinatura")) <> "" ANDe tem mais termina com um AND e ta sem o THEN