Ver Mensaje Individual
  #4 (permalink)  
Antiguo 03/02/2003, 12:17
360
 
Fecha de Ingreso: marzo-2002
Mensajes: 307
Antigüedad: 23 años, 2 meses
Puntos: 1
ASP Vs. Flash

Aqui pongo el codigo del ASP y bueno no se si mi hosting soporte el envio de mail ( eso no lo sabia ) ya que es de angelfire.com y bueno me puedes explicar como esta eso ultimo que dices del CDONT ASPMAIL, porque estoy muy perdido en ese tema... gracias !

<%


Destino = "[email protected]"
servidor = "mail.hotmail.com"
titulo = "Formulario de contacto"



Origen = Request("email")
nombre = Request("nombre")
empresa = Request("empresa")
Mensaje = Request("mensaje")




Set Mail = Server.CreateObject("Persits.MailSender")



strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & nombre & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Origen & "</b><br><br>"
strBody = strBody & "Trabajo en la empresa: "
strBody = strBody & "<b>" & empresa & "</b><br><hr><br>"
strBody = strBody & "Mi mensaje es: <br>"
strBody = strBody & Mensaje & chr(10)
strBody = strBody & "</font>"



Mail.Host = servidor
Mail.Port = 25
Mail.From = "[email protected]"
Mail.FromName = Email
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino

On Error Resume Next

Mail.Send




If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If


Set Mail = Nothing

%>