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

Haerith

Conflito nas queries

Recommended Posts

Haerith

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.

Share this post


Link to post
Share on other sites
yarcub

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.