Ir para conteúdo

POWERED BY:

Arquivado

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

Tannwander

Problema extranho

Por , em ASP Clássico

Recommended Posts

Tannwander    0

Tannwander
Postado

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif http://forum.imasters.com.br/public/style_emoticons/default/excl.gif http://forum.imasters.com.br/public/style_emoticons/default/excl.gif estou criando um sitema de webloja e existe uma pagina que deve listar, por exemplo, os livros disponiveis.

Comno estou adaptando este scrip de um outro é natural que surjam problemas, especialmente quando se trata de mim no comando.

O fato é que o BD tem intens e eles nao sao encontrados me dando um response "nenhum livro encontrado no sitema.

estou enviando o codigo da pagina de conexao e da listagfem para que os amigos me sugiram algo.

Obrigado.

 

<%

'conexao DSN com o banco de dados

 

'Set Conexao=Server.CreateObject("ADODB.Connection")

 

'Conexao.Open "CursoASPArena", "Login", "Senha"

%>

 

<%

suaConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("lojaasparena.mdb")

%>

 

<%

'conexao com o banco de dados

 

on error resume next

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

 

suaConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("lojaasparena.mdb")

 

if Err.Number>0 then

response.write ("Erro na Conexão")

else

response.write ("Conexão OK")

end if

 

%>

 

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

 

<!--#include file="conexao.asp" -->

<HTML>

<HEAD>

 

 

<BODY BGCOLOR="#FFFFFF">

<%

 

Dim rstLivros, sSQL, conn

 

conn = "suaConexao"

 

sSQL = "SELECT (ISBN, Nome) FROM Livro"

 

Set rstLivros = Server.CreateObject("ADODB.RecordSet")

 

rstLivros.Open sSQL, conn

 

if rstLivros.EOF then

response.write ("Nenhum Livro no Sistema")

else

While Not rstLivros.EOF

response.write rst("ISBN") & " - " & rst("Nome") & "<BR>"

rstLivros.MoveNext

Wend

 

end if

 

Set rstLivros = Nothing

 

%>

 

</BODY>

</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

velho.. tem registro na tabela livros???

 

faz assim...

 

<!--#include file="conexao.asp" --><HTML><HEAD><BODY BGCOLOR="#FFFFFF"><%Dim rstLivros, sSQL, connconn = "suaConexao"SQL = "SELECT COUNT(*)as total FROM Livro"Set rstTemp = NothingSet rstTemp = conn.execute(SQL)response.write "<h1>existe na tabela livros "&rstTemp("total")&" livros</h1>"sSQL = "SELECT (ISBN, Nome) FROM Livro"Set rstLivros = Server.CreateObject("ADODB.RecordSet")rstLivros.Open sSQL, connif rstLivros.EOF then....aki você repete o q você já vinha usando, ok

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