%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsZones__MMColParam rsZones__MMColParam = "1" If (Request.QueryString("idTipusImmoble") <> "") Then rsZones__MMColParam = Request.QueryString("idTipusImmoble") End If %> <% Dim rsZones Dim rsZones_numRows Set rsZones = Server.CreateObject("ADODB.Recordset") rsZones.ActiveConnection = MM_cnnCrisa_STRING rsZones.Source = "SELECT Immobles.idZona, Zones.szZona FROM Immobles INNER JOIN Zones ON Immobles.idZona = Zones.idZona WHERE Immobles.idTipusImmoble = " + Replace(rsZones__MMColParam, "'", "''") + " GROUP BY Immobles.idZona, Zones.szZona ORDER BY Zones.szZona" rsZones.CursorType = 0 rsZones.CursorLocation = 2 rsZones.LockType = 1 rsZones.Open() rsZones_numRows = 0 %> <% Dim rsNoms__MMColParam rsNoms__MMColParam = "1" If (Request.QueryString("idTipusImmoble") <> "") Then rsNoms__MMColParam = Request.QueryString("idTipusImmoble") End If %> <% Dim rsNoms Dim rsNoms_numRows Set rsNoms = Server.CreateObject("ADODB.Recordset") rsNoms.ActiveConnection = MM_cnnCrisa_STRING rsNoms.Source = "SELECT * FROM TipusImmobles WHERE idTipusImmoble = " + Replace(rsNoms__MMColParam, "'", "''") + "" rsNoms.CursorType = 0 rsNoms.CursorLocation = 2 rsNoms.LockType = 1 rsNoms.Open() rsNoms_numRows = 0 %>