Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

JBNC

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

Por , em ASP Clássico

Recommended Posts

JBNC    0

JBNC
Postado

Boa tarde pessoal,

Na minha bosca de conhecer o ASP, me deparei com o erro no meu codigo que é:

 

O ERRO:

 

Tipo de erro:

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

Instrução esperada

/Projeto_SCT/variglog/_inc/consulta.asp, line 33

<table width="100%" height="100%" bgcolor="#858585" cellpadding="0" cellspacing="0" border="0">

 

O CÓDIGO:

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>.: SISTEMA DE TREINAMENTO :.</title>
<LINK rel="stylesheet" href="_css/vlog.css" type="text/css">
</head>
<body>
<%  

<!--Criando conexão com o bando de dados-->
	DIM var_temp, RS, objConn, sql, sql2, strConexao,nome_compl,nome_gue,funcao,cargo,equi,data_admi,base,cod_anac,pla_pc,
nivel_ing,pass,crm,ccf,ifr,emer_ger,tai,recic,carre
	SET strConexao=createobject("ADODB.CONNECTION")
	Set RS = CreateObject("ADODB.Recordset") 
	strConexao.Open "ConASP2"

<!--Definindo as variaveis vindas do HTML-->

	var_nome= Request.form("fr_nome")
	
%>

<%
sql ="SELECT * FROM Tripulacao"
set RS = strConexao.execute(sql)
	Response.Write "<table width="100%" height="100%" bgcolor="#858585" cellpadding="0" cellspacing="0" border="0">"
	response.write "<tr><td colspan="4" height="*"></td></tr>"
	response.write "<td></td>"
	response.write "<td height="400" width="553" background="_img/fnd0003.gif" align="center" class="login">"
	Response.write "<table class="titulo2" border="0" width="90%">"
	response.write "<tr align="right">"
	Response.write "<tr align="left">"
	response.write "<td height="40"> </td>"
	Response.Write "<td colspan="4">INFORMAÇÕES DO TRIPULANTE</td>"
	Response.write "</tr>"
	RS.MoveFirst
	Do While not RS.Eof
	if var_nome=RS.Fields("NomeCompleto")then
		Response.write "<tr align="left">"
		Response.Write "<td width="30%">Nome Completo:</td>" & "<td class="titulo3" colspan="3">" & RS("NomeCompleto")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>Nome de Guerra:</td>" & "<td class="titulo3" colspan="3">" & RS("NomeGuerra")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>Função:</td>" & "<td class="titulo3" colspan="3">" & RS("Func")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>Cargo:</td>" & "<td class="titulo3" colspan="3">" & RS("Cargo")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>Equipamento:</td>" & "<td class="titulo3" colspan="3">" & RS("Eqpto")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>Data de Admissão:</td>" & "<td class="titulo3" colspan="3">" & RS("DtAdmis")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>BASE:</td>" & "<td class="titulo3" colspan="3">" & RS("Base")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>Código ANAC:</td>" & "<td class="titulo3" colspan="3">" & RS("CodANAC")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>PLA / PC:</td>" & "<td class="titulo3" colspan="3">" & RS("PLA/PC")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>Nível de Inglês:</td>" & "<td class="titulo3" colspan="3">" & RS("Nivel_Inglês")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td>N° do Passaporte:</td>" & "<td class="titulo3" colspan="3">" & RS("Passaporte")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td colspan="2"></td>" 
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.Write "<td colspan="2"></td>" 
		Response.write "</tr>"
		response.write"</table>"
	var_temp = RS("CodANAC")
	end if
	RS.MoveNext
	Loop

<!--Selecionando os vencimentos de outra tabela com usando o n° da ANAC,
	para selecionar.
-->
sql2 ="SELECT * FROM Cursos"
set RS = strConexao.execute(sql2)
	Response.write "<table class="titulo2" border="0" width="90%">"
	RS.MoveFirst
	Do While not RS.Eof
	if var_temp=RS.Fields("CodANAC")then
		Response.write "<tr align="left">"
		Response.write "<td colspan="4"> VENCIMENTOS:</td>"
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.write "<td width="22.5%">CRM:</td>"
		Response.Write "<td class="titulo3" width="22.5%">" & RS("CRM")& "</td>" 
		response.write "<td width="22.5%">CCF:</td>"
		response.write "<td class="titulo3" width="22.5%">" & RS("CCF")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.write "<td width="22.5%">IFR:</td>"
		Response.Write "<td class="titulo3" width="22.5%">" & RS("IFR")& "</td>" 
		response.write "<td width="22.5%">Emerg. Gerais:</td>"
		response.write "<td class="titulo3" width="22.5%">" & RS("Emergências_Gerais")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.write "<td width="22.5%">TAI:</td>"
		Response.Write "<td class="titulo3" width="22.5%">" & RS("TAI")& "</td>" 
		response.write "<td width="22.5%">Reciclagem:</td>"
		response.write "<td class="titulo3" width="22.5%">" & RS("Reciclagem")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align="left">"
		Response.write "<td width="22.5%">Carregamento:</td>"
		Response.Write "<td class="titulo3" width="22.5%">" & RS("Carregamento")& "</td>" 
		Response.write "</tr>"
	end if
	RS.MoveNext
	Loop
	response.write"</table>"
	response.write"</td>"
	response.write"<td></td>"
response.write"</table>"

%>
<!---
	</tr>
	<tr><td colspan="3" height="*"><% MsgBox("Teste")%></td></tr>
-->

</body>
</html>

Peço ajuda a vocês para resolução desse problema.

Muito obrigado e aguardo resposta.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Estevam    0

Estevam
Postado

O problema ocorre por que você não esta passando corretamente o parametro para passar todo esse código HTML você pode fazer assim, troque as aspas duplas de cada atributo por aspas simples.

 

Response.Write ("<table width='100%' height='100%' bgcolor='#858585' cellpadding='0' cellspacing='0' border='0'>"

 

Só um dica você não precisa passa todo o HTML para response.write, é só intercalar com ASP+HTML.

 

Exemplo, os dois códigos abaixo fazem a mesma coisa:

 

<%

if teste = 123 then

Response.Write("<p><b>Teste ok</b></p>")

end if

%>

 

 

ou

 

<%

if teste = 123 then

%>

<p><b>Teste ok</b></p>

<%

end if

%>

 

 

Abraços

 

Estevam

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito