Ciao a tutti,

Attualmente avevo un server windows e quindi form di contatto in ASP con relativo script che lo convertiva in email con del testo personalizzato all'interno.
Ora di PHP non ci capisco nulla e mi ritrovo a dover fare lo stesso script che prende i dati del form e li invia via email (sempre formattato in modo personalizzato) senza idea di che pesce pigliare.

Vi posto lo script in ASP, qualcuno gentilmente potrebbe "riconvertirlo" in PHP?
Vi faccio una statua....

Grazie mille.

<%
Option Explicit
Dim strCorpoMessaggio, iLoop, strNomeDominio, strIndirizzoIp, strDestinatarioDellaMail, strModulo, strBrowserSistemaOperativo, strAllegato, arrAllegati, strnome, strcognome, stremail, strtelefono, strindirizzo, strcitta, strprovincia, strrichieste, strcorso, strtitoli_aeronautici, strdocumento, strdatanascita, strcap, strcodicefiscale, strpreesame

If Request.Form("txtRandomKeyCode")<>StrReverse(Reque st.Form("hidRandomKeyCode")) Then
Response.Write "

<CENTER><B STYLE=color:#1D3B9A>Codice di conferma errato: prego riprovare..[/B]

<CENTER><STYLE=color:#1D3B9A>Devi scrivere nell'apposito campo il valore numerico che appare su sfondo blu, per permetterci di evitare lo spam.

<INPUT TYPE=BUTTON VALUE=' << ' ONCLICK=history.go(-1) TITLE='Ritorna alla pagina precedente'></CENTER>"
Response.End
End If
strNomeDominio = Request.ServerVariables("HTTP_HOST")
strIndirizzoIp = Request.ServerVariables("REMOTE_ADDR")
strModulo = Request.ServerVariables("HTTP_REFERER")
strBrowserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
strDestinatarioDellaMail="iscrizione.esami@DOMINIO .it"
strnome = Request.Form("Nome")
strcognome = Request.Form("Cognome")
stremail = Request.Form("Email")
strtelefono = Request.Form("Telefono")
strindirizzo = Request.Form("Indirizzo")
strcitta = Request.Form("Citta")
strprovincia = Request.Form("Provincia")
strrichieste = Request.Form("Richieste")
strcorso = Request.Form("Corso")
strtitoli_aeronautici = Request.Form("Titoli_aeronautici")
strdocumento = Request.Form("documento")
strdatanascita = Request.Form("Data_nascita")
strcodicefiscale = Request.Form("codicefiscale")
strcap = Request.Form("cap")
strpreesame = Request.Form("Scelta_preesame")

strCorpoMessaggio = "INFORMAZIONI CANDIDATO" & vbCrLf & vbCrLf & "Cognome e nome: " & strcognome & " " & strnome & vbCrLf & "Indirizzo: " & strindirizzo & " - " & strcitta & " (" & strprovincia & ") " & vbCrLf & "Cap: " & strcap & vbCrLf & "E-mail: " & stremail & vbCrLf & "Telefono: " & strtelefono & vbCrLf & "Data di nascita: " & strdatanascita & vbCrLf & vbCrLf & vbCrLf & "DETTAGLI ESAME" & vbCrLf & vbCrLf & "Titoli aeronautici posseduti: " & strtitoli_aeronautici & vbCrLf & "N. Documento: " & strdocumento & vbCrLf & "Codice Fiscale: "& strcodicefiscale & vbCrLf & "Richieste: " & strrichieste & vbCrLf & "Nazionalita: " & strpreesame & vbCrLf & vbCrLf & "IP: " & strIndirizzoIp & vbCrLf

Dim objMsg, Flds, objConf, objBodypart

Set objMsg = CreateObject("CDO.Message")
Set objBodyPart = objMsg.BodyPart
Set objConf = CreateObject("CDO.Configuration")
Set Flds = objConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.DOMINIO.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With objMsg
Set .Configuration = objConf
objBodyPart.Charset = "UTF-8"
.To = strDestinatarioDellaMail' è possibile inserire più destinatari, separati da virgola
.From = stremail
.Sender = strcognome
.Subject = "Esame LPR - " & strcognome & " " & strnome & "."
.TextBody = strCorpoMessaggio & ""
strAllegato=Request.Cookies("Allegato")
If strAllegato>"" Then
Dim objFSO, objFolder, objFiles, objFile, strFolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
arrAllegati=Split(strAllegato, "#")
For iLoop=0 To UBound(arrAllegati)-1
.AddAttachment(Server.MapPath("public/allegati/" & arrAllegati(iLoop)))
objFSO.DeleteFile(Server.MapPath("public/allegati/" & arrAllegati(iLoop)))
Next
Response.Cookies("Allegato")=""

