<%@ Language=VBScript %> <% 'written by E.Z. (c)2001 if Request.QueryString("s") = "cl" then clearStyle() else if Request.QueryString ("s") = "own" then ownStyle() else %> Progelan

 Webs del Grupo >>>>>>  Promotora | Constructora | Alquiler de Maquinaria

 


Al igual que diseņamos sus viviendas con el mayor cuidado para permitir una accesibilidad total a personas discapacitadas, queremos hacer lo mismo con nuestra web. Por favor elija el color, tamaņo y tipo de letra que desee para leer nuestros textos:

Tipo de Fuente


Tamaņo


Color 


Siga navengando por nuestra web:
Promotora | Constructora | Alquiler de Maquinaria

Progelan & Ebropolis.com - Eliminamos barreras

<% end if end if %> <% sub clearStyle() Response.cookies("ownStyle").Expires = now Response.Cookies("ownStyle").Expires = now Response.Cookies("m_n").Expires = now Response.Cookies("m_l").Expires = now Response.Cookies("m_t").Expires = now Response.Cookies("m_tx").Expires = now Response.Redirect("settings.asp") end sub %> <% sub ownStyle() Response.Cookies("m_n")("ff") = Request.Form("m_n_ff") Response.Cookies("m_n")("fs") = Request.Form("m_n_fs") Response.Cookies("m_n")("fc") = Request.Form("m_n_fc") Response.Cookies("m_n")("bc") = Request.Form("m_n_bc") Response.Cookies("m_l")("ff") = Request.Form("m_l_ff") Response.Cookies("m_l")("fs") = Request.Form("m_l_fs") Response.Cookies("m_l")("fc") = Request.Form("m_l_fc") Response.Cookies("m_l")("fd") = Request.Form("m_l_fd") Response.Cookies("m_t")("ff") = Request.Form("m_t_ff") Response.Cookies("m_t")("fs") = Request.Form("m_t_fs") Response.Cookies("m_t")("fc") = Request.Form("m_t_fc") Response.Cookies("m_tx")("ff") = Request.Form("m_tx_ff") Response.Cookies("m_tx")("fc") = Request.Form("m_tx_fc") Response.Cookies("m_tx")("fs") = Request.Form("m_tx_fs") Response.Cookies("ownStyle") = "yes" Response.cookies("ownStyle").Expires = date + 150 Response.Cookies("ownStyle").Expires = date + 150 Response.Cookies("m_n").Expires = date + 150 Response.Cookies("m_l").Expires = date + 150 Response.Cookies("m_t").Expires = date + 150 Response.Cookies("m_tx").Expires = date + 150 Response.Redirect("settings.asp") end sub %>