Hola un saludo a todos:
tengo formularioweb de Romiglia, y no acaba de funcionar; ya que cuando le doy a enviar me sale CONECTANDO CON EL SERVIDOR, pero no llega nada. Concretando tengo el formulario dentro movie principal, he subido el swf y el archivo ASP "contactar" que lleva el siguiente codigo,y he cambiado los datos basicos, pero lo que no se si esta bien,es mas abajo en el codigo(lo he puesto en rojo) esa parte,la hay que dejar tal como estaba? o tambien poner el mail donde quiero que llegue?, tal como esta ahora
DE TENER CUALQUIER DUDA PREGUNTARMELO....ES QUE LLEVO 2 SEMANAS PROVANDO Y NO HAY MANERA, el codigo es el siguiente:
Destino = "
[email protected]"
servidor = "mail.greengrey.com"
titulo = "Formulario de contacto"
'Asignamos los valores recibidos del formulario a las variables
'Estas variables deben estar en el formulario dentro del swf
Origen = Request("email")
nombre = Request("nombre")
empresa = Request("empresa")
Mensaje = Request("mensaje")
'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")
' Creamos el cuerpo del mensaje
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>"
'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From =
"[email protected]"
Mail.FromName = Email ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
' El control del error es con ASPMAIL
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
'Destruimos el objeto con aspmail
Set Mail = Nothing
%>