Problema select dinamiche

**nadia79** · 07-10-2005, 17:52

Così mi dà errore in quanto fa il refresh sul submit del form e quindi tenta di passare alla pagina dopo (quella di inserimento dati)

codice:

<select name="categoria" id="categoria" onChange="inserisci.submit();">
<%
Do While not rsCategoria.EOF 
Response.Write("<option value=" & rsCategoria("IDCATEGORIA"))
if categoria <>"" then
   if Cint(categoria )= Cint(rsCategoria("IDCATEGORIA"))then
       Response.Write("selected")
   end if
end if
Response.Write (">" & rsCategoria("CATEGORIA") & "</option>")
rsCategoria.Movenext
Loop
%>
</select>

se metto onChange="window.location.href('add_prodotti.asp') "
semplicemente non fa niente...

**Galex** · 07-10-2005, 20:10

bhe SE fai così se metto onChange="window.location.href('add_prodotti.asp') " è + che normale che nn fa nulla...praticamente ricarichi solo la pagina non passando nessun parametro...o nell'action del form non metti la pagina di inserimento,in modo che lo script che ti ho inserito prima funziona,e poi alla pagina di insrrimento ci andiam in 1 altro modo...oppure prova cos'

onChange="window.location.href('add_prodotti.asp?c ategoria='+form_dati.categoria.value)"

però se nella pagina aìhai altro conviene che la posti tutta così mi rendo conto di cosa vuoi fare

**nadia79** · 11-10-2005, 12:14

Ecco il codice della pagina, che semplicemente non fa niente:

codice:

<%@LANGUAGE="VBSCRIPT"%> 


<%
categoria = Request("categoria")
%>
<html>
<head>
<script  language="JavaScript" type="text/JavaScript">
<!-- Nascosto ai browser più vecchi
	
