<%Response.Buffer = True%>
<%
'*******************************
'Mail - Contacto
'*******************************
strbody =""
Dim mailObj
Set mailObj = Server.CreateObject("Persits.MailSender")
mailObj.Host = "server2.alojanet.com"
mailObj.From = "info@supersfruits.com"
mailObj.Username = "info@supersfruits.com"
mailObj.Password = "info05"
mailObj.FromName = "SupersFruits"
mailObj.AddAddress "info@supersfruits.com"
'mailObj.AddAddress "sabores@creativosunidos.com"
'mailObj.AddAddress "betina@creativosunidos.com"
mailObj.Subject = "Consultas On Line Informacion - Supersfruits"
strbody = ""
strbody = strbody & ""
strbody = strbody & " "
strbody = strbody & " Untitled Document"
strbody = strbody & ""
strbody = strbody & " "
strbody = strbody & " "
strbody = strbody & ""
strbody = strbody & "
Consultas On Line Informacion - SupersFruits
"
strbody = strbody & "
"
strbody = strbody & "Nombre: " & Request.Form("nombre") & "
"
strbody = strbody & "Apellidos: " & Request.Form("apellido") & "
"
strbody = strbody & "Empresa: " & Request.Form("empresa") & "
"
strbody = strbody & "Cargo: " & Request.Form("cargo") & "
"
strbody = strbody & "Email: " & Request.Form("email") & "
"
strbody = strbody & "Dirección: " & Request.Form("direccion") & "
"
strbody = strbody & "Población: " & Request.Form("poblacion") & "
"
strbody = strbody & "Código Postal: " & Request.Form("codpostal") & "
"
strbody = strbody & "Mensaje: " & Request.Form("mensaje") & "
"
strbody = strbody & "
"
strbody = strbody & "|
"
strbody = strbody & ""
strbody = strbody & "
"
strbody = strbody & ""
strbody = strbody & ""
mailObj.Body = strbody
mailObj.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next
mailObj.Send
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
Set mailObj = Nothing
response.redirect "gracias.htm"
%>