Onde Esta O Erro

[nersoantonio]

Ai galera, peguei um apostila de ASP para estudar mais logo de cara to com o seguinte problema

<%

Option Explicit

%>

<!--#Include file="conexao.inc"-->

<%

Response.Expires = 0

DIM conexaodb, strData, rsData, dataInicial, dataFinal

DIM strNRegistros, rsRegistros, strLivros, rsLivros

DIM rsCat, strCat, numCat

' ***** define a data inicial para exibição dos lançamentos

strData = "SELECT MAX(dtLanc) AS topData FROM livros "

Set rsData = conexaodb.Execute(strData) "

dataFinal = rsData.Fields("topData")

dataInicial = dataFinal-30

' ***** conta o numero de registros a serem exibidos

strNRegistros = "SELECT COUNT(Isbn) AS numLivros FROM Livros "

strNRegistros = strNRegistros & "WHERE livros.dtlanc >= #" & dataInicial & "# "

Set rsNRegistros = conexaodb.Execute(strNRegistros)

' ***** Seleciona os registros a serem exibidos

strLivros = "SELECT * "

strLivros = strLivros & "FROM Livros "

strLivros = strLivros & "INNER JOIN Categorias "

strLivros = strLivros & "ON Livros.codCategoria = Categorias.codCategoria "

strLivros = strLivros & "WHERE livros.dtLanc >= #" & dataInicial & "# "

strLivros = strLivros & "ORDER BY livros.dtLanc desc "

Set Livros = conexaodb.Execute(strLivros)

' ***** seleciona as categorias a serem exibidas no menu de categorias

strCat = "SELECT * "

strCat = strCat & "FROM categorias "

strCat = strCat & "ORDER BY categorias asc"

Set rsCat = conexaodb.Execute(strCat)

%>

ao tentar acessar a pagina no IE aparece o seguinte erro

Constante de seqüência não finalizada

/livroec/index.asp, line 13, column 41

Set rsData = conexaodb.Execute(strData) "

observo que se retirar a aspa no final da linha, ocorre o seguinte erro :

Objeto necessário: ''

/livroec/index.asp, line 13

valeu !!!

PS: desculpe o tamanho do post :

[koal40]

veio....

olha a linha

Set rsData = conexaodb.Execute(strData) "

troque por

Set rsData = conexaodb.Execute(strData)

.... tinha uma aspas dupla solitária...

[nersoantonio]

ai aparece o erro

Objeto necessário: ''

/livroec/index.asp, line 13

[koal40]

você pode postar 3 linhas antes da linha do erro + linha do erro + 3 linhas depois da linha do erro?

assim poderemos ajudar nesse erro....

[nersoantonio]

o que aparece na pagina de erro é isso aqui :

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

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript

(0x800A01A8)

Objeto necessário: ''

/livroec/index.asp, line 13

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

Página:

GET /livroec/index.asp

Hora:

quinta-feira, 4 de agosto de 2005, 18:14:45

Mais informações:

Suporte da Microsoft

valeu !!!

[Principe]

é prq você provavelmente ta usando um objeto sem "setar" ele antes !

coloque aqui o código da página "conexao.inc" que você chama no início da página ,.. ela deve estar com problemas !

Se bem que você declara o objeto depois do include

"Response.Expires = 0

DIM conexaodb,..."

tenta colocar isso:

set conexaodb = server.CreateObject("ADODB.Connection")
conexaobd.Open conexao

DEPOIS disso:

' ***** define a data inicial para exibição dos lançamentos

e ANTES disso:

strData = "SELECT MAX(dtLanc) AS topData FROM livros "

sem saber o que tem na include fica difícil mas,.. tenta .. hehehe

[nersoantonio]

ai esta o arquivo conexao.inc

<%

sub Abreconexao

const cntCaminho = "c:\inetpub\wwwroot\livroec\database"

set conexaodb = server.CreateObject("ADODB.Connection")

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

end sub

sub FechaConexao

conexaodb.close

set conexaodb = nothing

end sub

%>

[koal40]

esse script:

const cntCaminho = "c:\inetpub\wwwroot\livroec\database"

set conexaodb = server.CreateObject("ADODB.Connection")

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

cade o banco de dados?

const cntCaminho = "c:\inetpub\wwwroot\livroec\database"

database.mdb num seria?

[JCMPJ]

Tem mais depois de consertar o que o koal40 falou, cade a chamada

para Abreconexao???

Não tem né por isso ainda não deu erro lá.

[vicoluis]

http://forum.wmonline.com.br/index.php?showtopic=96774

[nersoantonio]

Galera, desta vez deu certo

valeu !!!

[bareta]

assasinando post.....