flash, asp e jmail

[rosmaro]

Salve ho un problema con un script asp che viene utilizzato con flash.

E' un form di invio mail che ho trovato che mi piace però usa aspmail mentre a me serve jmail.

E' in spagnolo ma si capisce ho provato a modificarlo secondo i prametri di jmail ma non funziona e non ho ben capito qual'è il problema.

Vi posto l'originale e il modificato da me forse potete dirmi dove sbaglio perchè con aspmail viene inviato correttamente mentre con jmail no.

originale:

<%
'
' FLASHMAIL 1.0
'
' Autores:
' Kali Romiglia (http://www.romiglia.com)
' Miguel Mora (http://www.prodigia.com)
' DUDAS O PREGUNTAS A KALI@ROMIGLIA.COM

'
' INSTRUCCIONES ::
'
' Este archivo debe ir en la misma carpeta donde este el swf.
'
' Solo debes cambiar tres variables::
' 1_ Destino = "tuemail@tudominio.com"
' 2_ servidor = "mail.tuservidor.com" si no sabes cual es, simplemente contactate con tu proveedor
' 3_ titulo = "el titulo que aparecerá en el email"
'
'

Destino = "miamail@server.it"
servidor = "mail.xxx.net"
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 & "" & nombre & "

"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "" & Origen & "

"
strBody = strBody & "Trabajo en la empresa: "
strBody = strBody & "" & empresa & "
<hr>
"
strBody = strBody & "Mi mensaje es:
"
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 = "mail@server.it"
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

%>
Mi è un po' dubbia quel:
Mail.From = "mail@server.it"
perchè la mail del mittente viene recuperata dal form in flash, comunque:

il mio è questo:

<%
'
' FLASHMAIL 1.0
'
' Autores:
' Kali Romiglia (http://www.romiglia.com)
' Miguel Mora (http://www.prodigia.com)
' DUDAS O PREGUNTAS A KALI@ROMIGLIA.COM

'
' INSTRUCCIONES ::
'
' Este archivo debe ir en la misma carpeta donde este el swf.
'
' Solo debes cambiar tres variables::
' 1_ Destino = "tuemail@tudominio.com"
' 2_ servidor = "mail.tuservidor.com" si no sabes cual es, simplemente contactate con tu proveedor
' 3_ titulo = "el titulo que aparecerá en el email"
'
'

Destino = "miamail@libero.it"
servidor = "localhost" Notaho già utilizzato questo metodo per sfruttare il server locale del sito consigliatomi dal proprietario)

titulo = "Informazioni dal sito"


'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")

questi sono i nomi dei campi di testo dinamici del form in flash li ho lasciati così per la prova


'Creamos una instancia del objeto
dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")


' Creamos el cuerpo del mensaje
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Il mio nome è: "
strBody = strBody & "" & nombre & "

"
strBody = strBody & "La mia email è: "
strBody = strBody & "" & Origen & "

"
strBody = strBody & "Impresa: "
strBody = strBody & "" & empresa & "
<hr>
"
strBody = strBody & "Il mio messaggio è:
"
strBody = strBody & Mensaje & chr(10)
strBody = strBody & "</font>"


'Asignamos las propiedades al objeto con ASPMAIL
JMail.ServerAddress = servidor
JMail.Sender = Email ' Opcional
JMail.Subject = titulo
JMail.Body = strBody
JMail.AddRecipient Destino

If intMailFormat = 0 Then
JMail.ContentType = "text/html"
End If

On Error Resume Next

objJMail.Execute


' El control del error es con

If Err <> 0 Then
Response.Write "popup.mensaje=Errore, inviare in seguito " & Err.Description
Else
Response.Write "popup.mensaje=Messaggio inviato correttamente."
End If


Set JMail = Nothing

%>


Non so se è tutto corretto se non lo è mi dite dove sbaglio???

Sapete dove posso trovare un form di invio in flash con asp e jmail???

[rosmaro]

Ho trovato la soluzione da sola. grazie comunque :mavieni: