allora, c'è qualche problemino
1) anzitutto, se utilizzo questo codice nel filmato flash
invioDati=new LoadVars();
invioDati.vNome=nome;
invioDati.vMail=email;
invioDati.vTel=telefono;
trace(invioDati);
invioDati.sendAndLoad("dbase.asp", invioDati, "GET"); mi da errore (impossibile aprire file dbase.asp o roba simile)
sostituendo sendAndLoad() con send(), il file lo trova ma tenta di aprirlo come se fosse un URL
2) nel codice che mi hai postato ieri ho provato ad inserire un'istruzione per vedere se i dati vengono passati correttamente:
<%
on error resume next
if err.number>0 then
strOutput= "Si Ë verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
end if
response.write "inserimento avvenuto con successo"
Dim corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
Dim datafile as String = "control.txt"
Dim fout as NewFileStream(Server.MapPath(datafile), FileMode.Open, FileAccess.Write, FileShare.ReadWrite)
invioA = "tuamail@qwqwq.it"
invioDa = "tuamail@qwqw.it"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf & "Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email")
corpoMessaggio = corpoMessaggio & vbCrLf &"Telefono : " & Request.Form("telefono")
fout.WriteLine(corpoMessaggio)
fout.Close()
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 = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta Informazioni dal sito " & nomeDominio
.HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
...ma il file control.txt rimane vuoto
SOB