Sul sito ho:




<html>
<head>
<title>Rider Zone</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="vendita.css" rel="stylesheet" type="text/css">
<script language="VBScript">
function ricarica(privato)
document.form1.txtselezione1.value=document.form1. cmbselezione1.value
document.form1.txtselezione2.value=document.form1. cmbselezione2.value
document.form1.txtselezione3.value=document.form1. cmbselezione3.value
document.form1.action="selezione_vendita.asp?priva to=" & privato
document.form1.submit()
end function

function controllocampi(tipo,privato)
select case tipo
case "S"
document.form1.txtselezione1.value=document.form1. cmbselezione1.value
document.form1.txtselezione2.value=document.form1. cmbselezione2.value
document.form1.txtselezione3.value=document.form1. cmbselezione3.value
document.form1.action="lista_vendita.asp?privato=" & privato
end select
document.form1.submit()
end function
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<form name="form1" method="post" action="" onSubmit="">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr valign="top" class="IntestazioneMenu">
<td>

Selezione

<span class="DescrizioneNormale">Quest'area permette
di filtrare i prodotti disponibili in base ad una o più
categorie. Indicare 'Tutti i prodotti' per una lista completa dei prodotti
attualmente on-line.

</span></p>
</td>
</tr>
<tr valign="top" class="IntestazioneMenu">
<td></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" class="IntestazioneLegenda">
<tr valign="top">
<td class="TestoLabel" width="25%"></td>
<td width="25%"></td>
<td width="25%"></td>
<td width="25%"></td>
<tr valign="middle">
<td width="20%" class="TestoLabel"></td>
<td><span class="TestoLabel">Prima categoria</span></td>
<td><select name="cmbselezione1" onChange="vbscript: ricarica '<%=request.QueryString("privato")%>'" class="TestoCampiDinamici">
<% set rs = server.createobject("ADODB.Recordset")
sql = "SELECT DISTINCT prodotti.prod_genere "
sql = sql & " FROM prodotti "
if (request.form("txtselezione2") <> "" or request.form("txtselezione3") <> "") then
sql = sql & " WHERE 1 = 1 "
if request.form("txtselezione2") <> "" and request.form("txtselezione2") <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione2")) & " "
end if
if request.form("txtselezione3") <> "" and request.form("txtselezione3") <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione3")) & " "
end if
end if
sql = sql & " ORDER BY prodotti.prod_genere "
rs.open sql, cnt, 3, 3
if rs.recordcount > 0 then
if trim(ucase(request.form("txtselezione1"))) = "TUTTI" then
%>
<option value="TUTTI" selected>Tutti i prodotti</option>
<%
else
%>
<option value="TUTTI">Tutti i prodotti</option>
<%
end if
rs.movefirst
do while not rs.eof
if trim(ucase(request.form("txtselezione1"))) = trim(ucase(rs.fields("prod_genere").value)) then
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>" selected>
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
else
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>">
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
end if
rs.movenext
loop
else
%>
<option value="<%response.Write("@")%>">
<%response.Write("Nessun prodotto")%>
</option>
<%
end if
rs.close
%>
</select>
<input name="txtselezione1" type="hidden" class="TestoCampiDinamici" id="txtselezione1" size="20" value="<%=request.form("txtselezione1")%>"></td>
<td></td>
</tr>
<tr valign="middle">
<td width="20%" class="TestoLabel"></td>
<td><span class="TestoLabel">Seconda categoria</span></td>
<td><select name="cmbselezione2" onChange="vbscript: ricarica '<%=request.QueryString("privato")%>'" class="TestoCampiDinamici">
<% set rs = server.createobject("ADODB.Recordset")
sql = "SELECT DISTINCT prodotti.prod_genere "
sql = sql & " FROM prodotti "
if (request.form("txtselezione1") <> "" or request.form("txtselezione3") <> "") then
sql = sql & " WHERE 1 = 1 "
if request.form("txtselezione1") <> "" and trim(ucase(request.form("txtselezione1"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione1")) & " "
end if
if request.form("txtselezione3") <> "" and trim(ucase(request.form("txtselezione3"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione3")) & " "
end if
end if
sql = sql & " ORDER BY prodotti.prod_genere "
rs.open sql, cnt, 3, 3
if rs.recordcount > 0 then
if trim(ucase(request.form("txtselezione2"))) = "TUTTI" then
%>
<option value="TUTTI" selected>Tutti i prodotti</option>
<%
else
%>
<option value="TUTTI">Tutti i prodotti</option>
<%
end if
rs.movefirst
do while not rs.eof
if request.form("txtselezione2") = rs.fields("prod_genere").value then
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>" selected>
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
else
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>">
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
end if
rs.movenext
loop
else
%>
<option value="<%response.Write("@")%>">
<%response.Write("Nessun prodotto")%>
</option>
<%
end if
rs.close
%>
</select>
<input name="txtselezione2" type="hidden" class="TestoCampiDinamici" id="txtselezione22" size="20" value="<%=request.form("txtselezione2")%>"></td>
<td></td>
</tr>
<tr valign="middle">
<td width="20%" class="TestoLabel"></td>
<td><span class="TestoLabel">Terza categoria</span></td>
<td><select name="cmbselezione3" onChange="vbscript: ricarica '<%=request.QueryString("privato")%>'" class="TestoCampiDinamici">
<% set rs = server.createobject("ADODB.Recordset")
sql = "SELECT DISTINCT prodotti.prod_genere "
sql = sql & " FROM prodotti "
if (request.form("txtselezione1") <> "" or request.form("txtselezione2") <> "") then
sql = sql & " WHERE 1 = 1 "
if request.form("txtselezione1") <> "" and trim(ucase(request.form("txtselezione1"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione1")) & " "
end if
if request.form("txtselezione2") <> "" and trim(ucase(request.form("txtselezione2"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione2")) & " "
end if
end if
sql = sql & " ORDER BY prodotti.prod_genere "
rs.open sql, cnt, 3, 3
if rs.recordcount > 0 then
if request.form("txtselezione3") = "TUTTI" then
%>
<option value="TUTTI" selected>Tutti i prodotti</option>
<%
else
%>
<option value="TUTTI">Tutti i prodotti</option>
<%
end if
rs.movefirst
do while not rs.eof
if request.form("txtselezione3") = rs.fields("prod_genere").value then
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>" selected>
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
else
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>">
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
end if
rs.movenext
loop
else
%>
<option value="<%response.Write("@")%>">
<%response.Write("Nessun prodotto")%>
</option>
<%
end if
rs.close

%>
</select>
<input name="txtselezione3" type="hidden" class="TestoCampiDinamici" id="txtselezione32" size="20" value="<%=request.form("txtselezione3")%>"></td>
<td></td>
</tr>
<tr valign="top">
<td class="TestoLabel"></td>
<td></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" class="SfondoToolbar">
<tr align="left" valign="top">
<td width="25%"></td>
<td width="25%"></td>
<td width="25%">[img]../img/conferma.gif[/img]'"> '">Conferma selezione</td>
<td width="25%">[img]../img/fine.gif[/img]
Chiudi</td>
</tr>
</table></td></tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>


Perchè secondo voi mi visualizza SERVER ERROR HTML500!!!!!!!!!!!!!!!!!!

Se al posto di questo codice metto una stringa la vedo... quindi il problema è proprio su questa.....
p.s. naturalmente in locale mi funziona ma quando lo butto on-line sul server di ARUBA no..... mi devo preoccupare?