|
|
<%
strHost = "smtp.casalosjuanillos.com"
if Request("Email") <> "" AND Request("txtNombre") <> "" AND Request("txtAsunto") <> "" AND Request("txtBody") <> "" then
if Request("Send") <> "" Then
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = strHost
objMail.Username = "no-reply@casalosjuanillos.com"
objMail.Password = "636567680Dt"
objMail.From = "no-reply@casalosjuanillos.com" 'Dirección del remitente del mensaje
objMail.FromName = "www.casalosjuanillos.com" ' optional
strToAddress = Trim(Request("txtTo"))
' To prevent header injection attack
strToAddress = Replace( strToAddress, " ", "" )
strToAddress = Replace( strToAddress, chr(13), "" )
strToAddress = Replace( strToAddress, chr(10), "" )
' To address, 2nd argument omitted.
objMail.AddAddress strToAddress
objMail.AddBcc "nkjuanillo@hotmail.com,dt@dtinformatica.info,fatima@dtinformatica.info" 'Destinatario de la copia
'objMail.AddReplyTo "hola@casalosjuanillos.com"
objMail.AddReplyTo Server.HtmlEncode(Request("Email"))
' Message subject
objMail.Subject = objMail.EncodeHeader( Request("txtSubject"), "UTF-8" )
' Enable Unicode
objMail.ContentTransferEncoding = "Quoted-Printable"
objMail.CharSet = "UTF-8"
' Message body
objMail.Body = Request("txtBody")
'QUIEN = Request("txtDe")
QUIEN = Request("Email")
NOMBRE = Request("txtNombre")
TELEFONO = Request("txtTelefono")
ASUNTO = Request("txtAsunto")
CASA = Request("txtTipoCasa")
' Include a disclaimer
objMail.Body = "Mensaje de: " & chr(13) & chr(10) & chr(13) & chr(10) & NOMBRE & chr(13) & chr(10) & chr(13) & chr(10) & QUIEN & chr(13) & chr(10) & chr(13) & chr(10) & TELEFONO & chr(13) & chr(10) & chr(13) & chr(10) & ASUNTO & chr(13) & chr(10) & chr(13) & chr(10) & CASA & chr(13) & chr(10) & chr(13) & chr(10) & "-----------------------------------" & chr(13) & chr(10) & chr(13) & chr(10) & objMail.Body & chr(13) & chr(10) & chr(13) & chr(10) & "-----------------------------------" & chr(13) & chr(10) & chr(13) & chr(10) & "No responda a este e-mail, para cualquier consulta escriba a nkjuanillo@hotmail.com"
'objMail.Body = "Mensaje de: " & chr(13) & chr(10) & chr(13) & chr(10) & NOMBRE & chr(13) & chr(10) & chr(13) & chr(10) & QUIEN & chr(13) & chr(10) & chr(13) & chr(10) & "-----------------------------------" & chr(13) & chr(10) & chr(13) & chr(10) & objMail.Body & chr(13) & chr(10) & chr(13) & chr(10) & "-----------------------------------" & chr(13) & chr(10) & chr(13) & chr(10) & "No responda a este e-mail, para cualquier consulta escriba a hola@casasentremurallas.com"
On Error Resume Next
objMail.Send ' Send message
If Err = 0 then
'txtMsg = "Success! Message sent to " & strToAddress + "."
response.redirect "http://www.casalosjuanillos.com/gracias_contacto.asp"
Else
txtMsg = "Error occurred: " + err.Description + ""
End If
End If
else
txtMsg2="*"
end if
%>
|
|
|
|