Perdo il valore della variabile

**zzzzzzzzzz** · 20-11-2006, 16:33

Ciao ragazzi... ho questo problemuccio

Ho 5 menu a tendina : dal primo scelgo i partners...dal secondo scelgo le regioni, nel terzo i prodotti, nel quarto "Da data" e nel quinto "A data",

....allora prima seleziono il partner,poi seleziono il secondo menu e disabilito (disabled="true") il primo... e fin qui tutto a posto, perkè le 2 variabili se le porta.... Ora quando vado a cliccare sul terzo menu per scegliere i prodotti (anche esso ha onchange) disabilito anche il precedente menu delle regioni, ma perdo le 2 variabili del partner e della regione...e non capisco da ke kosa possa dipendere :master:

chi sa darmi un aiutino ?
grazie 1000 Max

**[trodat]** · 20-11-2006, 16:34

Vediamo il codice.

**zzzzzzzzzz** · 20-11-2006, 16:39

grazie 1000 sono alle prime armi

codice:

<%@ Language=VBScript %>
<% Option Explicit %>
<%
' -----------------------------------------------------------------
' Controllo se trattasi di utente autenticato
if Session("autenticato") <>"OK" then
  	Response.Redirect("index.asp")
end if
' -----------------------------------------------------------------

' Creo variabili per la Connessione ed il Recordset
	Dim cn
	Dim rs

' Creo un istanza per la Connessione ed una per il Recordset
	Set cn= Server.CreateObject("ADODB.Connection")
	Set rs= Server.CreateObject("ADODB.Recordset")


' Apro la connessione al Database
	cn.Open "driver={Microsoft access Driver (*.mdb)};dbq=" & Server.mappath("\SITO-UFFICIALE\Appoggio.mdb")
' -----------------------------------------------------------------
' Creo la query SQL
	Dim Query_Partner
	Query_Partner ="Select distinct partner from [TDB-2005] order by partner"

' Creo variabile (contenente la stringa della select sel_dati_partner) che utilizzo nella Query_Regione 	
	Dim var_dato_partner
  	var_dato_partner=request.querystring("sel_dati_partner")
' Creo variabile (contenente la stringa della select sel_dati_data) che utilizzo nella Query_Data 	
	Dim var_dato_da_data
  	var_dato_da_data=request.querystring("sel_dati_da_data")
	Dim var_dato_a_data
  	var_dato_a_data=request.querystring("sel_dati_a_data")
' Creo le query SQL
	Dim Query_Regione
	Query_Regione = "Select distinct regione from [TDB-2005] where partner='"&var_dato_partner&"' order by regione Asc"
	Dim var_dato_regione
	var_dato_regione=request.querystring("sel_dati_regione")	
	Dim Query_Prodotti
	Query_Prodotti = "Select distinct prodotti from [TDB-2005] order by prodotti Asc"
	Dim var_dato_prodotti
	var_dato_prodotti=request.querystring("sel_dati_prodotti")
' Creo Query per accesso alla data : "Da Data"
	dim Query_Da_Data
	Query_Da_Data ="Select distinct Data from [TDB-2005] order by Data"
' Creo Query per accesso alla data : "A Data"
	dim Query_A_Data
	Query_A_Data ="Select distinct Data from [TDB-2005] where Data >= '"&var_dato_da_data&"' order by 1"
' -----------------------------------------------------------------
%>

<HTML>
  <HEAD>
    <TITLE> AREA RISERVATA </TITLE>
  </HEAD>
<BODY BGCOLOR=#BBBBFF>
  <DIV ALIGN=CENTER><H1>PAGINA RISERVATA</H1>
    

    <DIV ALIGN=CENTER><H2>UTENTE AUTENTICATO</H2>
    

  </DIV>
<table align= left border=1>
  <TR>
    <TD>PARTNER
</TD><TD>REGIONE
</TD><TD>PRODOTTO
</TD><TD>DA DATA
</TD><TD>A DATA
</TD></TR>
<TR>
    <TD>
	

	<FORM <% if var_dato_partner <>"" and var_dato_regione <>"" and var_dato_prodotti <>"" and var_dato_da_data <>"" and var_dato_a_data <>"" then %> name="form_dati_tdb" action="prova_dati.asp" method="post"<% end if%>>

	<select name="sel_dati_partner" <% IF var_dato_regione <>"" and var_dato_prodotti<>"" then %> DISABLED="TRUE" <% end if%> onchange="submit(this);">
<%

' Apro il Recordset
	rs.Open Query_Partner, cn
' Verifico che la tabella contenga dati
' Se non contiene dati invio un messaggio di avviso
	if rs.EOF = True Then
%>


Dati non trovati</p> 
<%
' Se invece contiene dati visualizzo i dati in funzione
' della query SQL specificata
	else
%>
    	  <option <% if var_dato_partner="" then %> selected="selected" <%end if%>>Seleziona il Partner</option>
<%	while rs.EOF = False
%>
	  <option name="scelta_partner" value="<%=rs("Partner")%>"<% if var_dato_partner=rs("Partner") then %> selected="selected" <% end if %>><%=rs("Partner")%></option> 
<% rs.MoveNext
	Wend
	End if

' Chiudo il Recordset
	rs.Close
%>
    </TD>
    <TD>
	 <select name="sel_dati_regione"  <% IF var_dato_prodotti <>"" then %> DISABLED="TRUE" <% end if%> onchange="submit(this);">
<%

' Apro il Recordset
	rs.Open Query_Regione, cn
' Verifico che la tabella contenga dati
' Se non contiene dati invio un messaggio di avviso
	if rs.EOF = True Then
%>


Dati non trovati</p> 
<%
' Se invece contiene dati visualizzo i dati in funzione
' della query SQL specificata
	else
%>
    	  <option <% if var_dato_regione="" then %> selected="selected" <%end if%>>Seleziona la Regione</option>
<%
	while rs.EOF = False
%>	
	<option value="<%=rs("regione")%>" <% if var_dato_regione=rs("regione") then %> selected="selected" <%end if%>><%=rs("regione")%></option>

<%
  rs.MoveNext
	Wend
	End if
' Chiudo il Recordset
	rs.Close
%>
	</TD>
	<TD>

	<select  name="sel_dati_prodotti" onchange="submit(this);">

	    <option <% if var_dato_prodotti ="" then %> selected="selected"<% end if%> value="">Scegli il Prodotto</option>
<%
' Apro il Recordset
	rs.Open Query_Prodotti, cn
' Verifico che la tabella contenga dati
' Se non contiene dati invio un messaggio di avviso
	if rs.EOF = True Then
%>


Dati non trovati</p> 
<%
' Se invece contiene dati visualizzo i dati in funzione
' della query SQL specificata
	else
	while rs.EOF = False
%>
          <option value="<%=rs("Prodotti")%>" <% if var_dato_prodotti=rs("prodotti") then %>  selected="selected" <%end if%>><%=rs("Prodotti")%></option>
<% rs.MoveNext
	Wend
	End if
' Chiudo il Recordset
	rs.Close
%>
	</td>
   <TD>
	 <select name="sel_dati_da_data" onchange="submit(this);">
<%
' Apro il Recordset
	rs.Open Query_Da_data, cn
' Verifico che la tabella contenga dati
' Se non contiene dati invio un messaggio di avviso
	if rs.EOF = True Then
%>


Dati non trovati</p> 
<%
' Se invece contiene dati visualizzo i dati in funzione
' della query SQL specificata
	else
%>
    	  <option <% if var_dato_da_data="" then %> selected="selected" <%end if%>>Seleziona Da Data</option>
<%	while rs.EOF = False
%>
	  <option name="scelta_da_data" value="<%=rs("Data")%>" <% if var_dato_da_data=rs("Data") then %> selected="selected" <%end if%>><%=rs("Data")%></option>

<% rs.MoveNext
	Wend
	End if

' Chiudo il Recordset
	rs.Close
%>
    </TD>
   <TD>
	 <select name="sel_dati_a_data" onchange="submit(this);">
<%
' Apro il Recordset
	rs.Open Query_a_data, cn
' Verifico che la tabella contenga dati
' Se non contiene dati invio un messaggio di avviso
	if rs.EOF = True Then
%>


Dati non trovati</p> 
<%
' Se invece contiene dati visualizzo i dati in funzione
' della query SQL specificata
	else
%>
    	  <option <% if var_dato_a_data="" then %> selected="selected" <%end if%>>Seleziona A Data</option>
<%	while rs.EOF = False
%>
	  <option name="scelta_a_data" value="<%=rs("Data")%>" <% if var_dato_da_data=rs("Data") then %> selected="selected" <%end if%>><%=rs("Data")%></option>

<% rs.MoveNext
	Wend
	End if

' Chiudo il Recordset
	rs.Close
%>
    </TD>

	<TD>
		<input type="submit" name="click" value="CLICK">
	</form>
	<TD/>
<%
' Chiudo il Recordset
'	rs.Close
	cn.close
	Set cn= nothing
%>
</TR>
</TABLE>
    </TR>
</TABLE>
</BODY>
</HTML>

**[trodat]** · 20-11-2006, 16:42

Mi gira la testa... così è complicato per me... se puoi fammi avere tutto via email (db+script zippati insieme)

**zzzzzzzzzz** · 20-11-2006, 16:46

ok....ma la tua mail?

**[trodat]** · 20-11-2006, 16:47

Originariamente inviato da zzzzzzzzzz
ok....ma la tua mail?

mandami un privato e te la passo.

**zzzzzzzzzz** · 20-11-2006, 16:54

scusami ma non riesco a capire come ti invio gli allegati

**zzzzzzzzzz** · 20-11-2006, 17:10

C'E' QUALKUNO KE SA DIRMI QUALKOSA A PROPOSITO? :quote:
GRASSSSIEEE

**[trodat]** · 20-11-2006, 19:59

Originariamente inviato da zzzzzzzzzz
C'E' QUALKUNO KE SA DIRMI QUALKOSA A PROPOSITO? :quote:
GRASSSSIEEE

Ma li leggi i privati?
Troverai la mia email e potrai inviarmi il tutto.

Discussione: Perdo il valore della variabile

Strumenti discussione

Ricerca discussione

Visualizza

Perdo il valore della variabile

Permessi di invio