Erro de Syntax

[Mário Monteiro 179]

mas nesta url voce nao passou nada

 

de onde voce envia este valor que tenta recuperar aqui

 

id_classificado = request("id_classificado")

[Liconh 0]

Bom acho q estou tomando o tempo de vcs.... vou tentar ser direto.... estou desenvolvendo um sistema de Classificados.... esse modelo já peguei ele iniciado mais não consigo resolver esse problema que ele esta me dando.. entao seria mais ou menos isso que preciso:

 

___________________________

 

Classificados.asp

Irá constar as categorias ex: Cavalos, Gado de Corte, Fazenda, Etc.... com link.

 

Ai ao linkar na categoria selecionada irá para:

 

classificadosselecao.asp

Irá constar os produtos com uma foto pequena de chamada para cada item com um texto de chamada. Últimos 10 produtos listados desta categoria com páginação.

 

Ao selecionar o produto desejado irá linkar:

 

classificadosselecaodetalhe.asp

Onde irá conter as informações do produto!

 

___________________________

 

 

O banco de dados que uso é o Access, vou utilizar tb um adm para atualiza-lo!

 

A maior parte eu consigo desenvolver já... BD, Link, o meu grande problema é buscar essas informações no BD!!

É o q ainda tenho algumas dúvidas que esta me segurando para dar continuidade no meu aprendizado!!!

 

Desde já quero agradecer pelo apoio, e parabenizar o pessoal que esta me dando uma força!!!!

 

Abraços

[Mário Monteiro 179]

entao voce tem de responder exatamente o que pergutamos

 

pois so assim poderemos identificar a origem do erro

 

qual é a pagina que chama esta que esta com erro?

[Liconh 0]

Ok vamos lá:

 

Link de chamada:

 

Menu:

 

href="index.asp?link=classificadosLista"

__________________________________________________________

 

Chamando a página classificados.asp

 

nela contém:

 

<% link = 
	 request("link")
 if (link = "") then
	 link = "classificadoslista"
 end if
%>

<%  if link = "classificadosLista" then %><!--#include file="clippingClassificado.asp"--><%  end if %>				
	 <%  if link = "classificadoDetalhe.asp" then %><!--#include file="clippingClassificadoDetalhe.asp"--><%  end if %>

 

 

_____________________________________________________

 

Chamando clippingclassificado.asp

 

Nela contém:

 

<%
	 sqlNoticia = "SELECT CLASSIFICADO.*, CATEGORIA_CLASSIFICADO.DESCRICAO AS CATEGORIA FROM CLASSIFICADO, CATEGORIA_CLASSIFICADO WHERE ID_CATEGORIA_CLASSIFICADO = ID_CATEGORIA ORDER BY ID_CLASSIFICADO DESC"

	 Set objCon = Server.CreateObject("ADODB.Connection")
	 objCon.Open strCon
	 Set objRS = Server.CreateObject("ADODB.Recordset")
	 objRS.CursorLocation = 3
	 objRS.CursorType = 2
	 objRS.LockType = 1
	 objRS.Open sqlNoticia, objCon, , , &H0001
	 while not objRS.eof
%>

<tr>
<td height=45 valign=top> 
<b><%=objRs("data")%></b> | <%=objRs("categoria")%>
<br> <img src="imagens/seta.gif" align="absbottom">
<a href="classificados.asp?id_classificado=<%=objRs("id_classificado")%>&link=classificadoDetalhe.asp"><%=objRs("produto")%></a>
</td>
</tr>
					
	 <%
	 objRs.movenext
	 wend
	 %>

_______________________________________________________

 

Chamando clippingclassificadodetalhe.asp

 

nela contém:

 

<%

   id_classificado = request("id_classificado")
   
   sqlNoticia = "SELECT CLASSIFICADO.*, CATEGORIA_CLASSIFICADO.DESCRICAO AS CATEGORIA FROM CLASSIFICADO, CATEGORIA_CLASSIFICADO WHERE ID_CATEGORIA = ID_CATEGORIA_CLASSIFICADO AND ID_CLASSIFICADO = " & ID_CLASSIFICADO

   Set objCon = Server.CreateObject("ADODB.Connection")
   objCon.Open strCon
   Set objRS = Server.CreateObject("ADODB.Recordset")
   objRS.CursorLocation = 3
   objRS.CursorType = 2
   objRS.LockType = 1
   objRS.Open sqlNoticia, objCon, , , &H0001
   while not objRS.eof
%>

<tr>
<td height=45 valign=top>

 <b><%=objRs("data")%></b> | <%=objRs("categoria")%>
<br>
 <%=objRs("produto")%>
<table width="100%" border="0">
<tr>
<td colspan="2" valign="middle">
<img src="admin/<%=objRs("foto")%>" vspace="5" /></td>
</tr>
<tr>
<td width="1%" valign="middle"><div align="center"></div></td>
<td width="99%" valign="top">
<div align="justify"> <%=replace(objRs("descricao"),chr(13),"<br>")%></div></td>
</tr>
</table>
<p><br></p>
</td>
</tr>

	 <%
	 objRs.movenext
	 wend
	 %>


<tr>
<td>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr>
 <td valign="top">


<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">

<img src="imagens/tit_outras_promocoes.gif">					
</td>
</tr>


<%
	 sqlNoticia = "SELECT CLASSIFICADO.*, CATEGORIA_CLASSIFICADO.DESCRICAO AS CATEGORIA FROM CLASSIFICADO, CATEGORIA_CLASSIFICADO WHERE ID_CATEGORIA_CLASSIFICADO = ID_CATEGORIA ORDER BY ID_CLASSIFICADO DESC"

	 Set objCon = Server.CreateObject("ADODB.Connection")
	 objCon.Open strCon
	 Set objRS = Server.CreateObject("ADODB.Recordset")
	 objRS.CursorLocation = 3
	 objRS.CursorType = 2
	 objRS.LockType = 1
	 objRS.Open sqlNoticia, objCon, , , &H0001
	  while not objRS.eof
%>

<tr>
<td height=45 valign=top> 
<b><%=objRs("data")%></b> | <%=objRs("categoria")%>
<br> <img src="imagens/seta.gif">
<a href="classificados.asp?id_classificado=<%=objRs("id_classificado")%>&link=classificadoDetalhe.asp"><%=objRs("produto")%></a>
</td>
</tr>
	
<%
objRs.movenext
wend
%>

 

_________________________________________________

 

O que eu tenho seria isso!!!!

 

Classificados.asp

ClippingCalssificado.asp

ClippingClassificadoDetalhe.asp

 

Muito obrigado pela paciência!!!

 

Abraços!!!!!