'Cancella allegati precedenti
strFolder = Server.MapPath("public/allegati")
Set objFolder = objFSO.GetFolder(strFolder)
Set objFiles = objFolder.Files
For Each objFile in objFiles
If Now() - objFile.DateCreated > 1/24 Then objFile.Delete' Cancella gli allegati più vecchi di 1 ora
Next
Set objFile = Nothing: Set objFiles = Nothing: Set objFolder = Nothing: Set objFSO = Nothing
End If
If Request.ServerVariables("SERVER_NAME")<>"hal9000" Then .Send
End With
'Set objMsg=Nothing: Set objConf=Nothing: Set Flds=Nothing

strCorpoMessaggio = "Grazie per aver visitato il nostro sito. La tua richiesta è stata presa in carico dal nostro personale: nel giro di qualche ora riceverai una email con il numero di pratica assegnato alla tua richiesta." & vbCrLf & "Da quel momento potrai visualizzare tutti i dettagli della pratica, le risposte che ti fornirà il nostro staff ed inserire altre informazioni direttamente online all'indirizzo specificato e con il numero pratica." & vbCrLf & vbCrLf & "Il nostro staff ti indicherà la data dell'esame e le istruzioni per completare l'iscrizione." & vbCrLf & vbCrLf & "Di seguito ti riportiamo i dati che ha inserito." & vbCrLf & vbCrLf & "DETTAGLI INFORMAZIONI CANDIDATO" & vbCrLf & vbCrLf & "Nome e Cognome: " & strnome & " " & strcognome & vbCrLf & "Indirizzo: " & strindirizzo & " - " & strcitta & " (" & strprovincia & ") " & vbCrLf & "E-mail: " & stremail & vbCrLf & "Telefono: " & strtelefono & vbCrLf & vbCrLf & vbCrLf & "DETTAGLI ESAME RICHIESTO" & vbCrLf & vbCrLf & vbCrLf & "Titoli aeronautici posseduti: " & strtitoli_aeronautici & vbCrLf & "N. documento: " & strdocumento & vbCrLf & "Richieste: " & strrichieste & vbCrLf & "Nazionalita: " & strpreesame & vbCrLf & vbCrLf & "NOTE:" & vbCrLf &"Qualora non dovessi ricevere alcuna risposta entro 5 giorni, contattaci telefonicamente (XXXXXXXXXXXX)." & vbCrLf &vbCrLf & "Benvenuto in XXXXXXXXXXXXXX Srl!" & vbCrLf & "http://www.XXXXXXXXXXX.it" & vbCrLf

'Dim objMsg, Flds, objConf

Set objMsg = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
Set Flds = objConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.DOMINIO.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With objMsg
Set .Configuration = objConf
.To = stremail' è possibile inserire più destinatari, separati da virgola
.Bcc = "XXXXXXXXXXXXXn@gmail.com"
.From = "XXXXXXXXXXXXX@XXXXXXXXXX.it"
.Sender = "XXXXXXXXXXXX@XXXXXXXXXXXX.it"
.Subject = "Richiesta iscrizione esame TEA"
.TextBody = strCorpoMessaggio & ""
strAllegato=Request.Cookies("Allegato")
If strAllegato>"" Then
'Dim objFSO, objFolder, objFiles, objFile, strFolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
arrAllegati=Split(strAllegato, "#")
For iLoop=0 To UBound(arrAllegati)-1
.AddAttachment(Server.MapPath("public/allegati/" & arrAllegati(iLoop)))
objFSO.DeleteFile(Server.MapPath("public/allegati/" & arrAllegati(iLoop)))
Next
Response.Cookies("Allegato")=""

'Cancella allegati precedenti
strFolder = Server.MapPath("public/allegati")
Set objFolder = objFSO.GetFolder(strFolder)
Set objFiles = objFolder.Files
For Each objFile in objFiles
If Now() - objFile.DateCreated > 1/24 Then objFile.Delete' Cancella gli allegati più vecchi di 1 ora
Next
Set objFile = Nothing: Set objFiles = Nothing: Set objFolder = Nothing: Set objFSO = Nothing
End If
If Request.ServerVariables("SERVER_NAME")<>"hal9000" Then .Send
End With
Set objMsg=Nothing: Set objConf=Nothing: Set Flds=Nothing
Response.Redirect "completaiscrizionetest.php"
%>