<% nombre = Request("nombre") direccion = Request("direccion") pais = Request("pais") correo = Request("correo") comentario = Request("comentario") ciudad = Request("ciudad") telefono = Request("telefono") If nombre <> "" Then fillnombre = true If direccion <> "" Then filldireccion = true If pais <> "" Then fillpais = true If correo <> "" Then fillcorreo = true If comentario <> "" Then fillcomentario = true If ciudad <> "" Then fillciudad = true If telefono <> "" Then filltelefono = true %> contacto <% If fillnombre and fillcorreo and fillcomentario Then %> <% to1 = "marketing@grupohcp.com" to2 = "marketing@grupohcp.com" cc = "marketing@grupohcp.com" bcc = "marketing@grupohcp.com" subject = "Contacto Pagina Web" body = "

Formulario de contacto Web HCP

" body= body & "" body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & " " body= body & "
Nombre:" & nombre & "
Dirección:" & direccion & "
Ciudad y C.P.:" & ciudad & "
País:" & pais & "
E-mail:" & correo & "
Teléfono:" & telefono & "
Comentario:" & Comentario & "
" sendmail correo, to1, to2, subject, body, cc, bcc %>
Muchas gracias por contactar con Grupo HCP
 
 
 
<% response.end End If %>

Para contactar por favor complete los siguientes campos.

Los ítems marcados con * son obligatorios.
Los mensajes sin un e-mail real no serán recibidos. Gracias.
<%If not fillnombre Then%> * <%End If%> Nombre y Apellidos:
Dirección:
Ciudad y C.P.:
País:
<%If not fillcorreo Then%> * <%End If%> E-mail:
Teléfono:
<%If not fillcomentario Then%> * <%End If%> Comentario:
 
Teléfono de contacto: (+34) 902 198 967
<% Function sendmail (from, to1, to2, subject, body, cc, bcc) 'response.write "
" 'response.write "from: " & from & "
" 'response.write "to: " & to1 & "
" 'response.write "to2: " & to2 & "
" 'response.write "subject: " & subject & "
" 'response.write "cc: " & cc & "
" 'response.write "bcc: " & bcc & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.agrupalia.com" Mail.From = from Mail.AddAddress to1 If to2 <> "" Then Mail.AddAddress to2 If cc <> "" Then Mail.Addcc cc If bcc <> "" Then Mail.AddBcc bcc Mail.Subject = subject Mail.Body = body Mail.Priority = 1 Mail.IsHTML = True On error Resume Next Mail.Send Set Mail = Nothing 'If err.number > 0 Then response.write "Error: Persits.MailSender " & err.description End Function %>