<%@Language ="VBScript"%> <%Response.Buffer = True%> <% 'Conexión a Base de datos fp_conn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("svpv.mdb") Set fp_db = Server.CreateObject("ADODB.Connection") fp_db.open fp_conn %>

<% id = Request.QueryString("id") SQL_Consulta = "SELECT * FROM datos where id="&id Set Consulta = fp_db.Execute(SQL_Consulta) if not consulta.eof then id = consulta.Fields.Item("id") ubicacion = consulta.Fields.Item("ubicacion") precio=consulta.Fields.Item("precio") descripcion=consulta.Fields.Item("descripcion") identificador=consulta.Fields.Item("identificador") municipio=consulta.Fields.Item("municipio") colonia=consulta.Fields.Item("colonia") ciudad=consulta.Fields.Item("ciudad") ventas=consulta.Fields.Item("ventas") telefonocontacto=consulta.Fields.Item("telefonocontacto") tipo=consulta.Fields.Item("tipo") metros=consulta.Fields.Item("metros") frente=consulta.Fields.Item("frente") fondo=consulta.Fields.Item("fondo") desc1=consulta.Fields.Item("desc1") desc2=consulta.Fields.Item("desc2") desc3=consulta.Fields.Item("desc3") desc4=consulta.Fields.Item("desc4") desc5=consulta.Fields.Item("desc5") asesor=consulta.Fields.Item("asesor") guian=consulta.Fields.Item("guian") guiap=consulta.Fields.Item("guiap") guil=consulta.Fields.Item("guil") antiguedad=consulta.Fields.Item("antiguedad") construido=consulta.Fields.Item("construido") niveles=consulta.Fields.Item("niveles") habitaciones=consulta.Fields.Item("habitaciones") lineas=consulta.Fields.Item("lineas") horario=consulta.Fields.Item("horario") cita=consulta.Fields.Item("cita") autos=consulta.Fields.Item("autos") tipococina=consulta.Fields.Item("tipococina") supniveles=consulta.Fields.Item("supniveles") zona=consulta.Fields.Item("zona") supoficinas=consulta.Fields.Item("supoficinas") cp=consulta.Fields.Item("cp") saldorestante=consulta.Fields.Item("saldorestante") tiemporestante=consulta.Fields.Item("tiemporestante") hipotecaria=consulta.Fields.Item("hipotecaria") remodelacion=consulta.Fields.Item("remodelacion") conservacion=consulta.Fields.Item("conservacion") estilo=consulta.Fields.Item("estilo") instalacionelectrica=consulta.Fields.Item("instalacionelectrica") topografia=consulta.Fields.Item("topografia") tipodeproyecto=consulta.Fields.Item("tipodeproyecto") formadepago=consulta.Fields.Item("formadepago") tipodepiso=consulta.Fields.Item("tipodepiso") metrostotales=consulta.Fields.Item("metrostotales") estado=consulta.Fields.Item("estado") usosuelo=consulta.Fields.Item("usosuelo") bano=consulta.Fields.Item("bano") alarma = consulta.Fields.Item("alarma") cisterna=consulta.Fields.Item("cisterna") alberca=consulta.Fields.Item("alberca") interphone=consulta.Fields.Item("interphone") carpinteria=consulta.Fields.Item("carpinteria") despacho=consulta.Fields.Item("despacho") biblioteca=consulta.Fields.Item("biblioteca") lamparas=consulta.Fields.Item("lamparas") jacuzzi=consulta.Fields.Item("jacuzzi") aire=consulta.Fields.Item("aire") bomba=consulta.Fields.Item("bomba") arealavado=consulta.Fields.Item("arealavado") closet=consulta.Fields.Item("closet") cortinas=consulta.Fields.Item("cortinas") estudio=consulta.Fields.Item("estudio") cable=consulta.Fields.Item("cable") jardin=consulta.Fields.Item("jardin") clasepropiedad=consulta.Fields.Item("clasepropiedad") ventaneria=consulta.Fields.Item("ventaneria") boiler=consulta.Fields.Item("boiler") tipofachada=consulta.Fields.Item("tipofachada") gas=consulta.Fields.Item("gas") tipoalberca=consulta.Fields.Item("tipoalberca") garage=consulta.Fields.Item("garage") servicio=consulta.Fields.Item("servicio") chimeneas=consulta.Fields.Item("chimeneas") tamanojardin=consulta.Fields.Item("tamanojardin") numeroterrazas=consulta.Fields.Item("numeroterrazas") metrostotales=consulta.Fields.Item("metrostotales") autosgarage=consulta.Fields.Item("autosgarage") SQL_Consulta_foto = "SELECT * FROM fotos where identificador='"&identificador&"'" Set Consulta_foto = fp_db.Execute(SQL_Consulta_foto) conter=0 Dim rray(9) Do while not Consulta_foto.eof foto = Consulta_foto.Fields.Item("foto") if foto<>"" then rray(conter) = "img/"&foto else rray(conter) ="img/imgnd.jpg" end if conter=conter+1 Consulta_foto.movenext loop end if %>

<%if rray(0)<>"" then%> <%if rray(1)<>"" then%> <%end if%> <%if rray(2)<>"" then%> <%end if%> <%if rray(3)<>"" then%> <%end if%> <%if rray(4)<>"" then%> <%end if%> <%if rray(5)<>"" then%> <%end if%> <%if rray(6)<>"" then%> <%end if%> <%if rray(7)<>"" then%> <%end if%> <%if rray(8)<>"" then%> <%end if%>   <%end if%> Contacto y/o Asesor Descripción <%=asesor%> <%=descripcion%> Horario cita: Ubicación <%=horario%> <%=ubicacion%> Teléfono Precio <%=telefonocontacto%> <%=precio%> Sup. de terreno <%=metros%> Mts 2 Frente <%=frente%> Sup. construido <%=construido%>Mts 2 Fondo <%=fondo%> Num.Niveles(Plantas): <%=niveles%> Num Habitaciones <%=habitaciones%> Num. de Baños <%=bano%> Líneas Tel: <%=lineas%> Autos en Estacionamiento: <%=autos%> Tipo de cocina <%=tipococina%> Uso de Suelo: <%=usosuelo%>     Ubicación <%=ubicacion%> Colonia <%=colonia%> Municipio <%=municipio%> Estado <%=estado%> C.P. <%=cp%> Zona: <%=zona%> Descripción <%=descripcion%> Características: Alarma: <%if alarma="si" then%> <%else%> <%end if%> Aire acondicionado: <%if aire="si" then%> <%else%> <%end if%> Cisterna: <%if cisterna="si" then%> <%else%> <%end if%> Bomba de agua: <%if bomba="si" then%> <%else%> <%end if%> Alberca: <%if alberca="si" then%> <%else%> <%end if%> Area de lavado: <%if arealavado="si" then%> <%else%> <%end if%> Interphone: <%if interphone="si" then%> <%else%> <%end if%> Closets: <%if closet="si" then%> <%else%> <%end if%> Carpintería: <%if carpinteria="si" then%> <%else%> <%end if%> Cortinas: <%if cortinas="si" then%> <%else%> <%end if%> Despacho: <%if despacho="si" then%> <%else%> <%end if%> Estudio: <%if estudio="si" then%> <%else%> <%end if%> Biblioteca: <%if biblioteca="si" then%> <%else%> <%end if%> Televisión por cable: <%if cable="si" then%> <%else%> <%end if%> Lámparas: <%if lamparas="si" then%> <%else%> <%end if%> Jardín: <%if jardin="si" then%> <%else%> <%end if%> Jacuzzi: <%if jacuzzi="si" then%> <%else%> <%end if%>