Originariamente inviato da diego2000
ciao ragazzi,
lo so che è un argomento vecchio, ma mi trovo in un'urgenza e ho poco tempo per studiare asp/vb e altre schifezze...
devo passare una serie di dati raccolti da un form in flash, che per fortuna ha solo 3 campi: nome, telefono e email (è anche il nome delle variabili da estrarre dai campi di input).
premendo il pulsante INVIA, si esegue 'sto codice:

on(release){
if(nome==undefined && email==undefined && telefono==undefined){
_root.getURL("javascript:alert('Attenzione! Inserire almeno un dato')");
}
else{
//trace("dato ok");
invioDati=new LoadVars();
//invioDati.sendAndLoad("dbase.asp",invioDati, "GET");
invioDati.vNome=nome;
invioDati.vMail=email;
invioDati.vTel=telefono;
trace(invioDati);
invioDati.sendAndLoad("dbase.asp", invioDati, "GET");
}
}
ora: come deve essere scritto il file dbase.asp???
per inciso: uso flash mx, quando mi pagano per 'sto lavoro mi compro flash8, lo giuro.
i dati devono poi essere mandati ad un database in access

HELP!!!
potrebbe essere una cosa del genere
[code]
<%

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 = "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")

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
%>

dovrebbe fungere
ciao