All'interno di un ciclo do (per esempio di 3 giri)
genero un numero XXX
genero i=i+1
genero un file che chiamo Data_FileXXX.txt che contiene i dati di un grafico (ex. 22,5,4,3,2,1) (ovviamente ad ogni giro i dati cambiano)
e modifico un file Id.txt nel quale metto il nome del file Data_FileXXX.txt
poi ho un swf (Area_Data_Singola.swf) che prende i dati del file il cui nome è in Id.txt e li riporta su un grafico
<object classid="clsid27CDB6E-AE6D-11CF-96B8-444553540000"
name="Oggetto<%=i%>" id="Oggetto<%=i%>"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"
border="0" width="900" height="600">
<param name="movie" value="Area_Data_Singola.swf">
<param name="quality" value="High">
<embed src="Area_Data_Singola.swf" pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash" name="Oggetto<%=i%>" width="900" height="600" quality="High">
</object>
Quando provo ad eseguire la pagina mi carica i grafici TUTTI con i dati dell'ultimo giro (per esempio il terzo).
Il fatto è che il file swf funziona perchè se lo faccio girare da solo (e non in un ciclo) funziona bene.
Qualcuno ha qualche suggerimento da darmi?
Io credo che ci sia qualcosa che non va a livello di nome dell'oggetto che sovrascrive gli altri prima ma non ne sono troppo sicuro!
grazie mille x l'aiuto
Ciao
---------------------
codice Asp
---------------------
<%Set rsFeromone = CreateObject("ADODB.RecordSet")
cerca_Feromone ="SELECT DISTINCT Rilievo_Dettaglio.Feromone "&_
"FROM Rilievo_Dettaglio "&_
"WHERE Rilievo_Dettaglio.Id_Rilievo = " & Id_Rilievo & " "&_
"ORDER BY Rilievo_Dettaglio.Feromone ;"
rsFeromone.Open cerca_Feromone, ConnMIDA
i = 0
do until rsFeromone.eof=true
i = i + 1
Sigla_Feromone = rsFeromone.fields("Feromone")
Set rsNomeFeromone = CreateObject("ADODB.RecordSet")
cerca_NomeFeromone ="SELECT DISTINCT Famiglia "&_
"FROM Attrattivi "&_
"WHERE Sigla = '"&Sigla_Feromone&"' ;"
rsNomeFeromone.Open cerca_NomeFeromone, ConnMIDA
NomeFeromone=rsNomeFeromone.fields("Famiglia")
response.write(NomeFeromone&"
")
Titolo_Grafico="Totale%20Catture%20Feromone%20"&No meFeromone
AsseX = "Trappole dell'area"
AsseY = "Totale Catture "
' tutte le Trappole Di quel Rilievo con quel Feromone
Set rsTrappole = CreateObject("ADODB.RecordSet")
cerca_Trappole ="SELECT Rilievo_Dettaglio.Num_Catture, Rilievo_Dettaglio.Num_trappola "&_
"FROM (Aree INNER JOIN Rilievo ON Aree.Id_Area = Rilievo.Id_Area) INNER JOIN Rilievo_Dettaglio ON Rilievo.Id_Rilievo = Rilievo_Dettaglio.Id_Rilievo "&_
"WHERE (((Rilievo.Id_Rilievo)="&Id_Rilievo&") AND ((Rilievo_Dettaglio.Feromone)='"&Sigla_Feromone&"' )) "&_
"ORDER BY Rilievo_Dettaglio.Num_trappola ;"
rsTrappole.Open cerca_Trappole, ConnMIDA
TotaleCattureFeromone = 0
NumValX=0
MaxVal=0
do until rsTrappole.eof=true
NumValX = NumValX + 1
if MaxVal<rsTrappole.fields("Num_Catture") then
MaxVal=rsTrappole.fields("Num_Catture")
end if
ValoriX = ValoriX & rsTrappole.fields("Num_trappola") & ","
Catture = Catture & rsTrappole.fields("Num_Catture") & ","
TotaleCattureFeromone = TotaleCattureFeromone + rsTrappole.fields("Num_Catture")
rsTrappole.movenext
loop
ValoriX = (Left(ValoriX, (Len(ValoriX)-1)))
Catture = (Left(Catture, (Len(Catture)-1)))
'Inizio Grafico
LarghezzaGrafico = 40 * NumValX
AltezzaApplet = 200 + (MaxVal * 60)
LarghezzaApplet = LarghezzaGrafico + 250
NumeroDivisioni = MaxVal
If MaxVal > 10 Then
NumeroDivisioni=10
AltezzaApplet=600
End If
MaxVal = MaxVal+(MaxVal/100)*20
MaxValY = (Round(MaxVal,0))
if MaxValY <= MaxVal then
MaxValY = MaxValY +1
end if
if MaxValY < 1 then
MaxValY = 1
end if
%>
<%
Dim objFSO, objTextFile
Randomize()
'Creazione dell'istanza FileSystem
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO_ID = CreateObject("Scripting.FileSystemObject")
'Codice per il Nome del File
'ID casuale
ID = int(Rnd()*1000)
If ID = 0 then
ID = 1
end if
if ID < 10 then
ID = "00" & ID
else
if ID < 100 then
ID = "0" & ID
else
ID = ID
end if
end if
Nome_File = "Data_File"&ID&".txt"
'Apertura del file di testo id per scriverci l'id del nome file
Set objTextFile = objFSO_ID.CreateTextFile(Server.MapPath("Id.txt"))
'Scrivo l'id del nome_file nel file
objTextFile.WriteLine "&id=Data_File" & ID & "&"
'Chiudo il file e i vari oggetti/istanze di id
objTextFile.Close
Set objTextFile = Nothing : Set objFSO_ID = Nothing
'Apertura del file di testo
Set objTextFile = objFSO.CreateTextFile(Server.MapPath(Nome_File))
'Scrivo la prima riga di codice
objTextFile.WriteLine "&nr="&Catture&"&"
objTextFile.WriteLine "&maxy="&MaxValY&"&"
objTextFile.WriteLine "&title_chart="&Titolo_Grafico&"&"
objTextFile.WriteLine "&trap="&ValoriX&"&"
'Chiudo il file e i vari oggetti/istanze
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
<object classid="clsid
<param name="movie" value="Area_Data_Singola.swf">
<param name="quality" value="High">
<embed src="Area_Data_Singola.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="Oggetto<%=i%>" width="900" height="600" quality="High">
</object>
<font face="Arial" size="2">descrizione asse x--><%=AsseX%>
<font face="Arial" size="2">descrizione asse Y--><%=AsseY%>
<font face="Arial" size="2">Descrizione serie--><%response.write "Catture della Trappola"%>
<%rsTrappole.close : Set rsTrappole = nothing%>
<% ValoriX = ""
Catture = ""
rsFeromone.movenext
loop
rsFeromone.close : Set rsFeromone = nothing
Rispondi quotando