//Check se il form di invio è correttamente riempito
function checkforinfo () { 

	//Inizializza la variabile che riporta il messaggio d'errore
	var errorMsg = "";

	//Check per il il modello del prodotto
	if (document.inserisci.modello.value == ""){
		errorMsg += "\n\t\tModello del prodotto \t\t - Digita il modello del prodotto!";
	}
	
	//Check per la data d'inizio offerta del prodotto
	if (document.inserisci.prezzo.value == ""){
		errorMsg += "\n\t\tPrezzo del prodotto \t\t- Digita il prezzo del prodotto!";
	}
	
	//Se ci sono problemi nei form, visualizza un messaggio di errore
	if (errorMsg != ""){
		msg = "______________________________________________________________\n\n";
		msg += "Attenzione! L'invio dei dati al Db è stato interrotto in quanto alcuni campi obbligatori non sono stati compilati.\n";
		msg += "Si prega di compilare correttamente tutti i campi obbligatori.\n";
		msg += "______________________________________________________________\n\n";
		msg += "Devi riempire i seguenti campi: \n";
		
		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
return true;
}
// -->
</script>
</head>
<body>
<form action="add_prodotti_1.asp" method="post" name="inserisci" id="inserisci" >         
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="12" >*</td>
      <td width="197" ><font size="2" face="Arial, Helvetica, sans-serif">Categoria:</font></td>
      <td width="335"> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <%
					Dim rsCategoria
					Dim sql
					sql = "SELECT * FROM CATEGORIE ORDER BY IDCATEGORIA"
					Set rsCategoria = Server.CreateObject("ADODB.Recordset")
					rsCategoria.Open sql, conn_soft
					%>
        <select name="categoria" id="categoria" onChange="window.location.href('add_prodotti.asp?categoria=<% =Request.Form("categoria")%>"  >
          <%
					Do While not rsCategoria.EOF 
					Response.Write("<option value=" & rsCategoria("IDCATEGORIA"))
					if categoria <>"" then
					  if Cint(categoria )= Cint(rsCategoria("IDCATEGORIA")) then
						 Response.Write("selected")
					  end if
					end if
					Response.Write (">" & rsCategoria("CATEGORIA") & "</option>")
					rsCategoria.Movenext
					Loop
					%>
        </select>
        </font></td>
    </tr>
    <tr > 
      <td ></td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
    </tr>
    <tr> 
      <td >*</td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif">Sottocategoria:</font></td>
      <td> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <%
					If categoria <> "" Then
					Dim rsSottoCategoria
					Dim sql1
					sql1 = "SELECT * FROM SOTTOCATEGORIE WHERE IDCATEGORIA=" & categoria
					
					Set rsSottoCategoria = Server.CreateObject("ADODB.Recordset")
					rsSottoCategoria.Open sql1, conn_soft
					%>
        <select name="sottocategoria" id="sottocategoria">
          <%
					Do While not rsSottoCategoria.EOF 
					Response.Write("<option value=" & rsSottoCategoria("IDSOTTOCATEGORIA") & ">" & rsSottoCategoria("SOTTOCATEGORIA") & "</option>")
					rsSottoCategoria.Movenext
					Loop
					%>
        </select>
        <% 
					 Else
					 Response.Write("Scegli prima la categoria")
					 End if
					 %>
        </font></td>
    </tr>
    <tr > 
      <td></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
    </tr>
    <tr> 
      <td >*</td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif">Modello:</font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> 
        <input name="modello" type="text"  id="modello" size="50" maxlength="150" />
        </font></td>
    </tr>
    <tr > 
      <td colspan="3" ></td>
    </tr>
    <tr> 
      <td >*</td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif">Prezzo:</font></td>
      <td> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <input name="prezzo" type="text" id="prezzo" maxlength="30" />
        </font></td>
    </tr>
    <tr> 
      <td ></td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
    </tr>
    <tr> 
      <td ></td>
      <td valign="top" ><font size="2" face="Arial, Helvetica, sans-serif">Descrizione 
        breve:</font></td>
      <td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <textarea name="descrizione_bre" cols="45" rows="3" id="descrizione_bre"></textarea>
        </font></td>
    </tr>
    <tr> 
      <td ></td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"></font></td>
    </tr>
    <tr> 
      <td></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif">

        </font></td>
      <td> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <input type="submit" name="Submit" value="Inserisci prodotto" onclick="return checkforinfo();" />
        </font></td>
    </tr>
  </table>
</form>
</body>
</html>

**Galex** · 11-10-2005, 12:27

così a me va...

codice:

<%@LANGUAGE="VBSCRIPT"%> 


<%
categoria = Request("categoria")
%>
<html>
<head>

</head>
<body>
<form action="add_prodotti_1.asp" method="post" name="inserisci" id="inserisci" >         
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="12" >*</td>
      <td width="197" ><font size="2" face="Arial, Helvetica, sans-serif">Categoria:</font></td>
      <td width="335"> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <%

					Dim rsCategoria
					Dim sql
					sql = "SELECT * FROM CATEGORIE ORDER BY IDCATEGORIA"
					Set rsCategoria = Server.CreateObject("ADODB.Recordset")
					rsCategoria.Open sql, conn_soft
					%>
        <select name="categoria" id="categoria" onChange="window.location.href('add_prodotti.asp?categoria='+inserisci.categoria.value)">
          <%
					Do While not rsCategoria.EOF 
					Response.Write("<option value='" & rsCategoria("IDCATEGORIA"))&"'"
					if categoria <>"" then
					  if Cint(categoria )= Cint(rsCategoria("IDCATEGORIA")) then
						 Response.Write(" selected")
					  end if
					end if
					Response.Write (">" & rsCategoria("CATEGORIA") & "</option>")
					rsCategoria.Movenext
					Loop
					%>
        </select>
        </font></td>
    </tr>
    <tr > 
      <td > </td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
    </tr>
    <tr> 
      <td >*</td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif">Sottocategoria:</font></td>
      <td> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <%
					If categoria <> "" Then
					Dim rsSottoCategoria
					Dim sql1
					sql1 = "SELECT * FROM SOTTOCATEGORIE WHERE IDCATEGORIA=" & categoria

					Set rsSottoCategoria = Server.CreateObject("ADODB.Recordset")
					rsSottoCategoria.Open sql1, conn_soft
					%>
        <select name="sottocategoria" id="sottocategoria">
          <%
					if not rsSottoCategoria.EOF then
					Do While not rsSottoCategoria.EOF 
					Response.Write("<option value=" & rsSottoCategoria("IDSOTTOCATEGORIA") & ">" & rsSottoCategoria("SOTTOCATEGORIA") & "</option>")
					rsSottoCategoria.Movenext
					Loop
					else
					Response.Write("<option value=''>nessuna sottocategoria</option>")
					end if
					%>
        </select>
        <% 
					 Else
					 Response.Write("Scegli prima la categoria")
					 End if

					 %>
        </font></td>
    </tr>
    <tr > 
      <td> </td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
    </tr>
    <tr> 
      <td >*</td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif">Modello:</font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> 
        <input name="modello" type="text"  id="modello" size="50" maxlength="150" />
        </font></td>
    </tr>
    <tr > 
      <td colspan="3" > </td>
    </tr>
    <tr> 
      <td >*</td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif">Prezzo:</font></td>
      <td> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <input name="prezzo" type="text" id="prezzo" maxlength="30" />
        </font></td>
    </tr>
    <tr> 
      <td > </td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
    </tr>
    <tr> 
      <td > </td>
      <td valign="top" ><font size="2" face="Arial, Helvetica, sans-serif">Descrizione 
        breve:</font></td>
      <td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <textarea name="descrizione_bre" cols="45" rows="3" id="descrizione_bre"></textarea>
        </font></td>
    </tr>
    <tr> 
      <td > </td>
      <td ><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> </font></td>
    </tr>
    <tr> 
      <td> </td>
      <td><font size="2" face="Arial, Helvetica, sans-serif">

        </font></td>
      <td> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <input type="submit" name="Submit" value="Inserisci prodotto" onclick="return checkforinfo();" />
        </font></td>
    </tr>
  </table>
</form>
</body>
</html>

**nadia79** · 11-10-2005, 12:46

Ora Funziona anche a me!!!!!

L'errore era tutto qui:

codice:

Io scrivevo così e non funzionava:

<select name="categoria" id="categoria" onChange="window.location.href('add_prodotti.asp?categoria='<% =Request.Form("categoria")%>">

Così invece funziona benissimo:

<select name="categoria" id="categoria" onChange="window.location.href('add_prodotti.asp?categoria='+inserisci.categoria.value)">

Sinceramente a me sembra la stessa cosa... :master: oppure no?
Comunque grazie a tutti e in particolare a Galex... hai avuto una pazienza infinita...

**nadia79** · 11-10-2005, 12:59

Parlato troppo presto!!!
Ho notato che quando scelgo la categoria, fa il refresh della pagina e visualizza le sottocategorie della categoria scelta, ma la categoria viene reimpostata al valore predefinito!
Ossia la categoria scelta non viene mantenuta nella select...

Come è possibile?

**Galex** · 11-10-2005, 14:19

sei sicura di aver copiato been il codice che ti ho dato?la modifica non era solo quella che hai evidenziato tu nel tuo penultimo messaggio,c'era anche qusta:

if categoria <>"" then
if Cint(categoria )= Cint(rsCategoria("IDCATEGORIA")) then
Response.Write(" selected")
end if
end if

ovvero una spazio prima di selected,se no mette tutto "appicciato",prova a verificare questo e fammi sapeer se ci son ancora problemi.

per quando riguarda la prima domanda:

questo:

<select name="categoria" id="categoria" onChange="window.location.href('add_prodotti.asp?c ategoria='<% =Request.Form("categoria")%>">

è totalmente diverso da questo:

<select name="categoria" id="categoria" onChange="window.location.href('add_prodotti.asp?c ategoria='+inserisci.categoria.value)">

nel secondo caso viene passato come parametro il valore selezionato in categoria prima dell'invio del form,nel primo invece categoria viene valorizzato solo dopo aver fatto il submit del form,quindi quando "ormai nn ci fai + nulla"
il primo ricava il valore "lato server",il secondo "lato client"

**nadia79** · 11-10-2005, 14:23

Uhmm hai ragione!
Ora sembra che funzioni bene, per sicurezza faccio un pò di prove!

Grazie di nuovo!

**Galex** · 11-10-2005, 14:26

ok

**nadia79** · 11-10-2005, 14:44

allora ora sembra che funzioni perfettamente l'inserimento, invece nella modifica ho fatto così:

codice:

<td>
<%
Dim rsCategoriaSel
Dim sqlCategoriaSel
sqlCategoriaSel = "SELECT * FROM CATEGORIE WHERE IDCATEGORIA=" & rsModProdotti.fields("IDCATEGORIA")
Set rsCategoriaSel = Server.CreateObject("ADODB.Recordset")
rsCategoriaSel.Open sqlCategoriaSel, conn_soft
%>
<select name="categoria" id="categoria">
<option value="<%Response.Write(rsCategoriaSel.fields("IDCATEGORIA"))%>" selected> 
<%
Response.Write(rsCategoriaSel.fields("CATEGORIA"))
%>
</option>
<%
Do While not rsCategoriaSel.EOF 
Response.Write("<option value=" & rsCategoriaSel("IDCATEGORIA") & ">" & rsCategoriaSel("CATEGORIA") & "</option>")
rsCategoriaSel.Movenext
Loop
%>
</select>
</td>

Il problema è così visualizza solo la categoria di appartenenza mentre non si vedono le altre categorie, stesso discorso per le sottocategorie, vedo solo quella selezionata nell'inserimento.

Questo valore : rsModProdotti.fields("IDCATEGORIA")
l'ho ricavato tramite un querystring in cui passo l'idprodotto, poi ho fatto una query sui prodotti, trovato il prodotto ho preso l'idcategoria nel record del prodotto.
Come posso fare per selezionarela categoria e la sottocategoria di appartenenza, ma lasciare all'utente la possibilità di sceglierne altre? :master:

Discussione: Problema select dinamiche

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio