select indipendente

**gsflash** · 06-02-2006, 17:54

ciao a tutti, da 2 giorni che faccio questo e mi sta scoppiando il cervello, potreste farvi un'occhiata su questi codici?

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim tecnico__MMColParam
tecnico__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  tecnico__MMColParam = Session("MM_Username")
End If
%>
<%
'variabili di sessione per il refresh

session("tipologia") = Request.Form("tipologia")
session("selmod01") = Request.Form("selmod01")
session("selvoce") = Request.Form("selvoce")
session("tecnici_soft") = Request.Form("tecnici_soft")
session("piano") = Request.Form("piano")
session("stanza") = Request.Form("stanza")
session("note") = Request.Form("note")
session("data") = Request.Form("data")
if session("data") = "" then
	session("data") = date()
end if
%>
<%
function selezionaOption(valueInput,finestra)
  If cstr(valueInput) = cstr(session(finestra)) then
    selezionaOption = "selected"
  else
	selezionaOption = ""
  end if
end function
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="A"
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim tecnico
Dim tecnico_numRows

Set tecnico = Server.CreateObject("ADODB.Recordset")
tecnico.ActiveConnection = MM_siman_STRING
tecnico.Source = "SELECT *  FROM SIMAN.TECNICI_SOFTLAB  WHERE MATRICOLA = '" + Replace(tecnico__MMColParam, "'", "''") + "' AND ATTIVO = 'S'"
tecnico.CursorType = 0
tecnico.CursorLocation = 2
tecnico.LockType = 1
tecnico.Open()

tecnico_numRows = 0
%>
<%
Dim tipologia
Dim tipologia_numRows

Set tipologia = Server.CreateObject("ADODB.Recordset")
tipologia.ActiveConnection = MM_siman_STRING
tipologia.Source = "SELECT * FROM SIMAN.TIPOLOGIA"
tipologia.CursorType = 0
tipologia.CursorLocation = 2
tipologia.LockType = 1
tipologia.Open()

tipologia_numRows = 0
%>
<%
Dim Mod01
Dim Mod01_numRows

Set Mod01 = Server.CreateObject("ADODB.Recordset")
Mod01.ActiveConnection = MM_siman_STRING
if session("tipologia") <> "" then
Mod01.Source = "SELECT DISTINCT MZ.ID_MZ01, MZ.DATA FROM MZ01 MZ, VOCI_MZ01 VOCI WHERE MZ.ID_MZ01 = VOCI.ID_MZ01 AND VOCI.ESITO = 'N' AND ID_TIPOLOGIA = " & session("tipologia") 
Mod01.CursorType = 0
Mod01.CursorLocation = 2
Mod01.LockType = 1
Mod01.Open()
Mod01_numRows = 0
end if
%>
<%
Dim Voci
Dim Voci_numRows

Set Voci = Server.CreateObject("ADODB.Recordset")
Voci.ActiveConnection = MM_siman_STRING
if session("selmod01") <> "" then
Voci.Source = "SELECT VT.DESCRIZIONE, VT.ID_VOCE_TIPOLOGIA FROM VOCI_TIPOLOGIA VT, VOCI_MZ01 V01 WHERE V01.ID_MZ01 = " & session("selmod01") & " AND V01.ESITO = 'N' AND V01.ID_VOCE_MZ01 = VT.ID_VOCE_TIPOLOGIA"
Voci.CursorType = 0
Voci.CursorLocation = 2
Voci.LockType = 1
'Response.write(Voci.Source)
'response.End()
Voci.Open()
Voci_numRows = 0

