<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_ConnBD_STRING MM_ConnBD_STRING = "Provider=SQLOLEDB; Data Source=82.194.69.13; Initial Catalog=qg896; User ID=qg896; Password=adnacho;" %> <% Dim Busca_pred__varinmo Busca_pred__varinmo = "0" Busca_pred__varinmo = "525" %> <%if request.QueryString("Ref") = "" then%> <% Dim Busca_pred__vartipos Busca_pred__vartipos = "%" If (request.querystring("tipos") <> "") Then Busca_pred__vartipos = request.querystring("tipos") End If %> <% Dim Busca_pred__varcondicion Busca_pred__varcondicion = "%" If (request.querystring("condicion") <> "") Then Busca_pred__varcondicion = request.querystring("condicion") End If %> <% Dim Busca_pred__varpoblacion Busca_pred__varpoblacion = "%" If (request.querystring("poblacion") <> "") Then Busca_pred__varpoblacion = request.querystring("poblacion") End If %> <% Dim Busca_pred__varnuevo Busca_pred__varnuevo = "0" If (request.querystring("nuevo") <> "") Then Busca_pred__varnuevo = request.querystring("nuevo") End If %> <% Dim Busca_pred__varmin Busca_pred__varmin = "0" If (request.querystring("min") <> "") Then Busca_pred__varmin = request.querystring("min") End If %> <% Dim Busca_pred__varmax Busca_pred__varmax = "999999999" If (request.querystring("max") <> "") Then Busca_pred__varmax = request.querystring("max") End If %> <% Dim Busca_pred__varzona Busca_pred__varzona = "%" If (request.querystring("zona") <> "") Then Busca_pred__varzona = request.querystring("zona") End If %> <% Dim Busca_pred__varhab Busca_pred__varhab = "0" If (request.querystring("nhab") <> "") Then Busca_pred__varhab = request.querystring("nhab") End If %> <% Dim Busca_pred Dim Busca_pred_numRows Set Busca_pred = Server.CreateObject("ADODB.Recordset") Busca_pred.ActiveConnection = MM_ConnBD_STRING if Busca_pred__vartipos <> "%" then Busca_pred.Source = "SELECT inmu_ref, Municipio,inmu_desc_larga, inmu_condicion, inmu_precio, inmu_localidad_fk, inmu_id, tipo_valor, inmu_zona_fk, inmu_n_habitaciones, foto_id, foto_direccion,inmu_fecha FROM qg896.INMO_INMUEBLE LEFT OUTER JOIN qg896.INMO_FOTOS_INMU ON qg896.INMO_INMUEBLE.inmu_id = qg896.INMO_FOTOS_INMU.foto_inmueble_fk LEFT OUTER JOIN qg896.INMO_LOCALIDAD ON qg896.INMO_INMUEBLE.inmu_localidad_fk = qg896.INMO_LOCALIDAD.CodigoMunicipio LEFT OUTER JOIN qg896.INMO_TIPO ON qg896.INMO_INMUEBLE.inmu_tipo_fk = qg896.INMO_TIPO.tipo_clase WHERE (inmu_tipo_fk in (" + Replace(Busca_pred__vartipos, "'", "''") + ") or inmu_tipo_fk is null) AND (inmu_condicion like '" + Replace(Busca_pred__varcondicion, "'", "''") + "' or inmu_condicion is null) and (inmu_localidad_fk like '" + Replace(Busca_pred__varpoblacion, "'", "''") + "' or inmu_localidad_fk is null) and inmu_inmobiliaria_fk = " + Replace(Busca_pred__varinmo, "'", "''") + " AND (tipo_idioma_fk=1 OR inmu_tipo_fk is null) AND (" + Replace(Busca_pred__varnuevo, "'", "''") + " = '0' or inmu_nuevo = " + Replace(Busca_pred__varnuevo, "'", "''") + ") and inmu_activado <> 0 AND (inmu_precio between '" + Replace(Busca_pred__varmin, "'", "''") + "' AND '" + Replace(Busca_pred__varmax, "'", "''") + "' or ((" + Replace(Busca_pred__varmin, "'", "''") + " = 0 and " + Replace(Busca_pred__varmax, "'", "''") + " = 99999999) or inmu_precio is null )) AND (inmu_zona_fk like '" + Replace(Busca_pred__varzona, "'", "''") + "' or inmu_zona_fk is null) and (foto_id is null or foto_id = (select min(foto_id) FROM qg896.INMO_FOTOS_INMU WHERE inmu_id = foto_inmueble_fk)) AND (inmu_n_habitaciones >=" + Replace(Busca_pred__varhab, "'", "''") + " or (inmu_n_habitaciones is null and " + Replace(Busca_pred__varhab, "'", "''") + " = 0)) ORDER BY Municipio, inmu_tipo_fk,inmu_precio" else Busca_pred.Source = "SELECT inmu_ref, Municipio,inmu_desc_larga, inmu_condicion, inmu_precio, inmu_localidad_fk, inmu_id, tipo_valor, inmu_zona_fk, inmu_n_habitaciones, foto_id, foto_direccion, inmu_fecha FROM qg896.INMO_INMUEBLE LEFT OUTER JOIN qg896.INMO_FOTOS_INMU ON qg896.INMO_INMUEBLE.inmu_id = qg896.INMO_FOTOS_INMU.foto_inmueble_fk LEFT OUTER JOIN qg896.INMO_LOCALIDAD ON qg896.INMO_INMUEBLE.inmu_localidad_fk = qg896.INMO_LOCALIDAD.CodigoMunicipio LEFT OUTER JOIN qg896.INMO_TIPO ON qg896.INMO_INMUEBLE.inmu_tipo_fk = qg896.INMO_TIPO.tipo_clase WHERE (inmu_tipo_fk like '" + Replace(Busca_pred__vartipos, "'", "''") + "' or inmu_tipo_fk is null) AND (inmu_condicion like '" + Replace(Busca_pred__varcondicion, "'", "''") + "' or inmu_condicion is null) and (inmu_localidad_fk like '" + Replace(Busca_pred__varpoblacion, "'", "''") + "' or inmu_localidad_fk is null) and inmu_inmobiliaria_fk = " + Replace(Busca_pred__varinmo, "'", "''") + " AND (tipo_idioma_fk=1 OR inmu_tipo_fk is null) AND (" + Replace(Busca_pred__varnuevo, "'", "''") + " = '0' or inmu_nuevo = " + Replace(Busca_pred__varnuevo, "'", "''") + ") and inmu_activado <> 0 AND (inmu_precio between '" + Replace(Busca_pred__varmin, "'", "''") + "' AND '" + Replace(Busca_pred__varmax, "'", "''") + "' or ((" + Replace(Busca_pred__varmin, "'", "''") + " = 0 and " + Replace(Busca_pred__varmax, "'", "''") + " = 99999999) or inmu_precio is null )) AND (inmu_zona_fk like '" + Replace(Busca_pred__varzona, "'", "''") + "' or inmu_zona_fk is null) and (foto_id is null or foto_id = (select min(foto_id) FROM qg896.INMO_FOTOS_INMU WHERE inmu_id = foto_inmueble_fk)) AND (inmu_n_habitaciones >=" + Replace(Busca_pred__varhab, "'", "''") + " or (inmu_n_habitaciones is null and " + Replace(Busca_pred__varhab, "'", "''") + " = 0)) ORDER BY inmu_fecha DESC" end if Busca_pred.CursorType = 0 Busca_pred.CursorLocation = 2 Busca_pred.LockType = 3 Busca_pred.Open() Busca_pred_numRows = 0 %> <%else%> <% Dim Busca_pred__var_ref Busca_pred__var_ref = "0" If (request.querystring("Ref") <> "") Then Busca_pred__var_ref = request.querystring("Ref") End If %> <% Set Busca_pred = Server.CreateObject("ADODB.Recordset") Busca_pred.ActiveConnection = MM_ConnBD_STRING Busca_pred.Source = "SELECT * FROM qg896.INMO_INMUEBLE LEFT OUTER JOIN qg896.INMO_FOTOS_INMU ON qg896.INMO_INMUEBLE.inmu_id = qg896.INMO_FOTOS_INMU.foto_inmueble_fk LEFT OUTER JOIN qg896.INMO_LOCALIDAD ON qg896.INMO_INMUEBLE.inmu_localidad_fk = qg896.INMO_LOCALIDAD.CodigoMunicipio LEFT OUTER JOIN qg896.INMO_TIPO ON qg896.INMO_INMUEBLE.inmu_tipo_fk = qg896.INMO_TIPO.tipo_clase WHERE inmu_ref = '" + Replace(Busca_pred__var_ref, "'", "''") + "' AND (tipo_idioma_fk=1 OR inmu_tipo_fk is null) and inmu_activado <> 0 and (foto_id is null or foto_id = (select min(foto_id) FROM qg896.INMO_FOTOS_INMU WHERE inmu_id = foto_inmueble_fk)) AND inmu_inmobiliaria_fk = '" + Replace(Busca_pred__varinmo, "'", "''") + "'" Busca_pred.CursorType = 0 Busca_pred.CursorLocation = 2 Busca_pred.LockType = 1 Busca_pred.Open() Busca_pred_numRows = 0 %> <%end if%> <% Function fechaConv(fecha) Dim fecha1 fecha1 = CDate(fecha) fechaConv = WeekDayName(WeekDay(fecha1, 1), True) & ", " & Right(("0" &_ CStr(Day(fecha1))), 2) & " " & MonthName(Month(fecha1), True) & " " &_ Year(fecha1) & " 00:00:00 GMT" End Function %> <% Response.ContentType = "application/xml" %> <% Response.Write "" & vbCrLf %> <%Response.write "" & vbCrLf %> http://www.costahogar.es/ INMOBILIARIA COSTA HOGAR -- SANLÚCAR.Pisos Sanlucar de Barrameda, vivienda,casa en Sanlucar. Venta,compra, alquiler de pisos en Sanlucar de Barrameda. Oferta inmobiliaria de Sanlucar es 2005. All Rights Reserved. <% While (NOT busca_pred.EOF) %> http://www.costahogar.es/<%=(Busca_pred.Fields.Item("inmu_condicion").Value)%>__<%=(Busca_pred.Fields.Item("tipo_valor").Value)%>___<%=replace(Busca_pred.Fields.Item("inmu_zona_fk").Value," ","_")%>__<%=replace(Busca_pred.Fields.Item("Municipio").Value," ","_")%>/<%=busca_pred.Fields.Item("inmu_id").Value%>_____<%=(Busca_pred.Fields.Item("tipo_valor").Value)%>.htm <%=Busca_pred.Fields.Item("inmu_desc_larga").Value%> <%=fechaConv(busca_pred.Fields.Item("inmu_fecha").Value)%> <% busca_pred.MoveNext() Wend %> <% If busca_pred.EOF And busca_pred.BOF Then %> Actualmente no hay disponible ningun inmueble <% End If ' end busca_pred.EOF And busca_pred.BOF %> <%busca_pred.Close() Set busca_pred = Nothing %>