ciao alfionas grazie per i complimenti......
ora non vorrei chederti il .fla![]()
![]()
il fla e' composto da due frame.
per quanto riguarda la grafica il campo e' un semplice mc posizionato sullo stage.
nel livello superiore al campo ho messo 21 (non 18 perche' le posizini occupabili con i vari moduli sono di piu' + la panchina) campi di testo dinamici istanziati g1,g2,g3,g4....g21
crea un nuovo livello in cui andrà messo il codice AS, per caricare i dati relativi alla squadra selezionata.
1° frame: ci sono i bottoni delle squadre istanziati con il nome della squadra che viene passato al frame successivo:
il nome squadra passato come var deve essere uguale al nome inserito nella tabella formazioni del db.codice:nome_squadra.onRelease = function(){ _root.squadra = "NOME SQUADRA"; //trace(squadra) gotoAndStop(2); }
2° frame
nel db ho una tabella 'formazioni' con questa struttura:codice:System.useCodepage = true; //imposto i campi dinamico for(i=1;i<=22;i++){ _root.mc_contenitore["g"+i].autoSize="center"; } // INVIO IL NOME SQUADRA ALLA PAGINA ASP // CHE SI OCCUPA DI ESTRARRE I DATI CORRISPONDENTI DAL DB dati_send = new LoadVars(); dati_send.nome = _root.squadra; dati_send.sendAndLoad("visualizza_form.asp", dati_send, "POST"); dati_send.onLoad = function(success) { if (success) { _root.nome.text = dati_send["nome"]; for(i=1;i<=22;i++){ _root["g"+i].text = dati_send["g"+i]; } _root.esito.text = dati_send["esito"]; _root.Totale.text = dati_send["Totale"]; } else { _root.esito.text = "Errore"; } };
nome campo ---> Tipo dati
nome --> testo
g1 --> testo
g2 --> testo
g3 --> testo
g4 --> testo
...
..
g21 --> testo.
la pagina asp e' la seguente:
penso che come informazioni di base possano andare........codice:<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = 0 nome=Request.Form("nome") Dim Conn Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("db2000.mdb") SQL="SELECT * FROM formazioni WHERE nome='"&nome&"'" Set rs = Server.CreateObject("ADODB.Recordset") Set rs=Conn.Execute(SQL) 'function start x = 0 while not rs.eof x = x + 1 Response.Write("g1=" & rs("g1")& "&g2=" & rs("g2")& "&g3=" & rs("g3")& "&g4=" & rs("g4")& "&g5=" & rs("g5")& "&g6=" & rs("g6")& "&g7=" & rs("g7")& "&g8=" & rs("g8")& "&g9=" & rs("g9")& "&g10=" & rs("g10")& "&g11=" & rs("g11")& "&g12=" & rs("g12")& "&g13=" & rs("g13")& "&g14=" & rs("g14")& "&g15=" & rs("g15")& "&g16=" & rs("g16")& "&g17=" & rs("g17")& "&g18=" & rs("g18")& "&g19=" & rs("g19")& "&g20=" & rs("g20")& "&g21=" & rs("g21") ) rs.MoveNext Response.Write("&") wend get_number_of_recordset = x Response.write("Totale="& get_number_of_recordset & "&") Response.Write("esito=OK") Response.Write("&nome="&nome) 'end function rs.Close Set rec=Nothing %>
ciao..
![]()

Rispondi quotando