• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Haerith

Conflito nas queries

2 mensagens neste tópico

Boa tarde.

Criei duas forms em que numa pesquiso por referência de um imóvel que irá dar directamente à página de detalhes desse mesmo imóvel e a outra por uma série de opções para filtrar uma listagem de resultados.

Tudo funciona na perfeição à excepção de determinadas referências que entram em conflito.

Quando pesquiso pela referência MA1, na página de detalhes desta aparecem também imagens da MA10, mas o inverso já não sucede. E quando pesquiso por MA2 aparece sempre a MA20.

Quando pesquiso pela "form" com as opções, na listagem aparecem todas as referências mas quando é para visualizar os detalhes acontece o mesmo problema; imagens da MA10 na MA1, e a MA2 mostra a MA20.

Aqui está o código das queries da página de detalhes:

<%
Dim ref__MMColParam
ref__MMColParam = "0"
If (Request.QueryString("ref") <> "") Then 
  ref__MMColParam = Request.QueryString("ref")
End If
%>
<%
Dim ref
Dim ref_numRows

Set ref = Server.CreateObject("ADODB.Recordset")
ref.ActiveConnection = MM_aspvbPHC_STRING
ref.Source = "SELECT dbo.ib.ref, dbo.ib.desc1, dbo.ib.epreco, dbo.ib.u_distrito, dbo.ib.u_concelho, dbo.ib.u_climat, dbo.ib.u_eleva, dbo.ib.u_jardim, dbo.ib.u_garagem, dbo.ib.u_arrecad,  dbo.ib.u_piscina, dbo.ib.u_condfech, dbo.ib.u_dispint, dbo.ib.u_climades, dbo.ib.u_elevdes, dbo.ib.u_jarddes, dbo.ib.u_gardes, dbo.ib.u_arrdes, dbo.ib.u_piscdes, dbo.ib.u_arrtotal, dbo.ib.u_sala, dbo.ib.situacao, dbo.ib.u_cozinha, dbo.ib.u_quartos, dbo.ib.u_wc, dbo.ib.u_hall, dbo.ib.vaiwww, dbo.ib.u_corredor, dbo.ib.u_despensa, dbo.ib.u_roupeiro, dbo.ib.u_logrador, dbo.ib.u_varandas, dbo.ib.u_terraco, dbo.ib.u_sotao, dbo.ib.u_tipologi, dbo.im.local, dbo.im.u_urlfoto, dbo.ib.zona  FROM dbo.ib INNER JOIN dbo.im  ON dbo.ib.ibno = dbo.im.ibno  WHERE dbo.ib.ref LIKE '%" + Replace(ref__MMColParam, "'", "''") + "%'"
ref.CursorType = 0
ref.CursorLocation = 2
ref.LockType = 1
ref.Open()

ref_numRows = 0
%>
<%
Dim galeria__MMColParam0
galeria__MMColParam0 = "0"
If (Request.QueryString("ref") <> "") Then 
  galeria__MMColParam0 = Request.QueryString("ref")
End If
%>
<%
Dim galeria
Dim galeria_numRows

Set galeria = Server.CreateObject("ADODB.Recordset")
galeria.ActiveConnection = MM_aspvbPHC_STRING
galeria.Source = "SELECT dbo.im.u_urlfoto  FROM dbo.ib INNER JOIN dbo.im  ON dbo.ib.ibno = dbo.im.ibno  WHERE dbo.ib.ref LIKE '%" + Replace(galeria__MMColParam0, "'", "''") + "%'"
galeria.CursorType = 0
galeria.CursorLocation = 2
galeria.LockType = 1
galeria.Open()

galeria_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 12
Repeat1__index = 0
galeria_numRows = galeria_numRows + Repeat1__numRows
%>

Criei duas queries, uma para mostrar a informação do imóvel e outra para a galeria de imagens do mesmo.

E aqui está o código da página do resultado da pesquisa:

<%
Dim pesres__distrito
pesres__distrito = "0"
If (Request.QueryString("Distrito") <> "") Then 
  pesres__distrito = Request.QueryString("Distrito")
End If
%>
<%
Dim pesres__imovel
pesres__imovel = "0"
If (Request.QueryString("Imovel") <> "") Then 
  pesres__imovel = Request.QueryString("Imovel")
End If
%>
<%
Dim pesres__negocio
pesres__negocio = "0"
If (Request.QueryString("Negocio") <> "") Then 
  pesres__negocio = Request.QueryString("Negocio")
End If
%>
<%
Dim pesres__concelho
pesres__concelho = "0"
If (Request.QueryString("type") <> "") Then 
  pesres__concelho = Request.QueryString("type")
End If
%>
<%
Dim pesres
Dim pesres_numRows

Set pesres = Server.CreateObject("ADODB.Recordset")
pesres.ActiveConnection = MM_aspvbPHC_STRING
pesres.Source = "SELECT dbo.ib.ref, dbo.ib.epreco, dbo.ib.u_distrito, dbo.ib.u_concelho, dbo.ib.u_climat, dbo.ib.u_eleva, dbo.ib.u_jardim, dbo.ib.u_garagem, dbo.ib.u_arrecad, dbo.ib.u_piscina, dbo.ib.u_condfech, dbo.ib.u_dispint, dbo.ib.u_climades, dbo.ib.u_elevdes, dbo.ib.u_jarddes, dbo.ib.u_gardes, dbo.ib.u_arrdes, dbo.ib.u_piscdes, dbo.ib.u_arrtotal, dbo.ib.u_sala, dbo.ib.situacao, dbo.ib.u_cozinha, dbo.ib.u_quartos, dbo.ib.u_wc, dbo.ib.u_hall, dbo.ib.vaiwww, dbo.ib.u_corredor, dbo.ib.u_despensa, dbo.ib.u_roupeiro, dbo.ib.u_logrador, dbo.ib.u_varandas, dbo.ib.u_terraco, dbo.ib.u_sotao, dbo.ib.u_tipologi, dbo.im.local, dbo.im.u_urlfoto  FROM dbo.ib JOIN dbo.im ON dbo.ib.ibno = dbo.im.ibno  WHERE dbo.ib.u_distrito LIKE '%" + Replace(pesres__distrito, "'", "''") + "%' AND dbo.ib.situacao LIKE '%" + Replace(pesres__negocio, "'", "''") + "%' AND dbo.ib.ibtipo LIKE '%" + Replace(pesres__imovel, "'", "''") + "%' AND dbo.ib.u_concelho LIKE '%" + Replace(pesres__concelho, "'", "''") + "%' AND dbo.im.princ='true'"
pesres.CursorType = 0
pesres.CursorLocation = 2
pesres.LockType = 1
pesres.Open()

pesres_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 5
Repeat1__index = 0
pesres_numRows = pesres_numRows + Repeat1__numRows
%>

Agradeço qualquer ajuda.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Acho que te enganaste na secção.  :P

É melhor repostares isto na secção de ASP.NET onde a ajuda pode chegar mais rápido.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora