Da flash a ASP

[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!!!

[crescenzo]

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

[diego2000]

gulp! che velocità...
domani provo tutto, per ora che dire, grazie 1000

[crescenzo]

Originariamente inviato da diego2000
gulp! che velocità...
domani provo tutto, per ora che dire, grazie 1000

de nada

ciao

[diego2000]

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