Inicio>Buscar>Proyectos
<% 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") ' opening connectionSelect * From Tabla1 Where UCase(Nombre) rs.Open "select * from proyectos order by [Distrito] asc", oConn, 3, 4 'LISTA DE RS RELACIONADA CON VARIABLES DE LA TABLA INMUEBLES If Not rs.EOF Then response.Write "" Response.Write "No. de Inmuebles : " & rs.RecordCount response.Write ""%> <% While Not rs.EOF %> <%sqltxt2="select * from usuarios where id_usuario ="&rs("usuario") rsr.open sqltxt2,oConn %> <% else %> <% end if %> <% rs.MoveNext Wend%>
Ubicación Descripción Anunciante Detalles
<%=rs("UBICACION")%> <%=rs("descripcion")%> <%=rsr("username")%>
<%= rsr("telefono") %>
&codigo=<%=rs("id_inmueble")%>" onclick="NewWindow(this.href,'miVentana','300','500','yes','center');return false" onfocus="this.blur()"><%= rsr("email") %> <%rsr.close%> <% if rs("control") ="Si" then %> 		">Detalles
Codigo: <%=rs("id_inmueble")%> 		no imagen
<% Else Response.Write "Por favor Seleccione en tipo de inmueble. Gracias." End If rs.Close Set rs = Nothing %>