disabilitazione menù

[kikysc]

Ciao a tutti,
sarò rapida e concisa: devo modificare un form collegato ad un data base e vorrei che, selezionando la voce di menù "speciale"(sono stati utilizzati i menù a tendina di Dreamweaver) , si ottenga l'esclusione della selezione degli altri menù a tendina e il collegamento ad un nuovo foglio (risultato2.asp/htm ????) ovviamente se decidessi di cambiare scelta i menù dovrebbero potersi riattivare...spero di essere stata chiara!!! Sapreste aiutarmi???

Il codice è il seguente:


<form name="form1" method="post" action="risultato.asp">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="Cognome" color="#000000"><font size="1">Seleziona
la motivazione *



</font></font>
<select name="motivazione" size="1">
<option value="1">acquisto</option>
<option value="2">vendita</option>
</select>
<font face="Verdana, Arial, Helvetica, sans-serif" size="Cognome" color="#000000">
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="Cognome" color="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="Cognome" color="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="Cognome" color="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="Cognome" color="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="Cognome" color="#000000"><font size="1"></font></font></font></font></font>
</font> </div>
</td>
<td></td>
</tr>
<tr>
<td height="100"></td>
<td valign="top" bgcolor="#EDF5FE"><font size="Cognome" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
</font>
<div align="right">
<div align="left">
<div align="center">
<div align="left">

<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Zona
desiderata



</font>
<select name="zonarichiesta" size="1">
<option value="0">qualsiasi zona</option>
<option value="-1">-------- LAZIO ----------</option>
<option value="9">giardinetti</option>
<option value="16">colleprenestino</option>
<option value="-1">-------- SPECIALE ----------</option>
<option value="22">speciale</option>
</select>
</div>
</div>
</div>
</div>
</div>
</td>
<td valign="top" bgcolor="#EDF5FE">
<div align="center"></div>
<div align="left"></div>
<div align="center">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Tipologia
Immobile </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">



</font>
<select name="tipologia" size="1">
<option value="1">appartamento</option>
<option value="2">indipendente</option>
</div>


</div>
</td>
<td valign="top" bgcolor="#EDF5FE">
<div align="center">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Num.
Locali



</font>
<select name="locali" size="1">
<option value="0">Qualsiasi</option>
<option value="1">1</option>
</select>


</div>
</td>
<td valign="top" bgcolor="#EDF5FE">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Fascia
prezzo *



</font>
<select name="prezzo" size="1">
<option value="1">da 0 a 40.000</option>
<option value="2">da 41.000 a 60.000</option>
</select>
</div>
</td>
<td></td>
</tr>
<tr>
<td height="88"></td>
<td colspan="4" valign="top" bgcolor="#EDF5FE">
<div align="center">
<input type="submit" name="Submit" value="Trova">




</td></html>

[nuky]

Potresti aggiungere questo script da chiamare sull'onchange della select:

<script>
  function ZonaChange(selZona) {
    var selValue = selZona.options[selZona.selectedIndex].value;
    var mForm = window.document.form1;
    if(selValue != -1) {
      if (selValue == 22) {
        mForm.motivazione.disabled = true;
        mForm.tipologia.disabled = true;
        mForm.locali.disabled = true;
        mForm.prezzo.disabled = true;
        mForm.action = "risultato2.asp"
      }
      else {
        mForm.motivazione.disabled = false;
        mForm.tipologia.disabled = false;
        mForm.locali.disabled = false;
        mForm.prezzo.disabled = false;
        mForm.action = "risultato.asp"
      }
    }
  }
</script>
...
...
...
...
<select name="zonarichiesta" size="1" onchange="ZonaChange(this);">

Se poi i select nella tua pagina non sono fissi, ma possono essere altri oltre a quelli che hai postato potresti fare un ciclo sui select della form per abilitarli/disabilitarli (tranne quello con name="zonarichiesta" ovviamente)

[kikysc]

lo script funziona a meraviglia, ma non si collega al data base possibile che debba modificare anche il file risultato2.asp o htm a cui si collega?

[nuky]

Sai che non capisco cosa intendi? In che senso non si collega al database?
Io ho visto solo questa pagina, poi non so cosa ci fai con le informazioni che mandi a risultato.asp e risultato2.asp.

[kikysc]

Il file asp deve andare a ricercare i dati immessi e proporre un risultato della ricerca...ora però deve visualizzare tutti i dati presenti nel data base segnalati come "speciale" nella "tipologia" e non andare a fare una selezione utilizzando gli altri parametri.
Ecco il file da cui sono partita:

<%

Sub Scrivi_intestazione(int_cod_zona)

Set rst_intestazioni = Server.CreateObject("ADODB.Recordset")
rst_intestazioni.Open "Select Dettagli FROM affiliati Where codice_affiliato = " & int_cod_zona, conn
Response.Write rst_intestazioni.Fields("Dettagli")
rst_intestazioni.Close

End Sub

if Request.Form("zonarichiesta") = "-1" Then Response.Redirect("pag_err.htm")

myDSN="PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};"
myDSN=myDSN & "DBQ="&Server.MapPath("/data/medioweb.mdb")&";UID=administrator;PWD=;"

strWhere = " offerte.off_motivazione = " & Request.Form("motivazione")
if Request.Form("zonarichiesta") <> 0 then strWhere = strWhere & " AND offerte.off_zona = " & Request.Form("zonarichiesta")
if Request.Form("tipologia") <> 0 then strWhere = strWhere & " AND off_tipologia = " & Request.Form("tipologia")
if Request.Form("locali") <> 0 then strWhere = strWhere & " AND off_num_locali = " & Request.Form("locali")
if Request.Form("prezzo") <> 0 then
Select case Request.Form("prezzo")
Case 1
strWhere = strWhere & " AND (off_prezzo > 0 AND off_prezzo <= 40000) "
Case 2
strWhere = strWhere & " AND (off_prezzo > 40000 AND off_prezzo <= 60000) "
Case 3
strWhere = strWhere & " AND (off_prezzo > 60000 AND off_prezzo <= 80000) "
Case 4
strWhere = strWhere & " AND (off_prezzo > 80000 AND off_prezzo <= 100000) "
Case 5
strWhere = strWhere & " AND (off_prezzo > 100000 AND off_prezzo <= 200000) "
End Select
End If


Set conn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
conn.Open myDSN

rst.Open "SELECT offerte.off_id, offerte.off_riferimento, offerte.off_zona, affiliati.[Ragione Sociale], motivazioni.mot_descrizione As Motivazione, tipologie.tip_descrizione As Tipologia, offerte.off_num_locali, offerte.off_descrizione, offerte.off_prezzo, offerte.off_img FROM ((offerte INNER JOIN affiliati ON offerte.off_zona = affiliati.codice_affiliato) INNER JOIN motivazioni ON offerte.off_motivazione = motivazioni.mot_id) INNER JOIN tipologie ON offerte.off_tipologia = tipologie.tip_id "_
& " WHERE " & strWhere & " ORDER BY offerte.off_zona", conn



%>


<html>
<head>

<title>Risultato della ricerca</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<% zona_precedente = 0 %>
<body bgcolor="#FFFFFF" text="#000000" link="#000099" vlink="#666666" alink="#FF0000">
<% If rst.EOF Then %>
<div align="center">


</P>
<font face="Verdana, Arial, Helvetica, sans-serif" size=2>
<P align="center">Siamo spiacenti, ma nel nostro database non ci sono offerte che soddisfano la tua richiesta</P>
<P align="center">Clicca qui richiedere il tuo immobile</P> </font>
<%
Else %>
<%
While not rst.EOF
if zona_precedente <> rst.Fields("off_zona") Then
if zona_precedente <> 0 then Response.Write ("</table>

</P>") 'Chiude la tabella nel caso in cui non sia la prima zona visualizzata
zona_precedente = rst.Fields("off_zona")
%>
<table width="452" border="0" cellpadding="0" align="center">
<tr>
<td width="204" valign="top"><div align="right">[img]IMG/logo1.gif[/img]

<font size="1"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000099">FRANCHISING
NETWORK</font></font></div></td>
<td width="242" valign="top"><% Call Scrivi_intestazione(zona_precedente) %></td>
</tr>
</table>




<div align="center">
<table width="620" border="0" cellspacing="2" cellpadding="0" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#00008A" align="center" valign="middle" width="106"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">ZONA</font></td>
<td bgcolor="#00008A" valign="middle" align="center" width="104"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">TIPOLOGIA</font></td>
<td bgcolor="#00008A" align="center" valign="middle" width="271"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">DESCRIZIONE</font></td>
<td bgcolor="#00008A" valign="middle" align="center" width="61"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">PREZZO</font></font></td>
<td bgcolor="#00008A" align="center" valign="middle" width="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><font color="#FFFFFF" size="2">RIF</font></font></td>
<td bgcolor="#00008A" valign="middle" align="center" width="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">FOTO</font></td>
</tr>
<%
End If
%>
<tr>
<td bgcolor="#EDF5FE" align="center" valign="middle" width="106"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><% = rst.Fields("Ragione Sociale") %></font></td>
<td bgcolor="#EDF5FE" align="center" valign="middle" width="104"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><% = rst.Fields("Tipologia") %></font></td>
<td bgcolor="#EDF5FE" valign="middle" align="center" width="271"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><% = rst.Fields("off_descrizione") %></font></td>
<td bgcolor="#EDF5FE" valign="middle" align="center" width="61"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><% = rst.Fields("off_prezzo") %></font></td>
<td bgcolor="#EDF5FE" width="32" valign="middle" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><% = rst.Fields("off_riferimento") %></font></td>
<td bgcolor="#EDF5FE" width="32" valign="middle" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<% if rst.Fields("off_img") = "" Or IsNull(rst.Fields("off_img")) Then
Response.Write ("-")
Else
%>
','Mediocasa','resizable=yes,width=510,height=380' )">[img]IMG/camer005.gif[/img]</td>
<%
End If %></font></td>
</tr>
<% rst.MoveNext
Wend %>
</table>
<% End If %>


</p>
<hr noshade size="1" width="620">
<font color="#000099"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="proposte.htm">NUOVA
RICERCA</a></font></font>


</p>
</div>
</body>
</html>

[nuky]

Hai chiesto uno script che insidizzi su una pagina diversa se viene selezionato speciale, adesso dici che vuoi distinguere il risultato nella pagina asp.
Ma se le pagine asp sono due (risultato2.asp se si clicca su speciale risultato.asp negli altri casi) ti basta scrivere le query in maniera approrpriata nelle due pagine.

Altrimenti mantieni un'unica pagina asp mettendo una condizione del genere per costruire la condizione della query:

if Request.Form("zonarichiesta") = 22 then
  strWhere = 'condizioni da mettere nel caso in cui devi filtrare per tipo "speciale"
Else
  strWhere = 'condizioni generiche come nella pagina che hai postato
End If

Ho capito il problema?

[kikysc]

emmm, tu dici nell'asp o nell'htm....se è l'asp ti prego dimmi dove devo metterlo, che non mi raccapezzo più!

[nuky]

Originariamente inviato da kikysc
emmm, tu dici nell'asp o nell'htm....se è l'asp ti prego dimmi dove devo metterlo, che non mi raccapezzo più!

Ma tu hai una o due pagine asp che si connettono al db?

[kikysc]

una al momento!

[nuky]

Ok, allora rifacciamo, tieni pure una pagina sola.
Il client diventa:

<script>
  function ZonaChange(selZona) {
    var selValue = selZona.options[selZona.selectedIndex].value;
    if(selValue != -1) {
      if (selValue == 22) {
        selZona.form.motivazione.disabled = true;
        selZona.form.tipologia.disabled = true;
        selZona.form.locali.disabled = true;
        selZona.form.prezzo.disabled = true;
      }
      else {
        selZona.form.motivazione.disabled = false;
        selZona.form.tipologia.disabled = false;
        selZona.form.locali.disabled = false;
        selZona.form.prezzo.disabled = false;
      }
    }
  }
</script>

La action rimane quindi fissa e cioè "risultato.asp" come scritto nell'html.


La pagina risultato.asp che hai postato deve aggiungere solo la condizione su zonarichiesta se dal client si è selezionato "speciale" e cioè la scelta con value="22". Ti basta aggiungere una condizione:

...
...
if Request.Form("zonarichiesta") = "-1" Then Response.Redirect("pag_err.htm") 

myDSN="PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};" 
myDSN=myDSN & "DBQ="&Server.MapPath("/data/medioweb.mdb")&";UID=administrator;PWD=;" 

strWhere = " offerte.off_motivazione = " & Request.Form("motivazione") 
if Request.Form("zonarichiesta") <> 0 then strWhere = strWhere & " AND offerte.off_zona = " & Request.Form("zonarichiesta") 
If Request.Form("zonarichiesta") <> 22 Then 'Se si è scelto "speciale" non si aggiungono altre condizioni
  if Request.Form("tipologia") <> 0 then strWhere = strWhere & " AND off_tipologia = " & Request.Form("tipologia") 
  if Request.Form("locali") <> 0 then strWhere = strWhere & " AND off_num_locali = " & Request.Form("locali") 
  if Request.Form("prezzo") <> 0 then 
    Select case Request.Form("prezzo") 
      Case 1 
        strWhere = strWhere & " AND (off_prezzo > 0 AND off_prezzo <= 40000) " 
      Case 2 
        strWhere = strWhere & " AND (off_prezzo > 40000 AND off_prezzo <= 60000) " 
      Case 3 
        strWhere = strWhere & " AND (off_prezzo > 60000 AND off_prezzo <= 80000) " 
      Case 4 
        strWhere = strWhere & " AND (off_prezzo > 80000 AND off_prezzo <= 100000) " 
      Case 5 
        strWhere = strWhere & " AND (off_prezzo > 100000 AND off_prezzo <= 200000) " 
    End Select 
  End If 
End If
...
...

E' ok?