| Inicio>Buscar>En Venta><%=request("SelectTipo")%> <%=request("Distrito")%> |
| CS |
Casas |
DP |
Departamentos |
| LO |
Locales y Oficinas |
PR |
Propiedades |
| CT |
Cuartos |
PY |
Playas |
| TR |
Terrenos |
|
|
|
|
|
<%
Dim rs,rsr,rsr2,oConn,filePath,sqltxt2
Dim tipo,distrito,precio,ofrecimiento,codigo,idinmueble,sqltxt3,foto
Set oConn=Server.CreateObject("ADODB.Connection")
filePath = Server.MapPath("../bdatos/lista.mdb")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +filePath)
set rs=createobject("ADODB.Recordset")
set rsr=createobject("ADODB.Recordset")
set rsr2=createobject("ADODB.Recordset")
'SELECCION DE SENTENCIAS DE ACUERDO A FORMULARIO
dim formu
tipo = request.Form("tipo")
distrito = request.Form("distrito")
ofrecimiento="Venta"
formu=REQUEST.Form("formu")
dim desde,hasta,opcion
Select case (formu)
' Busqueda desde el index
case "formu01" :
opcion = split(request.Form("precio"),"-")
desde = opcion(0)
hasta = opcion(1)
if distrito = "todos" then
rs.Open "select * from inmuebles Where Ofrecimiento='" & ofrecimiento & "' AND tipo='" & tipo & "' AND precio > " & desde & " and precio < " & hasta & " order by [Distrito]", oConn, 3, 4
elseif not distrito = "todos" then
rs.Open "select * from inmuebles Where Ofrecimiento='" & ofrecimiento & "' AND Distrito='" & distrito & "' AND tipo='" & tipo & "' AND precio > " & desde & " and precio < " & hasta & " order by [Distrito]", oConn, 3, 4
end if
'Busqueda desde la página local
case "formu02" :
opcion = split(request.Form("precio"),"-")
desde = opcion(0)
hasta = opcion(1)
if distrito = "todos" then
rs.Open "select * from inmuebles Where Ofrecimiento='" & ofrecimiento & "' AND tipo='" & tipo & "' AND precio > " & desde & " and precio < " & hasta & " order by [Distrito]", oConn, 3, 4
elseif not distrito = "todos" then
rs.Open "select * from inmuebles Where Ofrecimiento='" & ofrecimiento & "' AND Distrito='" & distrito & "' AND tipo='" & tipo & "' AND precio > " & desde & " and precio < " & hasta & " order by [Distrito]", oConn, 3, 4
end if
'Busqueda por defecto
case "" :
rs.Open "select * from inmuebles Where Ofrecimiento='" & ofrecimiento & "' order by [Distrito]", oConn, 3, 4
end select
'LISTA DE RS RELACIONADA CON VARIABLES DE LA TABLA INMUEBLES
If Not rs.EOF Then %>
<% if request("SelectTipo")="" then %>
| No de Inmuebles
<%= rs.RecordCount %> |
<%ELse%>
No. de <%=request("SelectTipo")%> : <%= rs.RecordCount %> |
<%end if%>
Imprimir |
| Tipo |
Distrito |
Area m2 |
Dorm |
Baños |
Coch |
Otros |
Us$ Precio |
Anunciante |
Detalles |
<% While Not rs.EOF %>
|
<%
tipo = rs("tipo")
select case (tipo)
case "Casas":
response.Write("CS")
case "Departamentos":
response.Write("DP")
case "LocalesOficinas":
response.Write("LO")
case "Propiedades":
response.Write("PR")
case "Cuartos":
response.Write("CT")
case "Playas":
response.Write("PY")
case "Terrenos":
response.Write("TR")
end select
%> |
<%=rs("distrito")%> |
At:<%=rs("aterre")%>
Ac:<%=rs("acons")%> |
<%=rs("dorm")%> |
<%=rs("banos")%> |
<%=rs("cocheras")%> |
<%=rs("otros")%> |
<%=rs("precio")%> |
<%sqltxt2="select * from usuarios where id_usuario ="&rs("usuario")
rsr.open sqltxt2,oConn %>
<%=rsr("username")%>
Tlf. <%= rsr("Telefono") %>
&codigo=<%=rs("id_inmueble")%>" onClick="NewWindow(this.href,'miVentana','300','500','yes','center');return false" onFocus="this.blur()"><%= rsr("email") %>
Código
Inmueble :<%=rs("id_inmueble")%> <%
rsr.close%> <%codigo=rs("id_inmueble")
idinmueble=rs("id_inmueble")%> <% if rs("control") ="Si" then %> <%sqltxt3="select * from fotos where id_inmueble="&idinmueble
rsr2.open sqltxt3,oConn
foto=rsr2("Foto1")
%>
| 
<%rsr2.close %> |
<% else %>
|
<% end if %>
<% rs.MoveNext
Wend%>
<% Else
Response.Write "Por favor Seleccione en tipo de inmueble y distrito. Gracias."
End If
rs.Close
Set rs = Nothing
%>
<%
oConn.close%>
|
|
