Alto de Mirasierra | El conjunto residencial

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If CStr(Request.Form("enviarMail")) = "enviarMail" Then Dim v_txt_nombre, v_txt_apellidos, v_txt_telefono, v_txt_email, v_txt_comentarios Dim strBody v_txt_nombre = CStr(Request.Form("txt_nombre")) v_txt_apellidos = CStr(Request.Form("txt_apellidos")) v_txt_telefono = CStr(Request.Form("txt_telefono")) v_txt_email = CStr(Request.Form("txt_email")) v_txt_comentarios = CStr(Request.Form("txt_comentarios")) strBody = "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "Alto de Mirasierra | El conjunto residencial" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "

" & vbcrlf strBody = strBody & "

" & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "

" & vbcrlf strBody = strBody & "

Por favor rellene el siguiente formulario para solicitar información de la promoción.

" & vbcrlf strBody = strBody & "

" & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "

* Nombre	" & v_txt_nombre & "
* Apellidos	" & v_txt_apellidos & "
* Teléfono	" & v_txt_telefono & "
* E- mail	" & v_txt_email & "
* Comentarios	" & v_txt_comentarios & "

" & vbcrlf strBody = strBody & "

* Campos obligatorios.

" & vbcrlf strBody = strBody & "

Privacidad de datos: Ley Orgánica 15/1999, 13 de diciembre, de Protección de Datos
" & vbcrlf strBody = strBody & " de Carácter Personal (LOPD).

" & vbcrlf strBody = strBody & "

Promueven:

" & vbcrlf strBody = strBody & "

Tel: (34) 917 454 252
" & vbcrlf strBody = strBody & " Grupo RESIDE Inmobiliaria
" & vbcrlf strBody = strBody & " López de Hoyos 11, 1ª planta
" & vbcrlf strBody = strBody & " 28006 Madrid

" & vbcrlf strBody = strBody & "

Tel: (34) 933 662 105
" & vbcrlf strBody = strBody & " IOSA Inmuebles
" & vbcrlf strBody = strBody & " Edificio Numancia 1, Viriato 47, 2ª planta 08014 Barcelona

" & vbcrlf strBody = strBody & "

" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & " " & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf strBody = strBody & "" & vbcrlf Set objErrMail = Server.CreateObject("CDO.Message") With objErrMail .From = "info@altodemirasierra.com" .Subject = "Contacto: " & v_txt_nombre & " " & v_txt_apellidos .HTMLBody = CStr("" & strBody) .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.altodemirasierra.com" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Si el servidor requiere autentificación .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@altodemirasierra.com" 'Cuenta SMTP .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "atipus" 'Contraseña SMTP .Configuration.Fields.Update .To = "info@altodemirasierra.com" '.To = "webmaster@atipus.com" .Send End With Set objErrMail = Nothing End If %> Alto de Mirasierra | El conjunto residencial

<% 'If CStr(Request.Form("enviarMail")) = "enviarMail" Then %> <% 'End If %>

GRUPO RESIDE - Inmobiliaria

Área Comercial
C/ Costa Brava, 16, Esc. Dcha. 1º B
28034-Madrid

Tel. +34 91 7354798 - Mv. 606 141572
yvecino@gruporeside.com
www.gruporeside.com

Promueven:

Tel: (34) 917 454 252
Grupo RESIDE Inmobiliaria
López de Hoyos 11, 1ª planta
28006 Madrid

Tel: (34) 933 662 105
IOSA Inmuebles
Edificio Numancia 1, Viriato 47, 2ª planta 08014 Barcelona