Ciao a tutti,
sono un programmatore in Flash al quale hanno chiesto di inviare una email con php.
Normalmente utilizzo asp per recuperare i dati da flash tramite xml e successivamente, per inviarli tramite email.
C'è qualche anima pia che mi da una mano a trasformare il mio script asp in php?
In particolare la mia difficoltà è la prima parte ... ossia recupare i dati xml in variabili per poi utilizzare una classe php per inviare il tutto.
------------> Allego il codice asp
<% Response.charset="ISO-8859-1"
set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.ValidateOnParse = true
// recupero l'XML passato da flash
objXML.load(Request)
set objRoot=objXML.documentElement
// popolo le variabili con le informazioni dell'XML
nome = objRoot.Childnodes.item(0).text
cognome = objRoot.Childnodes.item(1).text
mienote = objRoot.Childnodes.item(2).text
nomefile = "http://www.XXXX.it/percorso/"&objRoot.Childnodes.item(3).text
dimefile = objRoot.Childnodes.item(4).text
set objXML = nothing
// preparo il testo della email
body = "
Invio CV dal sito<font size=+1>XXXXX.it</font>,
Nome: "
body = body&nome&"
Cognome: "
body = body&cognome&"
Note: "
body = body&mienote&"
Clicca qui per scaricare il CV allegato
"
body = body&"Dimensioni del file: "&dimefile&" Kb"
// Finta risposta per la verifica su Flash
response.write("<risposta>finta risposta</risposta>")
// Sistema per inviare email
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "sito@XXXXX.it"
MiaMail.To = "info@XXXXX.it"
MiaMail.Subject = "Invio CV - "&cognome&"."
MiaMail.HTMLbody = body
MiaMail.Send()
Set MiaMail = Nothing
%>
Mille grazie, ciao
PS: La mia richiesta implica che occorrano pochi minuti, a chi conosce entrambi i linguaggi, per aiutarmi. Se così non fosse chiedo scusa, ed aprirò una nuova richiesta in offro lavoro/collaborazione.
Rispondi quotando
