[Resolvido] como criar uma pagina de detalhes

hargon · Setembro 23, 2008

O código de detalhes.asp está correto.

Como está o código da outra página? Quando é passado o parâmetro através do link para detalhes?

lezão · Setembro 23, 2008

esta assim ó

produtos.asp

<% registros = 6
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("banco.mdb")
conexao.open

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros

sql = "SELECT * FROM produtos ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina
%>

<html>
<head>	
<STYLE type=text/css>

A:link { text-decoration: none}		
A:visited { text-decoration: none}	

</STYLE>	

<title></title>

</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000" background="http://www.sonhoefesta.com.br/imagens/fundos_azul.gif">  
   <div align="center" style="width: 785; height: 201">
		   
   		<table width="342" height="1">	
   	<tr><%	While Not rs.EOF AND x < rs.PageSize	
x = x + 1 
%>
   		   		<td height=1 width=335> 
   						  <table width="311" >  
<td height="17" width="303" style="height: 12.75pt">	  
<table width="325" class="texto" style="border: 1px solid #b9b9b9" height="183" cellspacing="3" cellpadding="0">
<col width="64" span="2" style="width:48pt">
<tr height="17" style="height:12.75pt"> 
<td colspan="2" height="11" class="xl24" width="309">	
											<p align="center">
												<font size="2" face="Verdana">	
													<b><a href="detalhes.asp?id=<%=rs("id")%>"><%=rs("nome")%></b></a>	
														</font>

acesse a pagina esta no ar Clique aqui

Jow Xavier · Setembro 23, 2008

Ae desculpa entrar na discussão hauhahahuha você tá passando o link

<a href="detalhes.asp?id=<%=rs("id")%>"><%=rs("nome")%></b></a>

Deveria ter alguma coisa antes do </a> tipo:

<a href="detalhes.asp?id=<%=rs("id")%>"><%=rs("nome")%>Link</a>

Jow Xavier · Setembro 23, 2008

hauuahha agora q eu vi onde tá o erro eskeçe o q postei acima

Já q você está usando o while faltou o Wend como indica o erro

hargon · Setembro 23, 2008

Remova o

objRS.MoveNext

Wend

da página de detalhes.

lezão · Setembro 23, 2008

ola hargon fiz oq você pediu retirei a função objRS.MoveNext

Wend

mas ainda esta dando erro sera pq ?

hargon · Setembro 24, 2008

O erro mudou. Posta o código de detalhes atual.

lezão · Setembro 24, 2008

detalhes.asp

<%

Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection


'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../dados/cadastro.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
id = Request.QueryString("id")

'Seleciona da tabela usuarios
sql = "SELECT * FROM produtos WHERE id=" & id
Set ObjRs = objConn.Execute(strQuery)
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nova pagina 1</title>
</head>

<body topmargin="0" leftmargin="0">



  <table>
	<col width="64" span="2" style="width:48pt">
	<tr height="17" style="height:12.75pt">
	  <td colspan="2" height="17" class="xl22" width="128" style="height:12.75pt;
  width:96pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td rowspan="3" height="51" class="xl22" style="height:38.25pt">
		<p align="center"><%Response.write objRS("foto_grd")%></td>
	  <td></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	  <td></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	  <td></td>
	</tr>
  </table> 
   <%
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>
</body>

</html>

Mário Monteiro · Setembro 24, 2008

qual o erro atual?

hargon · Setembro 24, 2008

Está dando erro na linha 71 do arquivo detalhes.asp.

Ou você postou o código errado ou faltou parte dele, pois esse aí não tem linha 71.

Ted k' · Setembro 24, 2008

ERRADO

sql = "SELECT * FROM produtos WHERE id=" & id
Set ObjRs = objConn.Execute(strQuery)

CERTO

sql = "SELECT * FROM produtos WHERE id=" & id
Set ObjRs = objConn.Execute(sql)

verifique se o nome da query é "Id" mesmo:

id = Request.QueryString("id")

faça tratamento de erro de IF, caso ele não exista:

if Not ObjRs.Eof Then
.... continua codigo....
else
response.write("Produto não existente")
end if

Mário Monteiro · Setembro 24, 2008

tem alguma estrutura faltando fechar

lezão · Setembro 24, 2008

ola ted k' boa noite cara ainda esta dando erro qnt a query naun é o codigo do produto, no meu banco de dados esta assim id, nome, valor, foto, foto_grd,data.

fiz tudo q você pediu veja ai

destalhes.asp

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
id = Request.QueryString("id")

sql = "SELECT * FROM produtos WHERE id=" & id
Set ObjRs = objConn.Execute(sql)

if Not ObjRs.Eof Then
'.... continua codigo....
else
response.write("Produto não existente")
end if

%>

esse é só a conexão

você tem outra conexão melhor ai ?

hargon · Setembro 25, 2008

Você não declarou a variável ID na página de detalhes.asp

lezão · Setembro 25, 2008

declarei sim

akele codigo acima é apenas uma amostra, de como deve ficar o script q o ted k' me postou ....

o correto é este aki esta certo este codigo....

detalhes.asp

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
id = Request.QueryString("id")

sql = "SELECT * FROM produtos WHERE id=" & id
Set ObjRs = objConn.Execute(sql)

if Not ObjRs.Eof Then
'.... continua codigo....
else
response.write("Produto não existente")
end if

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nova pagina 1</title>
</head>

<body topmargin="0" leftmargin="0">



  <table>
	<col width="64" span="2" style="width:48pt">
	<tr height="17" style="height:12.75pt">
	  <td colspan="2" height="17" class="xl22" width="128" style="height:12.75pt;
  width:96pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td rowspan="3" height="51" class="xl22" style="height:38.25pt">
		<p align="center"><%Response.write objRS("foto_grd")%></td>
	  <td></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	  <td></td>
	</tr>
	<tr height="17" style="height:12.75pt">
	  <td height="17" style="height:12.75pt"></td>
	  <td></td>
	</tr>
  </table> 
   <%
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>
</body>

</html>

Jow Xavier · Setembro 25, 2008

Aki você declarou assim:

Dim objConn, objRs, strQuery, strConnection

Faltou declarar o id

lezão · Setembro 26, 2008

você quer dizer assim

Dim objConn, objRs, strQuery, strConnection, id

lezão · Setembro 26, 2008

agora esta dando este erro

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'sql'

/nova/detalhes.asp, line 12

Mário Monteiro · Setembro 26, 2008

so adiciona o sql na linha do dim que elimina este erro

lezão · Setembro 26, 2008

Valeu mário de certo

Gostaria de agradecer vceis q me ajudaram com este codigo...

muito obrigado mesmo ...

fiquem com Deus e q ele abençoe vceis ....

Arquivado

[Resolvido] como criar uma pagina de detalhes

Recommended Posts

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 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

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

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

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow Xavier 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 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

lezão 0