Select dinamiche e loro funzionamento

[Vitacillina]

Grazie, ecco:

 
<% 

Session.LCID = 1040 

Response.Expires = -1500 
Response.ExpiresAbsolute = now()-1500
Response.Addheader "pragma","no-cache"
Response.Addheader "cache-control","private"
Response.Cachecontrol="no-cache"

NOMEFORNITORE = request("NOMEFORNITORE")

%>

<%
strSql = "SELECT * FROM SCHEDA_IMPIANTO ORDER BY NOMEFORNITORE ASC"

Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open strSql, objCONN, 3, 3
%>
        <select size="1" name="NOMEFORNITORE" onChange="window.document.location='forminsdescrmercefornitore.asp?NOMEFORNITORE='+this.options[this.selectedIndex].value+'';">
        
<% NOMEFORNITORESEL = request("NOMEFORNITORE") %>    
<option value="<%=NOMEFORNITORESEL%>"><%=NOMEFORNITORESEL%></option>

<%
If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = objRs("id") %>-<% = Trim(objRs("NOMEFORNITORE")) %>"><%  = Trim(objRs("NOMEFORNITORE")) %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
%>
        </select>

<%

if len(NOMEFORNITORE) > 0 then

NOMEFORNITORE  = Split(NOMEFORNITORE , "-") 
NOMEFORNITORE1 = NOMEFORNITORE(0)
NOMEFORNITORE2 = NOMEFORNITORE(1) 

strSql = "SELECT * FROM SCHEDA_IMPIANTO WHERE NOMEFORNITORE = '"&NOMEFORNITORE2&"' ORDER BY NOMEFORNITORE ASC"
objRs.Open strSql, OBJCONN, 3, 3
%>
        <select name="CodiceProdottoFornitore" onChange="window.document.location='forminsdescrmercefornitore.asp?CODICEPRODOTTOFORNITORE='+this.options[this.selectedIndex].value+'&NOMEFORNITORE=<%=NOMEFORNITORE2%>';">

<% CodiceProdottoFornitoresel = request("CodiceProdottoFornitore") %>    
<option value="<%=CodiceProdottoFornitoresel%>"><%=CodiceProdottoFornitoresel%></option>

<%
If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = objRs("CodiceProdottoFornitore") %>"><%  = objRs("CodiceProdottoFornitore") %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
End If
%>
        </select>

<%

CODICEPRODOTTOFORNITORE = request("CODICEPRODOTTOFORNITORE")

strSql = "SELECT * FROM SCHEDA_IMPIANTO WHERE CODICEPRODOTTOFORNITORE = '"&CODICEPRODOTTOFORNITORE&"' ORDER BY CODICEPRODOTTOFORNITORE ASC"
objRs.Open strSql, OBJCONN, 3, 3
%>
        <select name="DESCRIZIONEPRODOTTO" onChange="window.document.location='forminsdescrmercefornitore.asp?DESCRIZIONEPRODOTTO='+this.options[this.selectedIndex].value+'&CODICEPRODOTTOFORNITORE=<%=CODICEPRODOTTOFORNITORE%>&NOMEFORNITORE=<%=NOMEFORNITORE%>';">

<% DESCRIZIONEPRODOTTOSEL = request("DESCRIZIONEPRODOTTO") %>    
<option value="<%=DESCRIZIONEPRODOTTOSEL%>"><%=DESCRIZIONEPRODOTTOSEL%></option>

<%
If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = objRs("DESCRIZIONEPRODOTTO") %>"><%  = objRs("DESCRIZIONEPRODOTTO") %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
%>
        </select>
<%
DESCRIZIONEPRODOTTO = request("DESCRIZIONEPRODOTTO")

strSql = "SELECT * FROM SCHEDA_IMPIANTO WHERE DESCRIZIONEPRODOTTO = '"&DESCRIZIONEPRODOTTO&"' ORDER BY DESCRIZIONEPRODOTTO ASC"
objRs.Open strSql, OBJCONN, 3, 3
%>
        <select name="UM" onChange="window.document.location='forminsdescrmercefornitore.asp?UM='+this.options[this.selectedIndex].value+'&DESCRIZIONEPRODOTTO=<%=DESCRIZIONEPRODOTTO%>&CODICEPRODOTTOFORNITORE=<%=CODICEPRODOTTOFORNITORE%>&NOMEFORNITORE=<%=NOMEFORNITORE%>';">

<% UMSEL = request("UM") %>    
<option value="<%=UMSEL%>"><%=UMSEL%></option>

<%
If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = objRs("UM") %>"><%  = objRs("UM") %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
%>
        </select>
<%
UM = request("UM")

strSql = "SELECT * FROM SCHEDA_IMPIANTO WHERE UM = '"&UM&"' AND CODICEPRODOTTOFORNITORE = '"&CODICEPRODOTTOFORNITORESEL&"' AND NOMEFORNITORE = '"&NOMEFORNITORE&"' AND DESCRIZIONEPRODOTTO = '"&DESCRIZIONEPRODOTTO&"' ORDER BY UM ASC"
objRs.Open strSql, OBJCONN, 3, 3
%>
        <select name="CostoUnitario">

<option value="0">---</option>

<%
If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = objRs("COSTOUNITARIO") %>"><%  = objRs("COSTOUNITARIO") %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
%>
        </select>

[Roby_72]

E l'errore?
E poi non vedo dove hai chiuso questo:

if len(NOMEFORNITORE) > 0 then

l'end if corrispondente dov'è?
Dovrebbe essere in fondo...

Roby

[Vitacillina]

L'errore è questo:

Tipo di errore:
Oggetto risposta, ASP 0106 (0x80020005)
È stato individuato un tipo di dati privo di handle.
/GESTIN/forminsdescrmercefornitore.asp

La chiusura della condizione if ... è a fine pagina:

<% end if %>

[Roby_72]

Dallo script di prima non sembra che quell'end if sia a fine pagina.
L'errore dice che stai utilizzando una variabile contenente array ma senza indirizzarti ad un elemento specifico dello stesso.

Non chiamare l'array come il nome che recuperi dalla form.
Come ti ho mostrato io prima.

Roby

[Vitacillina]

Grazie Moderatore, era proprio il nome dell'array.