Inicio>Buscar>Pedidos
 
Haga sus Pedidos

<% Dim rs,rsr,rsr2,oConn,filePath,sqltxt2,sqltxt 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) sqltxt= "select * from pedidos order by fecha desc" 'LISTA DE RS RELACIONADA CON VARIABLES DE LA TABLA INMUEBLES rs.open sqltxt,oConn If Not rs.EOF Then %> <% While Not rs.EOF %> <% rs.MoveNext Wend%>
<%sqltxt2="select * from usuarios where id_usuario ="&rs("usuario") rsr.open sqltxt2,oConn %>
N <%= rsr("fname") %> <%response.Write(" ")%> <%= rsr("lname") %>
@ " onclick="NewWindow(this.href,'miVentana','300','500','yes','center');return false" onfocus="this.blur()"><%= rsr("email") %>
T <%= rsr("occupation") %>
F <%= rsr("city") %>
<%rsr.close%> 		<%=formatdatetime(rs("fecha"),2)%>

<%= rs("pedido") %>
<% Else Response.Write "Haga su pedido. Gracias." End If rs.Close Set rs = Nothing %>