Originariamente inviato da cascinanet
per esempio se io volessi mandare questi dati ad un txt che ho creato nella stessa cartella del mio .fla come faccio?
avresti sempre bisogno di asp o php
scusami and80 ti ha detto come inviare le info alla pag asp
adesso devi solo fare la pag asp che riceve i dati e li invia ad un indirizzo stabilito
con una cosa del genere
codice:
<%
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
invioA = "mailfunzionante@dominio.it"
'* voce da modificare con un indirizzo email che funga da mittente:
invioDa = "mailfunzionante@dominio.it"
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 & vbCrLf &"
<font face=verdana size=2>card : " & Request.Form("card") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "Giorno : " & Request.Form("giorno") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"Mese : " & Request.Form("mese") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
Anno : " & Request.Form("anno") & "</font>
"
n =Request.Form("card")
r =Request.Form("giorno")
'* 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 = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta Informazioni dal sito " & nomeDominio
.HTMLBody = "Questi i dati inseriti nel modulo dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
ciao