<%@ Language=VBScript %> <% Session("pagina_actual")="INDEX.asp" %> Inmobiliaria Finques Picar. Compra venta casas, pisos, terrenos y alquileres en el Maresme <% 'IF Request.QueryString("idioma")<>"" THEN 'Session("idioma_actual")=Request.QueryString("idioma") 'if session("idioma_actual")="" then Session("idioma_actual")=1 'END IF %> <% ConString2 = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath( "database\metacart.mdb" ) & ";" & "JET OLEDB:Database Password=foo" IF Session("pasado")<>"si" then adOpenKeyset = 1 adLockOptimistic = 3 set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString2 set rsCatalog=createobject("ADODB.Recordset") strSQL="select * from VISITAS " rsCatalog.CursorType=adOpenKeyset rsCatalog.LockType = adLockOptimistic rsCatalog.Open strSQL, Conn rsCatalog.addNew rsCatalog("ANO") = YEAR(DATE) rsCatalog("MES") = MONTH(DATE) rsCatalog("DIA") = DATE rsCatalog("HORA") = TIME rsCatalog.Update rsCatalog.Close set rsCatalog=nothing Conn.Close set Conn = nothing END IF %> <% set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=foo" dim rsconfiguracion set rsconfiguracion = Conn.Execute("select * from" _ & " CONFIGURACION ") Session("VERREFERENCIAS")=rsconfiguracion("VERREFERENCIAS") IF Session("VERREFERENCIAS")="" THEN Session("VERREFERENCIAS")="NO" Session("EMAILPEDIDOS") = rsconfiguracion("EMAIL_PEDIDOS") Session("EMAILCONSULTAS") = rsconfiguracion("EMAIL_CONSULTAS") Session("LOGO") = rsconfiguracion("LOGO") Session("HOST") = rsconfiguracion("HOST") Session("NOMBREEMPRESATIENDA") = rsconfiguracion("NOMBRE_EMPRESA") Session("DIRECCIONEMPRESA") = rsconfiguracion("DIRECCION_EMPRESA") Session("CODIGOPOSTALEMPRESA") = rsconfiguracion("COD_POST_EMPRESA") Session("LOCALIDADEMPRESA") = rsconfiguracion("LOCALIDAD_EMPRESA") Session("PROVINCIAEMPRESA") = rsconfiguracion("PROVINCIA_EMPRESA") Session("TELEFONOEMPRESA") = rsconfiguracion("TELEFONO_EMPRESA") Session("FAXEMPRESA") = rsconfiguracion("FAX_EMPRESA") Session("MOSTRARDATOS") = rsconfiguracion("MOSTRARDATOS") Session("COLORCABECERA") = rsconfiguracion("COLOR_CABECERA") Session("COLORBASE") = rsconfiguracion("COLOR_BASE") Session("COLORMENU") = rsconfiguracion("COLOR_MENU") Session("PORTESPAGADOS") = rsconfiguracion("OPCION1") Session("COLORMENUOVER") = rsconfiguracion("COLOR_MENU_OVER") Session("COLORFONDO") = rsconfiguracion("COLOR_FONDO") Session("COLORTEXTOMENU") = rsconfiguracion("COLOR_TEXTO_MENU") Session("COLORTEXTOMENU2") = rsconfiguracion("COLOR_TEXTO_MENU2") Session("IMAGENSUPERIOR") = rsconfiguracion("IMAGEN_SUPERIOR") Session("COLORCLIENTE") = rsconfiguracion("COLOR_CLIENTE") Session("COLORLINK") = rsconfiguracion("COLOR_LINK") Session("COLORLINKVISITADO") = rsconfiguracion("COLOR_L_VISITADO") Session("COLORLINKPULSADO") = rsconfiguracion("COLOR_L_PULSADO") Session("COLORTITULOS") = rsconfiguracion("COLOR_TITULOS") Session("COLORTITULOSCABECERA") = rsconfiguracion("COLOR_T_CABECERAS") Session("COLORTEXTOS") = rsconfiguracion("COLOR_TEXTOS") Session("COLORCABECERAPRODUCTOS") = rsconfiguracion("COLOR_C_PRODUCTOS") Session("COLOR1LISTADO") = rsconfiguracion("COLOR1_LISTADO") Session("COLOR2LISTADO") = rsconfiguracion("COLOR2_LISTADO") Session("IMAGEN_MENU") = rsconfiguracion("IMAGEN_MENU") Session("IMAGEN_CABECERA") = rsconfiguracion("IMAGEN_CABECERA") Session("IMAGEN_PAGINA") = "images/" & rsconfiguracion("IMAGEN_PAGINA") Session("FONDO_ANIMADO") = rsconfiguracion("FONDO_ANIMADO") Session("ADORNO") = rsconfiguracion("ADORNO") Session("FLASHSUPERIOR") = rsconfiguracion("FLASHSUPERIOR") Session("HORIZONTAL") = rsconfiguracion("HORIZONTAL") Session("VERTICAL") = rsconfiguracion("VERTICAL") Session("IMAGENFONDOCABECERA") = rsconfiguracion("IMAGENFONDOCABECERA") Session("LOGO_CENTRADO") = rsconfiguracion("LOGO_CENTRADO") Session("COLOR_CUADRO1") = rsconfiguracion("COLOR_CUADRO1") Session("COLOR_CUADRO2") = rsconfiguracion("COLOR_CUADRO2") Session("MARCO_CUADRO1") = rsconfiguracion("MARCO_CUADRO1") Session("MARCO_CUADRO2") = rsconfiguracion("MARCO_CUADRO2") Session("MOSTRARDATOS") = rsconfiguracion("MOSTRARDATOS") Session("COLOR_MENU3") = rsconfiguracion("COLOR_MENU3") Session("TIPO_MENU") = rsconfiguracion("TIPO_MENU") Session("VER_MENU_LATERAL") = rsconfiguracion("VER_MENU_LATERAL") Session("PLANO") = rsconfiguracion("PLANO") Session("PLANO_HORIZONTAL") = rsconfiguracion("PLANO_HORIZONTAL") Session("PLANO_VERTICAL") = rsconfiguracion("PLANO_VERTICAL") Session("PLANO_FLAHS") = rsconfiguracion("PLANO_FLAHS") Session("IZQUIERDA") = rsconfiguracion("IZQUIERDA") Session("TITULO_OFERTAS") = rsconfiguracion("TITULO_OFERTAS") Session("MENU_SEPARADO") = rsconfiguracion("MENU_SEPARADO") Session("TEXTO_RECOMENDAR") = rsconfiguracion("TEXTO_RECOMENDAR") Session("WEB_RECOMENDAR") = rsconfiguracion("WEB_RECOMENDAR") 'Session("MARCO_FLASH") = rsconfiguracion("MARCO_FLASH") rsconfiguracion.Close set rsconfiguracion = Nothing '''''''''''''''''''''''''''''''''''''' set rsCatalog=createobject("ADODB.Recordset") strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORMENU") & "'" set rsCatalog = Conn.Execute(strSQL) ON ERROR RESUME NEXT Session("COLORMENUHEX") = rsCatalog("COLORHEX") IF ERR THEN Session("COLORMENUHEX") = "000000" rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORTEXTOMENU") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORTEXTOMENUHEX") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORTEXTOMENU2") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORTEXTOMENUHEX2") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORMENUOVER") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORMENU2") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORLINKVISITADO") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORLINKVISITADO") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORLINK") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORLINK") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORLINKPULSADO") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORLINKPULSADO") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLORTITULOSCABECERA") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORTITULOSCABECERA") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("COLOR_MENU3") & "'" set rsCatalog = Conn.Execute(strSQL) Session("COLORMENU3") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("MARCO_CUADRO1") & "'" set rsCatalog = Conn.Execute(strSQL) Session("MARCO_CUADRO1_HEX") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing strsql="select * from COLORES WHERE COLOR= " & "'" & Session("MARCO_CUADRO2") & "'" set rsCatalog = Conn.Execute(strSQL) Session("MARCO_CUADRO2_HEX") = rsCatalog("COLORHEX") rsCatalog.Close set rsCatalog=nothing ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Conn.Close set Conn = nothing 'Conn.Close 'set Conn = Nothing '''''''''CONFIGURACION_EMPRESA set Conn = Server.CreateObject("ADODB.Connection") Conn.Open CONSTRING_EMPRESA ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=foo" dim rsconfiguracion_empresa set rsconfiguracion_empresa = Conn.Execute("select * from" _ & " EMPRESA ") Session("DESCRIPCION_EMPRESA")=rsconfiguracion_empresa("DESCRIPCION") IF Session("idioma_actual")=2 then Session("DESCRIPCION_EMPRESA")=rsconfiguracion_empresa("CATALAN") end if IF Session("idioma_actual")=3 then Session("DESCRIPCION_EMPRESA")=rsconfiguracion_empresa("INGLES") end if IF Session("idioma_actual")=4 then Session("DESCRIPCION_EMPRESA")=rsconfiguracion_empresa("FRANCES") end if IF Session("idioma_actual")=5 then Session("DESCRIPCION_EMPRESA")=rsconfiguracion_empresa("ALEMAN") end if Session("NOMBRE_OFICINA1")=rsconfiguracion_empresa("NOMBRE_OFICINA1") Session("DIR_OFICINA1")=rsconfiguracion_empresa("DIR_OFICINA1") Session("TELF_OFICINA1") = rsconfiguracion_empresa("TELF_OFICINA1") Session("FAX_OFICINA1") = rsconfiguracion_empresa("FAX_OFICINA1") Session("EMAIL_OFICINA1") = rsconfiguracion_empresa("EMAIL_OFICINA1") Session("NOMBRE_OFICINA2")=rsconfiguracion_empresa("NOMBRE_OFICINA2") Session("DIR_OFICINA2")=rsconfiguracion_empresa("DIR_OFICINA2") Session("TELF_OFICINA2") = rsconfiguracion_empresa("TELF_OFICINA2") Session("FAX_OFICINA2") = rsconfiguracion_empresa("FAX_OFICINA2") Session("EMAIL_OFICINA2") = rsconfiguracion_empresa("EMAIL_OFICINA2") Session("NOMBRE_OFICINA3")=rsconfiguracion_empresa("NOMBRE_OFICINA3") Session("DIR_OFICINA3")=rsconfiguracion_empresa("DIR_OFICINA3") Session("TELF_OFICINA3") = rsconfiguracion_empresa("TELF_OFICINA3") Session("FAX_OFICINA3") = rsconfiguracion_empresa("FAX_OFICINA3") Session("EMAIL_OFICINA3") = rsconfiguracion_empresa("EMAIL_OFICINA3") Session("NOMBRE_OFICINA4")=rsconfiguracion_empresa("NOMBRE_OFICINA4") Session("DIR_OFICINA4")=rsconfiguracion_empresa("DIR_OFICINA4") Session("TELF_OFICINA4") =rsconfiguracion_empresa("TELF_OFICINA4") Session("FAX_OFICINA4") = rsconfiguracion_empresa("FAX_OFICINA4") Session("EMAIL_OFICINA4") = rsconfiguracion_empresa("EMAIL_OFICINA4") Session("IMAGEN_EMPRESA") = rsconfiguracion_empresa("IMAGEN_EMPRESA") Session("FLAHS_EMPRESA") = rsconfiguracion_empresa("FLAHS_EMPRESA") Session("EMPRESA_HORIZONTAL")=rsconfiguracion_empresa("EMPRESA_HORIZONTAL") Session("EMPRESA_VERTICAL")=rsconfiguracion_empresa("EMPRESA_VERTICAL") rsconfiguracion_empresa.Close set rsconfiguracion_empresa = Nothing Conn.Close set Conn = nothing ''''''''''FIN CONFIGURACION_EMPRESA %>