end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>SIMAN - Modulo MZ02</title>
<style type="text/css">
<!--
body {
	background-color: #003366;
}
body,td,th {
	color: #FFFF00;
}
.style1 {
	font-size: 14px;
	font-weight: bold;
}
-->
</style>
<script type="text/JavaScript">
<!--
function refresh(){
	form1.action="insmod02.asp";
	form1.submit();
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>

<body onload="MM_preloadImages('indietro_r2_c1_f2.jpg')">
<table align="center" bgcolor="#003366" border="0" cellpadding="0" cellspacing="0" width="600">
  
  <tr>
    <td>[img]immagini/spacer.gif[/img]</td>
    <td>[img]immagini/spacer.gif[/img]</td>
    <td>[img]immagini/spacer.gif[/img]</td>
    <td>[img]immagini/spacer.gif[/img]</td>
    <td>[img]immagini/spacer.gif[/img]</td>
    <td>[img]immagini/spacer.gif[/img]</td>
  </tr>
  <tr>
    <td colspan="5">[img]immagini/mod02_r1_c1.jpg[/img]</td>
    <td>[img]immagini/spacer.gif[/img]</td>
  </tr>
  <tr>
    <td colspan="5" bgcolor="#003366">[img]immagini/spacer.gif[/img]</td>
    <td>[img]immagini/spacer.gif[/img]</td>
  </tr>
  <tr>
    <td colspan="5" valign="top" bgcolor="#003366"><form id="form1" name="form1" method="post" action="">
      <table width="90%" border="1" align="center">
        <tr>
          <td width="28%" class="style1"></td>
          <td></td>
          <td><div align="center"><span class="style1">Utente:
          </span>  
            <input name="utente" type="text" id="utente" maxlength="60" />
          </div></td>
        </tr>
        <tr>
          <td class="style1"><span class="style1">Tipologia:</span></td>
          <td width="53%"><select name="tipologia" id="tipologia" onchange="refresh()">
            
            
		  onchange="document.form1.tblapp.style.display = (document.form1.tblapp.style.display == 'none') ? 'yes' : 'none';>
           <option value="">Seleziona tipologia</option>
		    <%
While (NOT tipologia.EOF)
%>
            <option value="<%=(tipologia.Fields.Item("ID_TIPOLOGIA").Value)%>" <%=selezionaOption(tipologia.Fields.Item("ID_TIPOLOGIA").Value,"tipologia")%>><%=(tipologia.Fields.Item("DESCRIZIONE").Value)%></option>
            <%
  tipologia.MoveNext()
Wend
If (tipologia.CursorType > 0) Then
  tipologia.MoveFirst
Else
  tipologia.Requery
End If
%>
          </select>          </td>
          <td width="19%"></td>
        </tr>
        <tr>
          <td class="style1">Mod01:
	<%=SESSION("TIPOLOGIA")%>
	<%=SESSION("selmod01")%>
	<%=SESSION("selvoce")%>	</td>
          <td><select name="selmod01" id="selmod01" onchange="refresh()" style="width:200px">
           
			<%
if session("tipologia") <> "" then %>
<% if Mod01.Eof then%>
<option value="-1">Nessun modulo in questa tipologia</option>
<%else%>
 <option value="">Seleziona il modulo</option>
<%
While (NOT Mod01.EOF)
%>

            <option value="<%=(Mod01.Fields.Item("ID_MZ01").Value)%>" <%=selezionaOption(Mod01.Fields.Item("ID_MZ01").Value, "selmod01")%>>Modello MZ01 del <%=(Mod01.Fields.Item("DATA").Value)%></option>
            <%
  Mod01.MoveNext()
Wend
If (Mod01.CursorType > 0) Then
  Mod01.MoveFirst
Else
  Mod01.Requery
End If
end if
%>
<% end if %>
          </select></td>
          <td></td>
        </tr>
        <tr>
          <td class="style1">Voce:</td>
          <td colspan="2"><select name="selvoce" id="selvoce" style="width:450px">
          <%
if session("selmod01") <> "" then
%>
<% if Voci.Eof and session("selmod01")="-1"then%>
<option value="-1">Nessun voce in questo modulo</option>
<%else%>
<% if session("selmod01")="" then %>
 <option value="">Seleziona la voce</option>
 <%
While (NOT Voci.EOF)%>
            <option value="<%=(Voci.Fields.Item("ID_VOCE_TIPOLOGIA").Value)%>">
<%IF LEN(Voci.Fields.Item("DESCRIZIONE").Value) > 50 then%>
	<%=left(Voci.Fields("DESCRIZIONE"),50) & "..."%>
<%else%>
	<%=Voci.Fields.Item("DESCRIZIONE").Value%>
<%end if%>
</option>
<%
  Voci.MoveNext()
Wend
If (Voci.CursorType > 0) Then
  Voci.MoveFirst
Else
  Voci.Requery
End If
end if
%>
<% end if %>
<% end if %>
          </select></td>
          </tr>
      </table>
     <% if cstr(request.Form("tipologia")) = "1" then %>
	  <table width="90%" border="1" align="center" id="tblapp" style="display:yes">
        <tr>
          <td width="22%" class="style1">Cod.Softlab:</td>
          <td width="30%"><input name="textfield" type="text" size="15" maxlength="8" /></td>
          <td width="24%" class="style1">Marca:</td>
          <td width="24%"><input type="text" name="textfield3" /></td>
        </tr>
        <tr>
          <td class="style1">Serial Number: </td>
          <td><input name="textfield2" type="text" size="15" maxlength="8" /></td>
          <td colspan="2"></td>
        </tr>
      </table>
	  <% end if %>
	  

	  
        </form>
    </td>
    <td>
	[img]immagini/spacer.gif[/img]</td>
  </tr>
</table>
<span style="margin:0px">[img]indietro_r2_c1.jpg[/img]</span>


</p>
</body>
</html>
<%
session("tipologia") = ""
session("selmod01") = ""
session("selvoce") = ""
%>
<%
tecnico.Close()
Set tecnico = Nothing
%>
<%
tipologia.Close()
set tipologia = Nothing
%>
<%
if session("tipologia") <> "" then
Mod01.Close()
Set Mod01 = Nothing
end if
%>
<%
if session("selmod01") <> "" then
Voci.Close()
Set Voci = Nothing
end if
%>

sinceramente i select fanno dei capricci perchè spesso selmod01 e selvoce fanno "bianco" e poi ho modificato e quando seleziono selmod01 e selvoce funziona e quando cambio tipologia e selvoce rimane fermo..... tutto questo mi fa scoppiare la testa, help help help proprio sto facendo il progetto urgente perchè in questa settimana deve venire l'ispezione in questa società che se non trovasse funzionante il sistema manutenzione, sono rovinato...
Grazie di cuore.
Gabriele

**santino83** · 06-02-2006, 18:16

senza ripostare tutto il codice che mi ha fatto venire mal di testa anche a me, spiega in italiano il problema...che vuol dire che selmod e quell'altro "fanno bianco"?

**gsflash** · 06-02-2006, 18:23

allora ci sono 3 select option, prima di tutto seleziona la tipologia e il secondo (selmod1) "Nessun tipologia selezionato" perchè bisogna prima selezionare la tipologia, poi selezioanto la tipologia e con refresh appare il secondo select (selmod01) e se non ce nessun modulo in quella tipologia selezionato, appare "nessun modulo in questa tipologia" ed anche il terzo select (selvoce) apparisca "nessun voce in questo modulo), e se ci sono i moduli in questa tipologia, in selmod01 apparisca i 2 (Seleciona Modulo, poi lista moduli) e il selvoce apparisca "Nessun modulo selezionato" poi appena selezionato il modulo e il selvoce apparisce i voci. MA quando io cambio la tipologia e il selmod01 e selvoce tornano come prima da zero....
Mi sono spiegato bene? spero che non vi faccio aumentare il mal di testa :d

Gabriele

**santino83** · 06-02-2006, 18:35

apparte gli errori di italiano nei tempi dei verbi...il mal di testa persiste....

allora, vediamo:

io ho una pagina con tre select...stato inziale? la prima vuota e le altre due no?

seleziono la prima, al refresh (immagino submit del form) si valorizza la seconda select e fai il controllo sui moduli...altro refresh e si valorizza anche la terza e fai controlli sui moduli

per aver memoria usi le session, no?

cmq, apparte il funzionameno spicciolo, cos'è che non funziona? e poi:

se il problema è che non ti stampa correttamente i dati, fati stampare a video le query che usi per estrapolarli in maniera da contrrollare come si valorizzano le session

per il momento altro da dire non ho

**gsflash** · 06-02-2006, 18:40

so che non sono all'altezza dell'uso grammaticale ed anche molti di questi forum sanno già del mio problema della sordità che non ho potuto arrivare ai vostri livelli, comunque l'importante è che ci provo sempre a cercare di farmi capire, allora prima di tutto, il primo select funziona perfettamente, e altre non fanno visualizzare e quando seleziono la tipologia e altre 2 si visualizzano, e alla fine quando la voce visualizza e poi selezionando l'altra tipologia, il secondo select torna al suo posto e invece il terzo select no......
Sigh sigh sigh (questo sono le parole internazionali, senza studiare l'italiano eh eh :d

)

**santino83** · 06-02-2006, 18:50

cambiamo idea: invece delle session usa solo variabile e request.form, tanto se ogni volta le session le svuoti

codice:

session("tipologia") = ""
session("selmod01") = ""
session("selvoce") = ""

non ti servono a nulla

ma la terza select non funziona vuol dire che questo:

codice:

          <%
if session("selmod01") <> "" then
%>
<% if Voci.Eof and session("selmod01")="-1"then%>
<option value="-1">Nessun voce in questo modulo</option>
<%else%>
<% if session("selmod01")="" then %>
 <option value="">Seleziona la voce</option>
 <%
While (NOT Voci.EOF)%>
            <option value="<%=(Voci.Fields.Item("ID_VOCE_TIPOLOGIA").Value)%>">
<%IF LEN(Voci.Fields.Item("DESCRIZIONE").Value) > 50 then%>
	<%=left(Voci.Fields("DESCRIZIONE"),50) & "..."%>
<%else%>
	<%=Voci.Fields.Item("DESCRIZIONE").Value%>
<%end if%>
</option>

restituisce il recordset lo stesso? non restituisce nulla?

**gsflash** · 06-02-2006, 19:00

ho lasciato perdere l'idea del valore "-1" e ho messo questo

codice:

          <td colspan="2"><select name="selvoce" id="selvoce" style="width:450px">
         
		  <% if session("selmod01") = "" and session ("tipologia") = "" then %>
		<option value="">Nessun modulo selezionato</option>
			<%else%>
		  
		  <%
if session("selmod01") <> "" then
%>
<% if Voci.EOF then%>
<option value="">Nessun voce in questo modulo</option>
<%else%>
 <option value="">Seleziona la voce</option>
 <%
While (NOT Voci.EOF)%>
            <option value="<%=(Voci.Fields.Item("ID_VOCE_TIPOLOGIA").Value)%>">
<%IF LEN(Voci.Fields.Item("DESCRIZIONE").Value) > 50 then%>
	<%=left(Voci.Fields("DESCRIZIONE"),50) & "..."%>
<%else%>
	<%=Voci.Fields.Item("DESCRIZIONE").Value%>
<%end if%>
</option>
<%
  Voci.MoveNext()
Wend
If (Voci.CursorType > 0) Then
  Voci.MoveFirst
Else
  Voci.Requery
End If
end if
%>
<% end if %>
<% end if %>
          </select>

All'inizio il primo e secondo sono perfetti, ma il terzo è bianco, solo quando seleziono il secondo se contengono i moduli, la terza restituisce perfettamente, e poi alla fine di solito selezionando l'altra tipologia, il secondo torna da zero e il terzo no.

**santino83** · 06-02-2006, 19:09

prova

codice:

		  <%
if len(trim(session("selmod01")))>0 then
%>
<% if Voci.EOF then%>
<option value="">Nessun voce in questo modulo</option>
<%else%>
 <option value="">Seleziona la voce</option>
 <%
While (NOT Voci.EOF)%>
            <option value="<%=(Voci.Fields.Item("ID_VOCE_TIPOLOGIA").Value)%>">
<%IF LEN(Voci.Fields.Item("DESCRIZIONE").Value) > 50 then%>
	<%=left(Voci.Fields("DESCRIZIONE"),50) & "..."%>
<%else%>
	<%=Voci.Fields.Item("DESCRIZIONE").Value%>
<%end if%>
</option>
<%
  Voci.MoveNext()
Wend
If (Voci.CursorType > 0) Then
  Voci.MoveFirst
Else
  Voci.Requery
End If
end if
%>

<% end if %>

<%else%>
<option value="">Seleziona qualcosa da select 2</option>
 
<% end if %>
</select>

**gsflash** · 06-02-2006, 19:14

mi restituisce l'errore

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03EA)
Errore di sintassi
/siman/insmod02.asp, line 289
else

