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

Martinsrj · Dezembro 27, 2008

Olá pessoal, beleza?

Comprei um livro de asp e estou praticando a linguagem.

Visite por gentileza no link o código ASP

Aqui vai o erro que ocorre:

Não é possível exibir a página

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

--------------------------------------------------------------------------------

Experimente o seguinte:

Clique no botão Atualizar ou tente novamente mais tarde.

Abra a localhost home page e procure os links para as informações desejadas.

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

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

Erro de sintaxe

/serieweb/Cap4Lab31.asp, line 19, column 91

Response.Write "CÃ³digo: " & rsLivros.Fields("codLivro") & " " & " TÃtulo do Livro: " &

------------------------------------------------------------------------------------------^

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; GoogleT5; InfoPath.1; .NET CLR 2.0.50727; .NET CLR 1.1.4322)

Página:

GET /serieweb/Cap4Lab31.asp

Hora:

sábado, 27 de dezembro de 2008, 16:16:50

Mais informações:

Suporte da Microsoft

Mário Monteiro · Dezembro 27, 2008

post aqui o codigo da linha que deu erro

Martinsrj · Dezembro 27, 2008

post aqui o codigo da linha que deu erro

Código ASP:

1	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
2	<html xmlns="http://www.w3.org/1999/xhtml">
3	<head>
4	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
5	<title>Acessando dados de um banco de dados Access</title>
6	</head>
7	<body>
8	<font face="Arial" size="2" color="#FF0000"><b>Olá pessoal! Estes são alguns dados do primeiro livro da tabela Livros da Editora</b></font><br><br>
9	<% 
10   Dim conEditora
11   Dim rsLivros 
12   const cntCaminho = "c:\serieweb\ecommerce\database\editora.mdb"
13   Set conEditora = Server.CreateObject ("ADODB.Connection")
14   Set rsLivros = Server.CreateObject ("ADODB.Recordset")
15   conEditora.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
16   rsLivros.Open "Livros" ,conEditora

18   Do while not RsLivros.eof
19   Response.Write "Código: " & rsLivros.Fields("codLivro") & "<br>" & " Título do Livro: " & 
20   rsLivros.Fields("Titulo") & "<br><br>"
21   rsLivros.movenext
22   loop
23   rsLivros.Close
24   conEditora.Close
25   %>
</body>
</html>

Agora fiz uma modificação no código ASP retirando o response.write e deu certo:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Acessando dados de um banco de dados Access</title>
</head>
<body>
<font face="Arial" size="2" color="#FF0000"><b>Olá pessoal! Estes são alguns dados do primeiro livro da tabela Livros da Editora</b></font><br><br>
<% 
Dim conEditora
Dim rsLivros 
const cntCaminho = "c:\serieweb\ecommerce\database\editora.mdb"
Set conEditora = Server.CreateObject ("ADODB.Connection")
Set rsLivros = Server.CreateObject ("ADODB.Recordset")
conEditora.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
rsLivros.Open "Livros" ,conEditora
%>
<% Do while not RsLivros.eof %>
	Código: <% = rsLivros("codLivro") %> <br> 
	Título do Livro: <% = rsLivros("Titulo") %> <br> 
<% 
rsLivros.movenext 
loop

rsLivros.Close
conEditora.Close
%>
</body>
</html>

Mas de qualquer forma quero saber o porque com Response.write da erro?

Desde já agradeço ajuda de todos.

Mário Monteiro · Dezembro 27, 2008

essas duas linhas ponha em uma so

Response.Write "Código: " & rsLivros.Fields("codLivro") & "<br>" & " Título do Livro: " &
rsLivros.Fields("Titulo") & "<br><br>"

assim

Response.Write ("Código: " & rsLivros("codLivro") & "<br>Título do Livro: " & rsLivros("Titulo") & "<br><br>")

Martinsrj · Dezembro 27, 2008

Verifiquei Mario que você tirou: Fields

Fiz um código acima que deu certo, porem eu tirei o Fields e tb o response.write.

O problema em si não está na quebra da linha correto?

Tem como eu colocar o response.write e tb especificar através do Fields o campo que eu quero da tabela?

Abraços.

essas duas linhas ponha em uma so

Response.Write "Código: " & rsLivros.Fields("codLivro") & "<br>" & " Título do Livro: " &
rsLivros.Fields("Titulo") & "<br><br>"

assim

Response.Write ("Código: " & rsLivros("codLivro") & "<br>Título do Livro: " & rsLivros("Titulo") & "<br><br>")

Mário Monteiro · Dezembro 27, 2008

o fields é opcional tirei porque prefiro sem mesmo mas pode permanecer com ele

sim a quebra de linha daria erro

mas pelo que descreveu o erro era anterior a quebra

pode postar o erro atual?

Martinsrj · Dezembro 27, 2008

Dessa forma deu certo, porem sem a quebra de linha, mas eu coloquei o response.write + fields:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Acessando dados de um banco de dados Access</title>

</head>

<body>

Olá pessoal! Estes são alguns dados do primeiro livro da tabela Livros da Editora 

<%

Dim conEditora

Dim rsLivros

const cntCaminho = "c:\serieweb\ecommerce\database\editora.mdb"

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

Set rsLivros = Server.CreateObject ("ADODB.Recordset")

conEditora.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho

rsLivros.Open "Livros" ,conEditora

Do while not rsLivros.eof

Response.Write "Código: " & rsLivros.Fields("codLivro") & " " & " Título do Livro: " & rsLivros.Fields("Titulo") & " "

rsLivros.movenext

loop

rsLivros.Close

conEditora.Close

%>

</body>

</html>

Então pelo que eu pude perceber não posso quebrar a linha quando ocorre uma concatenação, estou correto no meu raciocinio?

Abraços.

o fields é opcional tirei porque prefiro sem mesmo mas pode permanecer com ele

sim a quebra de linha daria erro

mas pelo que descreveu o erro era anterior a quebra

pode postar o erro atual?

Mário Monteiro · Dezembro 27, 2008

ate poderia mas teria que concatenar as linhas com o underline _

mas se puder simplificar nao o faça

mas se precisar fazer seria algo como

Response.Write "Código: " & rsLivros.Fields("codLivro") & "<br>" & " Título do Livro: " & _
rsLivros.Fields("Titulo") & "<br><br>"

mas so faça isso caso a linha de codigo seja muito grande e precisa de mais legibilidade

xanburzum · Dezembro 27, 2008

este erro é de Erro de sintaxe,você tb poderia fazer assim,

'crio o SQL 
SQL="Select * from livros Order by nome" 
const cntCaminho = "c:\serieweb\ecommerce\database\editora.mdb"
Set conEditora = Server.CreateObject ("ADODB.Connection")
'crio o rs 
Set rsLivros = Server.CreateObject ("ADODB.Recordset")
conEditora.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
rsLivros .open SQL,conEditora ,1,3
'e chamar

Do while not rsLivros.eof
%>
Código: <%= rsLivros("codLivro") & "<br>%>
Título do Livro: <%=rsLivros("Titulo")
rsLivros.movenext
loop
rsLivros.Close
conEditora.Close

Martinsrj · Dezembro 27, 2008

Valeu Mário, obrigado aí pelas dicas.

ate poderia mas teria que concatenar as linhas com o underline _

mas se puder simplificar nao o faça

mas se precisar fazer seria algo como
Response.Write "Código: " & rsLivros.Fields("codLivro") & " " & " Título do Livro: " & _
rsLivros.Fields("Titulo") & " "
mas so faça isso caso a linha de codigo seja muito grande e precisa de mais legibilidade

Mário Monteiro · Dezembro 28, 2008

de nada

parabens por ter solucionado

Arquivado

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

Recommended Posts

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Martinsrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante