pixel
pixel
<% dim iLen(5) iLen(0)=750 iLen(1)=250 iLen(2)=160 iLen(3)=160 iLen(4)=120 Dim sLink(4) Dim sLinkEnd(4) Function fun_firstX(str,iLen) dim ffTmp ffTmp=str if Len(ffTmp)>iLen then ffTmp=Left(ffTmp,(iLen-3)) iTmp=1 for i=0 to 1000 if instr(iTmp, ffTmp, " ")=0 then i=1000 else iTmp=instr(iTmp, ffTmp, " ") + 1 end if next ffTmp=Left(ffTmp, (iTmp-1)) ffTmp=ffTmp & "..." end if fun_firstX=ffTmp End Function %>
Frapena  English Version     
pixel
 
Noticias Destacadas
PRESENTACIÓN
Noticias Destacadas
PROMOCIONES FINALIZADAS
Noticias Destacadas
NUESTROS PROYECTOS DE FUTURO
Noticias Destacadas
NUESTROS PROYECTOS EN CURSO
Noticias Destacadas
ALQUILER DE VIVIENDAS, LOCALES Y NAVES
Noticias Destacadas
Noticias Destacadas
En esta sección le mostramos los inmuebles que tenemos disponibles en estos momentos para ofrecer a nuestros clientes en venta o alquiler.
 
Alquiler de viviendas, locales y naves industriales

Disponemos de viviendas propias, de nueva construcción, para el alquiler o venta


Viviendas nuevas con calidades de lujo, suscriba contrato de alquiler con o sin opción de compra.
En magníficas zonas de Alcorcón, con amplias zonas comunes, piscina, zona de juegos infantil...
 
   Viviendas nuevas a precio razonable.
   Con garaje y trastero.
   Esmerada construcción.
 
<% Set Conexion = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conexion.Open Application("Conexion") Rs.Open "SELECT TBPROMOTIONS.Prom_Title, TBPROMOTIONS.Prom_Desc, TBPROMOTIONS.id_promotion_value, " &_ "TBPROMOTIONS.id_pictures, TBPROMOTIONS.id_map, TBPROMOTIONS.id_logo, TBPICTURES.Pic_Path AS pic1, " &_ "TBPICTURES_1.Pic_Path AS map, TBPICTURES_2.Pic_Path AS logo " & _ "FROM TBPICTURES AS TBPICTURES_2 RIGHT JOIN (TBPICTURES AS TBPICTURES_1 RIGHT " &_ "JOIN (TBPICTURES RIGHT JOIN TBPROMOTIONS ON TBPICTURES.id_pictures = TBPROMOTIONS.id_pictures) ON " &_ "TBPICTURES_1.id_pictures = TBPROMOTIONS.id_map) ON TBPICTURES_2.id_pictures = TBPROMOTIONS.id_logo " &_ "WHERE TBPROMOTIONS.id_promotion_value = 3 ORDER BY TBPROMOTIONS.id_promotion DESC", Conexion, 0,1 if Not Rs.EOF then While Not Rs.EOF Response.Write vbTab & vbTab & "" & vbCrLf Response.Write vbTab & vbTab & "" & vbCrLf Response.Write vbTab & vbTab & "" & vbCrLf Response.Write vbTab & vbTab & "" & vbCrLf Response.Write vbTab & vbTab & "" & vbCrLf Response.Write vbTab & vbTab & "

" & vbCrLf Response.Write vbTab & vbTab & ""&Rs.Fields("Prom_Title")&"
" & vbCrLf Response.Write vbTab & vbTab & "
" & vbCrLf if Not IsNull(Rs.Fields("logo")) then Response.Write vbTab & vbTab & "" & vbCrLf End if Response.Write vbTab & vbTab & ""&Replace(Rs.Fields("Prom_Desc"),chr(13), "
")&"
" & vbCrLf if Not IsNull(Rs.Fields("map")) then Response.Write vbTab & vbTab & "" & vbCrLf End if Response.Write vbTab & vbTab & "" & vbCrLf if Not IsNull(Rs.Fields("pic1")) then Response.Write vbTab & vbTab & "" & vbCrLf End if Response.Write vbTab & vbTab & "
" & vbCrLf Rs.MoveNext Wend End if %>
© 2008 Frapema, s.a. Normas de privacidad | Aviso legal
Diseño paginas web.
pixel
pixel
 
avda. América nº 32. 28922 Alcorcón (Madrid). España. UE.   +34 91 103 25 52   +34 91 103 25 54   buzon@frapema.com