<%IF sESSION("IDIOMA_ACTUAL")=1 THEN %> <%END IF%> <%IF sESSION("IDIOMA_ACTUAL")=2 THEN %> <%END IF%> <%IF sESSION("IDIOMA_ACTUAL")=3 THEN %> <%END IF%> <%IF sESSION("IDIOMA_ACTUAL")=4 THEN %> <%END IF%> <%IF sESSION("IDIOMA_ACTUAL")=5 THEN %> <%END IF%> <%IF sESSION("IDIOMA_ACTUAL")=1 THEN %> <%IF sESSION("IDIOMA_ACTUAL")=2 THEN %> <%IF sESSION("IDIOMA_ACTUAL")=3 THEN %> <%IF sESSION("IDIOMA_ACTUAL")=4 THEN %> <%IF sESSION("IDIOMA_ACTUAL")=5 THEN %> TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" scale="exactfit">

<%END IF%>

NOTA LEGAL

Términos de uso

FINQUES PICAR, S.L. es la sociedad titular de esta web. Excepto indicación expresa en contrario, la titularidad de todos los derechos de propiedad intelectual e industrial de los contenidos de esta web corresponden a FINQUES PICAR, S.L..

Es intención de FINQUES PICAR, S.L. ofrecer en todo momento una información cierta y actualizada. Sin embargo, esta información puede contener incorrecciones técnicas o errores tipográficos. FINQUES PICAR, S.L. no se responsabiliza de la idoneidad de la información contenida en la web.

