 |
<% if Request.Form = "" then %>
<%else%>
|
<%
Dim Mailer, msg, nl
nl = chr(13) & chr(10)
msg = "Con fecha " & date() & ", se ha recibido la siguiente solicitud de información: " & nl & nl
msg = msg & "Nombre: " & request("nombre") & nl
msg = msg & "Empresa: " & request("empresa") & nl
msg = msg & "E-mail: " & request("email") & nl
msg = msg & "Teléfono: " & request("telefono") & nl
msg = msg & "Comentarios: " & request("comentarios") & nl
on error resume next
Err = 0
With iMsg
.To = "mar@webintegralservice.com"
.CC = "dicoinsa@dicoinsa.com"
.From = """Formulario Contactar Web Dicoinsa"" "
.Subject = "Desea contactar con nosotros desde la Web"
.TextBody = msg
.Send
End With
set iMsg = nothing
set iConf = nothing
set iFlds = nothing
If not Err then
Response.write "Su mensaje ha sido enviado correctamente, en breve nos pondremos en contacto con usted"
Else
Response.write "El mensaje no ha podido ser enviado, intentelo en unos minutos."
End If
%> |
<%end if%> |
