Código PHP:
<%
' Set Mail = Nothing
'composo el correu
f_nombre_empresa = request.form("NombreEmpresa")
f_persona_contacto = request.form("PersonaContacto")
f_cargo_contaco = request.form("CargoContacto")
f_tel = request.form("Telefono")
f_mail = request.form("mail")
f_pais = request.form("Pais")
f_comentarios = request.form("Mensaje")
'//////////////////////////////////// UN SISTEMA ANTI ROBOTS QUE MANDEN EL CORREO EN BLANCO
if f_mail <> "" then
else
response.redirect ("index-4.asp")
end if
'//////////////////////////////////// FIN SISTEMA ANTI ROBOTS
fcomen_BR = Replace(Request.Form("Mensaje"), vbCrLf, "<br />")
'&"<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' />"_
sMessage = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN `http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>" _
&"<html xmlns='http://www.w3.org/1999/xhtml'>"_
&"<head>"_
&"<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />"_
&"<title>Formulario Web pipex.es</title>"_
&"<style type='text/css'>"_
&"<!--"_
&"body{"_
&" margin-left: 0px;"_
&" margin-top: 0px;"_
&" margin-right: 0px;"_
&" margin-bottom: 0px;"_
&"} "_
&".text_10px {"_
&" font-family: Verdana, Arial, Helvetica, sans-serif;"_
&" font-size: 12px;"_
&" font-weight: normal;"_
&" color: #333333;"_
&"}"_
&".text_titol_preus {"_
&" font-family: Verdana, Arial, Helvetica, sans-serif;"_
&" font-size: 14px;"_
&" font-weight: bold;"_
&" color: #333333;"_
&"}"_
&".fons_gris {"_
&" background-color: #CCCCCC;"_
&"}"_
&".text_10px_oblicua {"_
&" font-family: Verdana, Arial, Helvetica, sans-serif;"_
&" font-size: 10px;"_
&" font-weight: normal;"_
&" color: #333333;"_
&" font-style: oblique;"_
&"}"_
&".text_text_resaltat {"_
&" font-family: Verdana, Arial, Helvetica, sans-serif;"_
&" font-size: 16px;"_
&" font-weight: bold;"_
&" color: #716F64;"_
&"}"_
&".text_taula_preus_negreta {"_
&" font-family: Verdana, Arial, Helvetica, sans-serif;"_
&" font-size: 10px;"_
&" font-weight: bold;"_
&" color: #666666;"_
&"}"_
&"</style>"_
&"</head>"_
&"<body>"_
&"<table width='600' border='0' cellspacing='0' cellpadding='2'><tr>"_
&"<td colspan='2' height='30' class='fons_gris'><span class='text_text_resaltat'>"_
&"Formulario enviado desde PIPEX.ES </span></td>"_
&"</tr>"_
&"<tr>"_
&"<td colspan='2'><span class='text_titol_preus'>Datos Generales: </span></td>"_
&"<tr><td width='100%' height='2' colspan='2' bgcolor='#999999'></td></tr>"_
&"</tr>"_
&"<tr>"_
&"<td width='127' class='text_10px'><b>Nombre Empresa:</b></td>"_
&"<td width='465' class='text_10px'>"& f_nombre_empresa &"</td>"_
&"</tr>"_
&"<tr>"_
&"<td class='text_10px'><b>Persona Contacto</b></td>"_
&"<td class='text_10px'>"& f_persona_contacto &"</td>"_
&"</tr>"_
&"<tr>"_
&"<td class='text_10px'><b>Cargo Contacto</b></td>"_
&"<td class='text_10px'>"& f_cargo_contaco&"</td>"_
&"</tr>"_
&"<tr>"_
&"<td class='text_10px'><b>Teléfono:</b></td>"_
&"<td class='text_10px'>"&f_tel&"</td>"_
&"</tr>"_
&"<tr>"_
&"<td class='text_10px'><b>E-Mail:</b></td>"_
&"<td class='text_10px'><a href='mailto:"&f_mail&"'>"&f_mail&"</a></td>"_
&"</tr>"_
&"<tr>"_
&"<td class='text_10px'><b>Pais:</b></td>"_
&"<td class='text_10px'>"&f_pais&"</td>"_
&"</tr>"_
&"tr>"_
&"<td class='text_10px'> </td>"_
&"<td class='text_10px'> </td>"_
&"</tr>"_
&"<tr>"_
&"<td class='text_10px'> </td>"_
&"<td class='text_10px'> </td>"_
&"</tr>"_
&"<tr>"_
&"<td class='text_10px' valign='top'><b>Mensaje:</b></td>"_
&"<td class='text_10px'>"&fcomen_BR&"</td>"_
&"</tr>"_
&"</table>"_
&"</body>"_
&"</html>"
'"<b>DATOS GENERALES </B><BR>"_
'&"<b>Nombre:</b><br> " & f_nombre & "<br><br>"_
'&"<b>Direccion:</b><br>" & f_direccion& "<br><br>" _
'&"<b>Población:</b><br>" & f_poblacion& "<br><br><br><br>" _
'&"<b>Teléfono:</b><br>" & f_tel& "<br><br>" _
'&"<b>Mail:</b><br><a href=mailto:"&f_mail&">" &f_mail &"</a><br><br><br>" _
'&"<B>RESERVA</B><br>" _
'&"<b>Número adultos:</b>" & f_adultos &"<br>" _
'&"<b>Número niños:</b>" & f_ninos &"<br><br>" _
'&"<b>Fecha entrada:</b>" & f_entrada & "<br>" _
'&"<b>Fecha salidaa:</b>" & f_salida & "<br><br><br>" _
'&"<b>Comentarios: </b><br>" & fcomen_BR & "<br>"
de = f_mail
asunto = "FORMULARIO WEB PIPEX.ES"
mensaje = sMessage
&mensaje& "</BODY></HTML>"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Username = "[email protected]" 'para ser validado
Mail.Password = "pipicaca"
Mail.Host = "mail.iberwall.net"
Mail.From = "[email protected]"
Mail.FromName = "[email protected]" ' Specify sender's name
'Mail.FromName = asunto ' Specify sender's name
'///////////////////// DIRECCION A LA QUE SE ENVIA
Mail.AddAddress "[email protected]" ' a la direccion donde se envia
Mail.Subject = asunto
Mail.Body =sMessage
Mail.IsHTML = true
Mail.Send
Mail.Sendtoqueue
no me respta los caracteres raros (€ ñ à é...)
he mirado y he probado diferentes cosas pero ninguna funciona
