Originariamente inviato da ResianTaxidrive
Ma hai controllato se il php/asp riceve i dati spediti con loadVars?
come posso controllare questo?
questo è il filer asp cmq:
Codice PHP:
<%@ Language = "VBScript" %>
<%
Dim iMsg, iConf, Flds,azienda,referente,indirizzo,telefono,fax,email,domande,settore,settore1
azienda = Request("azienda")
referente = Request("referente")
indirizzo = Request("indirizzo")
telefono = Request("telefono")
fax = Request("fax")
email = Request("email")
domande = Request("domande")
settore1 = Request("settore")
if settore1 = "" then
settore = "Non Dichiarata"
else
settore = Request("settore")
end if
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = email
destinatario = "info@jbkljkl.it"
oggetto = "Richiesta informazioni dal sito "
messaggio = "Messaggio inviato dal sito
------------------------------------------------------------------------------
"&_
"Dati del mittente che desidera avere informazioni:
"&_
"[b]Referente:[/b] " & referente &"
"&_
"[b]Azienda:[/b]" &azienda&"
"&_
"[b]Settore:[/b]" &settore&"
"&_
"[b]Indirizzo:[/b]" &indirizzo&"
"&_
"[b]Telefono:[/b]" &telefono&"
"&_
"[b]Fax:[/b]" &fax&"
"&_
"[b]E-mail:[/b][email=' "&email&"']"&email&"[/email]
"&_
"[b]
Messaggio della richiesta:[/b]
"&domande&"
------------------------------------------------------------------------------
"&_
"[b]Il messaggio è stato inviato il:[/b] "&Date()&"
"&_
"[b]Indirizzo ip del mittente:[/b] "&Request.ServerVariables("REMOTE_ADDR")&""
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio
'Invia l'email
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>