**gsflash** · 06-02-2006, 19:17

ho appena corretto, era

<%
if len(trim(session("selmod01")))>0 then
%>
<% if Voci.EOF then%>
<option value="">Nessun voce in questo modulo</option>
<%else%>
<option value="">Seleziona la voce</option>
<%
While (NOT Voci.EOF)%>
<option value="<%=(Voci.Fields.Item("ID_VOCE_TIPOLOGIA").V alue)%>">
<%IF LEN(Voci.Fields.Item("DESCRIZIONE").Value) > 50 then%>
<%=left(Voci.Fields("DESCRIZIONE"),50) & "..."%>
<%else%>
<%=Voci.Fields.Item("DESCRIZIONE").Value%>
<%end if%>
</option>
<%
Voci.MoveNext()
Wend
If (Voci.CursorType > 0) Then
Voci.MoveFirst
Else
Voci.Requery
End If
end if
%>

[b]<% ' end if %>[b]

<%else%>
<option value="">Seleziona qualcosa da select 2</option>

<% end if %>
[/code]

e il problema rimane sempre lo stesso quando ho appena scelto il terzo select e poi selezioanre il primo select per cambiare tipologia e il terzo non cambia.....

Discussione: select indipendente

Strumenti discussione

Ricerca discussione

Visualizza

select indipendente

Permessi di invio