Ir para conteúdo

POWERED BY:

Arquivado

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

frankikos

página de detalhes

Por , em ASP Clássico

Recommended Posts

frankikos    0

frankikos
Postado

Salve galera.....

Seguinte, tenho uma página onde listo meu bd e mostra meu estoque de produtos, até qui beleza. Vejam (estoque)

Dai to querendo colocar nessa mesma página (usando por exemplo a imagem do produto) como um link para a página de detalhes, que eu não estou conseguindo fazer.

 

Eis o meu cod:

Página estoque.asp

<HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"><TITLE>Estoque</TITLE></HEAD><BODY><link rel="stylesheet" type="text/css" href="estilo.css"><%Dim strConn, oConn, oRS, strSQLstrConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("carros.mdb")Set oConn = Server.CreateObject("ADODB.Connection")Set oRS = Server.CreateObject("ADODB.RecordSet")strSQL = "SELECT * FROM Carros WHERE ID"'Gerando a tabela: Response.Write "<table border>"Response.Write "<tr><td>Modelo</td><td>Foto</td><td>Detalhes</td><td>Preço</td>"oRS.Open strSQL, strConnDO WHILE NOT oRS.EOFResponse.Write "<tr>"Response.Write "<td>" & oRS("Carro") & "</td>"Response.Write "<td><img src=" & oRS("Foto")& "></td>"Response.Write "<td>" & oRS("Detalhes") & "</td>"Response.Write "<td>" & oRS("Preco") & "</td>"Response.Write "</tr>"  oRS.MoveNextLOOPResponse.Write "</table>"oRS.CloseSet oRS = NothingSet oConn = Nothing%></BODY></HTML>
Baseado nessa página, como faço para criar a página de detalhes e exibir os dados dos produtos???

Conto com a ajuda de vcs!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

kbssa    0

kbssa
Postado

kra parece se simples...crie uma nova pagina ex:detalhes.aspno link da img chame a pagina detalhes.asp passando um parametro ex:detalhes.asp&id=oRS("ID")dae na pagina de detalhes, você faz a consulta usando o parametro passado id=request.querystring("id")"SELECT * FROM Carros WHERE ID = "&idpronto mostre os dados da consulta acho q eh isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

kra parece se simples...crie uma nova pagina ex:detalhes.aspno link da img chame a pagina detalhes.asp passando um parametro ex:detalhes.asp&id=oRS("ID")dae na pagina de detalhes, você faz a consulta usando o parametro passado id=request.querystring("id")"SELECT * FROM Carros WHERE ID = "&idpronto mostre os dados da consulta acho q eh isso

Pois é kbssa...............Inseri o cod mas deu um erro e não funcionou...Onde será q to errando?Obrigado mesmo assimAguardo

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

o erro

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/nw/view.asp, line 47

 

Response.Write "<td><a href=detalhes.asp&id=oRS("ID")<img src=" & oRS("Foto")& "></td>"

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

 

página detalhes.asp

<html><head><%Dim strConn, oConn, oRS, strSQLstrConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("carros.mdb")Set oConn = Server.CreateObject("ADODB.Connection")Set oRS = Server.CreateObject("ADODB.RecordSet")Id=Request.QueryString("Id")strSQL = "SELECT * FROM Carros WHERE Id="&IdoRS.Open strSQL, strConnDO WHILE NOT oRS.EOFoRS.CloseSet oRS = NothingSet oConn = Nothing%></body></html>
Aguardo

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

Ai kbssa, deu certo.................

só que minha página de detalhes, não está sendo exibida!

ela está hospedada, mas não aparece!!!!

veja meu código

<html><head><%Dim strConn, oConn, oRS, strSQLstrConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("carros.mdb")Set oConn = Server.CreateObject("ADODB.Connection")Set oRS = Server.CreateObject("ADODB.RecordSet")Id=Request.QueryString("Id")strSQL = "SELECT * FROM Carros WHERE Id="&IdoRS.Open strSQL, strConnDO WHILE NOT oRS.EOFoRS.CloseSet oRS = NothingSet oConn = Nothing%></body></html>

será que tem alguma coisa errada nela???

 

abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

dimarcinho    0

dimarcinho
Postado

intao caratu soh fez a busca mas nao colocou pra exibir nenhum resultado!! :Scoloca antes do </body>Response.Write("Campo 0: " & oRS(0) & "<br>")Response.Write("Campo 1: " & oRS(1) & "<br>")Response.Write("Campo 2: " & oRS(2) & "<br>")hehehe[]s

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

Ai dimarcinho...............fiz oq você disse, veja

<html><head><body><%Dim strConn, oConn, oRS, strSQLstrConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("carros.mdb")Set oConn = Server.CreateObject("ADODB.Connection")Set oRS = Server.CreateObject("ADODB.RecordSet")Id=Request.QueryString("Id")strSQL = "SELECT * FROM Carros WHERE Id="&IdoRS.Open strSQL, strConnDO WHILE NOT oRS.EOFResponse.Write "<tr>"Response.Write "<td>" & oRS("Carro") & "</td>"Response.Write "<td><img src=" & oRS("Foto")& "></td>"Response.Write "<td>" & oRS("Detalhes") & "</td>"Response.Write "<td>" & oRS("Preco") & "</td>"Response.Write "</tr>"oRS.CloseSet oRS = NothingSet oConn = Nothing%></body></html>

mas a porcaria da página não aparece.....diz "página não encontrada"

 

agradecido

Compartilhar este post

Link para o post
Compartilhar em outros sites

dimarcinho    0

dimarcinho
Postado

ah!! agora q eu vi

 

o kbssa deixou passar o um errinho

 

tenta assim

 

Response.Write "<td><a href='detalhes.asp?id="&oRS("ID")&"'><img src='"&oRS("Foto")&"'>"

 

tah trocado o '?' pelo '&'

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

Trocado...............mas dá um erro:

 

A página não pode ser exibida

Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

 

Ta loko.....

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

cara, aki tah dando esse erroMicrosoft VBScript compilation error '800a03ea' Syntax error /tracking.asp, line 7 sub SetDetails^confere ae!!!

Aparece esse erro sim..........mexi no navegador e apareceu exatamente esse errovaleu

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

mesmo assim...........o erro no mesmo lugar!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

frankikos    0

frankikos
Postado

RESOLVIDO

 

Agradeço a todos que me ajudaram.......................

 

Tinha algo amais no meu cod da página detalhes....era:

DO WHILE, que não devia existir mesmo, já que eu procurava um único registro

 

Mais uma vez o forum me salvou!!

Santo ano de 2007 a todos

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