Scrivere un dato su un dB Access

[Ivan Russo]

Credo di essere di fronte ad un problema omnicomprensivo (AS2.0, ASP, dBAccess) nel quale solo qualcuno di voi GURU può aiutarmi. Mi spiego:
ho uno script AS che preleva un elenco di nominativi da un dB tramite Asp e fin qui OK.
Dall’elenco che compare vorrei che, selezionando uno dei nomi:
1. Venisse mandato il nome selezionato al dB tramite un file asp
2. Vorrei che il livello Flash venisse caricato con un nuovo file che carichi dalla tabella di appoggio il nome del giocatore per crearne poi la sua tabella personale.

Per quanto riguarda il punto 1. la parte AS


Player=Giocatore[numero];
dati_send = new LoadVars();
dati_send.Player = Player;
dati_send.sendAndLoad("write_giocatoreC1DaVisionar e.asp", dati_send, "POST");
dati_send.onLoad = function(success) {
if (success) {
//tua azione
trace("scritto")
trace(dati_send.Player);
out = dati_send.out; //recupera l'ok da asp
trace(out);
} else {
trace("ACC");
}
};

trace(dati_send.Player) mi da il nome giusto ma trace(out) mi da undefined. E nella tabella Access non viene scritto nulla. Il file ASP, se chiamato da Internet Explorer, funziona

Allego anche ASP

<%
DVisita = Now()
Player=request("Giocatore")
StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/Pallacanestro poggio rusco/mdb-database") & "\db.mdb"
set Conn = Server.Createobject("ADODB.Connection")
Conn.Open StrConnessione
SQL = "insert into tblGiocatoreC1DaVisionare (Data,Giocatore)"
SQL = SQL & " values ('" & DVisita & "','" & Player & "')"
response.write SQL
Conn.execute SQL
Conn.Close
set Conn=nothing
%>

Qualcuno riesce a spiegarmi dove sta l’errore?
Thanks

[nextart]

ciao ci provo:

trace(dati_send.Player) mi da il nome giusto

questo perche' lo istanzi qui:
dati_send.Player = Player;

ma dati_send.out?
non c'e sia in AS che nel file asp.
cosa ti scrive come output il file asp con

response.write SQL

[Ivan Russo]

insert into tblGiocatoreC1DaVisionare (Data,Giocatore) values ('28/09/2006 14.19.08','Lorenzo')
questo l'out del file asp.

[nextart]

scusa questo e' quello che 'fa' il file ASP, come output non ti ritorna nulla , prova ad aggiungere la parte in rosso

<%
DVisita = Now()
Player=request.Form("Giocatore")
StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/Pallacanestro poggio rusco/mdb-database") & "\db.mdb"
set Conn = Server.Createobject("ADODB.Connection")
Conn.Open StrConnessione
SQL = "insert into tblGiocatoreC1DaVisionare (Data,Giocatore)"
SQL = SQL & " values ('" & DVisita & "','" & Player & "')"
response.write SQL
Conn.execute SQL
Response.write("esito=OK")
Conn.Close
set Conn=nothing
%>

Player=Giocatore[numero];
dati_send = new LoadVars();
dati_send.Player = Player;
dati_send.sendAndLoad("write_giocatoreC1DaVisionare.asp", dati_send, "POST");
dati_send.onLoad = function(success) {
if (success) {
//tua azione
trace("scritto")
trace(dati_send.Player);
//out = dati_send.out; 
//cosi' recupera l'ok da asp
_root.esito.text = dati_send["esito"]; 
} else {
trace("ACC");
}
};

[Ivan Russo]

nextart grazie mille per l'aiuto

allora se metto nella casella indirizzi del browser la riga
http://localhost/PALLACANESTRO%20POG...oano%20Antonio
mi esce
insert into tblGiocatoreC1DaVisionare (Data,Giocatore) values ('28/09/2006 14.44.25','')esito=OK
e non mi scrive piu nella tabella del db il nome del Giocatore ma solo la data e lascia il Giocatore Vuoto

per quanto riguarda AS con le tue modifiche non cambia niente perchè aggiungendo

Player=Giocatore[numero];
dati_send = new LoadVars();
dati_send.Player = Player;
dati_send.sendAndLoad("write_giocatoreC1DaVisionar e.asp", dati_send, "POST");
dati_send.onLoad = function(success) {
if (success) {
//tua azione
//trace("scritto")
//trace(dati_send.Player);
//out = dati_send.out;
//cosi' recupera l'ok da asp
_root.esito.text = dati_send["esito"];
trace(_root.esito.text)

} else {
trace("ACC");
}
};


mi da undefined

sono tristissimo...

[nextart]

togli il

response.write SQL,

devi inserire e non visualizzare!!!
per visualizzare la scritta "ok" che ti dovrebbe restituire la pagina asp devi, ovviamente, crearti una casella di testo istanziata 'esito' sullo stage.

insert into tblGiocatoreC1DaVisionare (Data,Giocatore) values ('28/09/2006 14.44.25','')esito=OK
e non mi scrive piu nella tabella del db il nome del Giocatore ma solo la data e lascia il Giocatore Vuoto

secondo me c'e' un prbolema nell'insert......

[Ivan Russo]

la casella istanziata sullo stage mi da sempre undefined

mentre la risposta di asp è
esito=ok

ma nella tabella del dB compare sempre solo una riga con la data e la casella Giocatore inesorabilmente VUOTA...

questo genere di insert lo avevo già usato ma non sono esperto di asp e non riesco a capire davvero cosa sbaglio...

[Ivan Russo]

se tolgo .Form da request asp funziona correttamente se chiamato da Explorer.
Tutto ugauel da As. Secondo me è li l'inghippo...

[nextart]

ricapitoliamo:
la tabella in cui inserire i valori passati da falsh si chiama: tblGiocatoreC1DaVisionare
i campi sono: data,giocatore

sul frame:

Player=Giocatore[numero];
dati_send = new LoadVars();
dati_send.Player = Player;
dati_send.sendAndLoad("write_giocatoreC1DaVisionare.asp", dati_send, "POST");
dati_send.onLoad = function(success) {
if (success) {
//cosi' recupera l'ok da asp
_root.esito.text = dati_send["esito"]; 
} else {
_root.esito.text="errore";
}
};

pagina asp

 
<%
DVisita=Now()
Player=request.Form("Giocatore")
StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("db.mdb")
set Conn = Server.Createobject("ADODB.Connection")
Conn.Open StrConnessione
SQL = "insert into tblGiocatoreC1DaVisionare (data,giocatore) values('" & DVisita & "','" & Player & "')"
Conn.execute SQL
Response.write("esito=OK")
Conn.Close
set Conn=nothing
%>

cosi' a me funziona,,,

[Ivan Russo]

a me no!

continua a funzionare solo l'asp da Internet Explorer e solo se tolgo .Form dal request (cos'è sto .Form?)

Da AS continua l'undefined...

Ma porc!