En ningún caso FINQUES PICAR, S.L. será responsable de cualquier daño por la pérdida de uso, de datos o de beneficios, como consecuencia de la visualización, utilización del software, documentos, información o servicios, en general, disponibles en esta web.


Enlaces (Links)

En esta web se ofrece una selección de enlaces con otras webs de terceros, cuyo contenido puede variar, de forma muy rápida, por las características propias de Internet. Por tanto, FINQUES PICAR, S.L. no se hace en ningún caso responsable de las informaciones, servicios y contenido en general de dichas webs de terceros.

Derechos de Propiedad Intelectual e Industrial

Todos los contenidos de esta web (incluyendo, con carácter enunciativo y no limitativo: bases de datos, imágenes, dibujos, gráficos, archivos de texto, audio, vídeo y software) son propiedad de FINQUES PICAR, S.L., excepto si media indicación expresa en contrario, y están protegidos por las normas nacionales e internacionales de propiedad intelectual e industrial, entre otras.

Por tanto, su contenido no podrá ser objeto de manipulación alguna (modificación, copia, alteración, reproducción, transmisión, adaptación, traducción, etc.) por parte del Usuario o de terceros, ya sea total o parcialmente, sin la expresa autorización por parte de FINQUES PICAR, S.L., salvo que se indique lo contrario.

