<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.Mappath("../admin/11133.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set RS = Conn.Execute("SELECT* FROM promociones WHERE id =" & Request.QueryString("id") & "") ' Do While Not rs.EOF %> Promoción <%=rs("nombre")%> 

','../imagenes/');"> Plano de situación
Memoria de calidades
Dirección:
<%=rs("direccion")%>
"> <%=rs("grandescripcion")%> Urbitec

<% dim nombre nombre = rs("nombre") rs.Close Set rs = Nothing %> <% ' Set Conn = Server.CreateObject("ADODB.Connection") ' Conn.Open "DBQ=" & Server.Mappath("../admin/11133.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set rs = Conn.Execute("SELECT* FROM tipos WHERE idpromocion=" & id & "") Do While Not rs.EOF %> <% rs.MoveNext Loop Response.Write "
" rs.Close Set rs = Nothing Conn.close %>

Tipos de viviendas
Superficie útil	Dormitorios	Tipo Vivienda	Plano	Cantidad	Vendidos
<%=rs("superficie")%>	<%=rs("dormitorios")%>	<%=rs("tipo")%>	&tipo=<%=rs("tipo")%>&promocion=<%=nombre%>&idpromocion=<%=id%>');">">	<%=rs("cantidad")%>	<%=rs("vendidos")%>