| Inicio>Buscar>Por Código><%=request("SelectTipo")%>
<%=request("Distrito")%> |
<%
Dim rs,rsr,rsr2,oConn,filePath,sqltxt2
Dim tipo,distrito,precio,ofrecimiento,codigo,id_inmueble,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")
id_inmueble = request("codigo")
rs.Open "select * from inmuebles Where id_inmueble=" & id_inmueble & " order by [Distrito] asc", oConn, 3, 4
'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("precio")%> |
<%sqltxt2="select * from usuarios where id_usuario ="&rs("usuario")
rsr.open sqltxt2,oConn %>
<%=rsr("username")%>
Tlf. <%= rsr("occupation") %>
&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")
id_inmueble=rs("id_inmueble")%> <% if rs("control") ="Si" then %> <%sqltxt3="select * from fotos where id_inmueble="&id_inmueble
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%>
|
