<%call links%>
<% dim sConnString, objConn, strSQL dim Rs,tipo tipo=request.querystring("tipo") 'TotalFotos=existe(request("ref")) sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("datos.mdb") Set objConn = Server.CreateObject("ADODB.Connection") sConnString = "Server=localhost;Driver={MySQL ODBC 3.51 Driver};DATABASE=w1021474_mvd;Uid=w1021474_mvd;Pwd=FEva91ruze" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.cursorlocation=3 objConn.Open (sConnString) Rs.Open "select * from departamentos where numero=" + request("ref"), objConn,1,3 if rs.eof then rs.close objconn.close response.Redirect("error.asp") end if %>

Departamento en <%=rs("zona")%> cod. <%=rs("numero")%>

Solicitar Información
&Tp=DE">
   Cambiar.
<% if rs("latitud")<>"" then else %>
Mapa de Ubicación
<%end if%>
Fotos de la Propiedad
<%for x=1 to 20%> <% Dim fso, mensaje Mensaje=-1 Set fso = CreateObject("Scripting.FileSystemObject") if fso.FileExists(server.MapPath("fotos") & "\de" & request("ref") & "_" & x & ".jpg") then %>
_<%=x%>.jpg" /> _<%=x%>.jpg"/>
<% else exit for end if next %>
jQuery Carousel
Descripción de la Propiedad
<%=rs("descp")%>
Características Principales
Zona: <%=rs("zona")%> Tipo de Operación: En Venta
Dormitorios: <%=rs("dorms")%> Baños: <%=rs("baños")%>
Sup. Propia: <%=rs("spropia")%> mtrs Sup. Total: <%=rs("stotal")%> mtrs
Equipamiento
<%=rs("suites")%> Suites Piscina Lavadero
Dep. Servicio Calefacción Garage
Living / Comedor Parrilla Sauna
Muebles Mucamas Gimnasio
Precio de Venta
Precio de Venta: U$S <%=formatnumber(rs("precio"),0)%>
Precios de Alquiler
Alquiler Anual: U$S <%=formatnumber(rs("anual"),0)%>
Enero: U$S <%=formatnumber(rs("enero"),0)%>
Febrero: U$S <%=formatnumber(rs("febrero"),0)%>
Diciembre: U$S <%=formatnumber(rs("diciembre"),0)%>
Marzo: U$S <%=formatnumber(rs("marzo"),0)%>
Temporada: U$S 0
1ª Quin. Enero: U$S <%=formatnumber(rs("quin1"),0)%>
1ª Quin.Febrero: U$S <%=formatnumber(rs("quin3"),0)%>
1ª Q. Diciembre: U$S <%=formatnumber(rs("qd1"),0)%>
1ª Quin. Marzo: U$S <%=formatnumber(rs("qm1"),0)%>
Fin de año: U$S <%=formatnumber(rs("reveion"),0)%>
2ª Quin. Enero: U$S <%=formatnumber(rs("quin2"),0)%>
2ª Quin. Febrero: U$S <%=formatnumber(rs("quin4"),0)%>
2ª Q. Diciembre: U$S <%=formatnumber(rs("qd2"),0)%>
2ª Quin. Marzo: U$S <%=formatnumber(rs("qm2"),0)%>
<%lat=rs("latitud") lng=rs("longitud") lati=replace(lat,",",".") lngi=replace(lng,",",".") 'response.write("lat"&lati) %>