Las marcas, rótulos, signos distintivos y logos de FINQUES PICAR, S.L. que aparecen en la web son titularidad de FINQUES PICAR, S.L. y se hallan debidamente registrados.

Copyright © 2005, FINQUES PICAR, S.L. Todos los derechos reservados.


Ley Aplicable - Jurisdicción

La resolución de cualquier controversia o divergencia relacionada con el presente sitio web se regirá por la legislación española, siendo exclusivamente competentes los Juzgados y Tribunales de la ciudad de Barcelona.


Información general

En cumplimiento de la Ley 34/2002, de Servicios de la Sociedad de la Información y de Comercio Electrónico, le informamos de los siguientes datos:

FINQUES PICAR, S.L. - OFICINAS
c/ Itàlia, 56, bajos
08320 El Masnou BARCELONA - España
Tel. : 935 406 164
Fax: 935 551 847
Email: masuet@finquespicar.com

Sociedad Inscrita en el Registro Mercantil de Barcelona , Tomo 37208, folio 144, Hoja B302812, Inscripción 1.
NIF: B-63723449

El dominio finquespicar.com se encuentra pendiente de inscripción en el Registro Mercantil de Barcelona

Privacidad

Tratamiento de los datos de Carácter Personal. De conformidad a la Ley Orgánica 15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal (LOPD), y demás normativa vigente, los datos de carácter personal suministrados, en su caso, por el Usuario quedarán incorporados a un fichero automatizado, el cual será procesado exclusivamente para la finalidad descrita en el correspondiente formulario de recogida de datos.

Los datos de carácter personal serán tratados con el grado de protección adecuado, de acuerdo con el Real Decreto 994/1999, de 11 de junio, y demás normativa de aplicación en cada momento, tomándose las medidas de seguridad necesarias para evitar su alteración, pérdida, tratamiento o acceso no autorizado por parte de terceros.

El Usuario podrá ejercitar sus derechos de oposición, acceso, rectificación y/o cancelación, en los términos establecidos en la normativa vigente, comunicándolo por escrito a FINQUES PICAR, S.L., c/ Itàlia, 56, bajos 08320 El Masnou BARCELONA

Para cualquier consulta o comentario en relación con este tema, puede contactar con nosotros a través de la dirección de correo electrónico masuet@finquespicar.com.

VOLVER

 

FINQUES PICAR · c/ Itàlia, 56 · 08320 · El Masnou (BARCELONA) · Tel. 935406164 · Fax: 935551847 · Nota Legal