Ho un form (proposte.htm) che va a consultare un data base tramite l'inserimento di parametri di ricerca, da immettere a scelta tra i menù a discesa presenti sulla pagina.
Tra questi è presente un menù a discesa "zona" in cui, se viene selezionato la voce "speciale", questo disabilita tutte gli altri menù ;

Ad effettuare la ricerca c'è un file asp che procede alla consultazione del data base (risultato.asp) e un file di appoggio in html per il risultato della ricerca delle informazioni.

Il mio problema è che andando a disabilitare i menù la ricerca va in errore e non visualizza il risultato.

Vi inserisco qui di seguito i codici dei due file:

la pagina asp:
codice:
<% 

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("zonarichiesta") <> 23 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 

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="1" color="#FFFFFF">ZONA</font></td> 
<td bgcolor="#00008A" valign="middle" align="center" width="104"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">TIPOLOGIA</font></td> 
<td bgcolor="#00008A" align="center" valign="middle" width="271"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" 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="1" 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">RIF</font></font></td> 
<td bgcolor="#00008A" valign="middle" align="center" width="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" 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="1" 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="1" color="#000000"><% = rst.Fields("Tipologia") %></font></td> 
<td bgcolor="#EDF5FE" valign="middle" align="center" width="271"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" 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="1" 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="1" 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 
%> 
<a href="java script:;" onClick="MM_openBrWindow('window.asp?<% = rst.Fields("off_id") %> ','Mediocasa','resizable=yes,width=510,h
eight=380')">[img]IMG/camer005.gif[/img]</a></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>