<%
Session.CodePage = 65001 ' UTF-8 code
Dim strDestino
dim strSPAM
if Request("txtMensaje")="" or instr(Request("txtMensaje"),"dwd") <> 0 or instr(Request("txtMensaje"),"zzh") <> 0 then
strDestino="forchas@3djump.com"
strSPAM="Mensaje de SPAM BLOQUEADO, NO LLEGA A CERRAJEROS BILBAO"
else
strDestino= "cerrajeriastito@gmail.com"
strSPAM=""
end if
'1º) ENVIO A CERRAJEROS EN BILBAO
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.3djump.com" '"smtp.gmail.com"
'Mail.Port = 465 ' Valor opcional. 25 es el puerto por defecto.
Mail.Username = "fea078c"
Mail.Password = "londazO2010"
Mail.TLS=True
Mail.From = "formulario-automatico@3djump.com"
Mail.FromName = "CERRAJEROS EN BILBAO" ' Opcional
Mail.AddAddress strDestino, "CERRAJEROS EN BILBAO"
Mail.AddBCC "cafaragon@gmail.com", "CERRAJEROS EN BILBAO"
Mail.Subject = "Consulta desde pagina web CERRAJEROS EN BILBAO"
Mail.Body = "" & _
strSPAM & " " & _
"Web de la localidad: " & Request("txtLocalidad") & " " & _
"Contacto: " & Request("txtContacto") & " " & _
"Mensaje: " & Request("txtMensaje") & " " & _
" Este mensaje se recibe a través de un formulario automático de su blog, para contestar al remitente de este formulario NO DEBE RESPONDER a este e-mail sino que debe hacerlo según indica el interesado en el apartado CONTACTO." & _
""
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha habido un error al enviar el formulario. Para ponerse en contacto conmigo llámame al teléfono que indico en la cabecera de la web. Gracias."
Response.Write " "
Response.Write " "
Response.Write "Descripción del error: " & Err.Description
Else
Response.write "