Ciao a tutti,
sto diventando pazzo, e so che sarà una fesseria ma non la vedo.
Ho un form per l'invio mail da flash.
Non mi passa i parametri alla pagina ASP che manda la mail.
Codice FLASH:
reset_button.onRelease = function()
{
contact_name.text = "";
contact_email.text = "";
contact_subject.text = "";
contact_message.text = "";
}
send_button.onRelease = function()
{
if( contact_name.text != "" && contact_email.text != "" &&
contact_subject.text != "" && contact_message.text != "" )
{
loadVariablesNum("sending.asp", 0, "POST");
//send_button.sendAndLoad("sending.asp","",POST);
contact_name.text = "";
contact_email.text = "";
contact_subject.text = "Grazie";
contact_message.text = "Il tuo messaggio è stato inoltrato correttamente";
}
}
Questo è il codice dalla pagina asp
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
corpoMessaggio = ""
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form("contact_name") & ","
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form("contact_email") & ","
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form("contact_subject") & ","
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form("contact_message") & ","
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDa
.Sender = invioDa
.Subject = "Contatto da www.pomodorinomilano.com"
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & " Corpo del messaggio " & corpoMessaggio & ""
.Send
End With
response.write(Request.Form("contact_name"))
response.write("CORPO" & CorpoMessaggio)
Qualcuno capice dove sbaglio?
Ribadisco, la mail parte ma la variabile corpoMessaggio è vuota.
Grazie a tutti
ciao
Rispondi quotando