Trasformazione controllo IF in controllo + complesso

[Pierhagi]

Ciao a tutti

al mio menu di navigazione dinamico dovrei aggiungere un controllo che deve verificare molti casi. Oltre il "If then elseif end if" non so andare, quindi vi chiedo come si possa scrivere un codice corretto x soddisfare le condizioni del codice sotto:
(...ovviamente so che un IF, come quello che segue, è sbagliato!)

<div id="menu_sx">
<ul>

<% If calendarioA_link ="calendario_elencoA.asp" or
calendarioB_link ="calendario_elencoB.asp" or
cartelliniA_link ="cartellini_elencoA.asp" or
cartelliniB_link ="cartellini_elencoB.asp" or
categoria_link ="categoria.asp" or
classificaA_link ="classifica_elencoA.asp" or
classificaB_link ="classifica_elencoB.asp" or
contatti_link ="contatti.asp"or
gallery_link ="anag_gallery_dettaglio.asp" or
marcatoriA_link ="marcatori_elencoA.asp" or
marcatoriB_link ="marcatori_elencoB.asp" or
news_link ="news.asp" or
organigramma_link ="organigramma.asp" Then %>

<li id="activelink">
<a href="<%=rs_menu_sx("LINK_ESTERNO")%>">
<%=rs_menu_sx("NOME")%>
</a>


<% Else %>
[*]
<a href="<%=rs_menu_sx("LINK_ESTERNO")%>">
<%=rs_menu_sx("NOME")%>
</a>


<% End If %>
[/list]
</div>

[Roby_72]

Ma tutto questo per l'activelink, visto che il resto mi sembra uguale?

Roby

[Pierhagi]

sì ;-(

c'è un'altra strada?

Cmq nel mio menù ho 3 diverse tipologie di link e x ogni caso vorrei aggiungere dei controlli.

Il codice del mio menù, senza i controlli x l'activelink è così:

<%
'Dichiaro il recordset
Dim rs_menu_sx

Set rs_menu_sx = Server.CreateObject("ADODB.Recordset")

'Dichiaro la stringa Sql
Dim sql_menu_sx

Dim voce_in_menu_v
voce_in_menu_v = "True"

sql_menu_sx= "SELECT * FROM TabLink WHERE VOCE_IN_MENU = "& voce_in_menu_v &" ORDER BY PRIORITA ASC, NOME ASC"

rs_menu_sx.Open sql_menu_sx, cn, 1

rs_menu_sx_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rs_menu_sx_numRows = rs_menu_sx_numRows + Repeat2__numRows
%>

<table>
<tbody>

<% While ((Repeat2__numRows <> 0) AND (NOT rs_menu_sx.EOF)) %>

<%'aggiunta controllo codice contenuti%>
<%
Dim codice_ctrl
'codice_ctrl = rs_menu_sx("CODICE_CONTENUTI")
'Response.Write "Gestione Codice Contenuti:" & "
"
codice_ctrl = rs_menu_sx.Fields.Item("CODICE_CONTENUTI").Value
'Response.Write "Codice Contenuti:" & "
"
'Response.Write codice_ctrl & "
"
If codice_ctrl <> "" Then
'Response.Write "Sono nel link giusto" & "
"
%>
<div id="menu_sx">
<ul>
[*]
<a href="contenuti.asp?codice_contenuti=<%=rs_menu_sx ("CODICE_CONTENUTI")%>">
<%=rs_menu_sx("NOME")%>
</a>
[/list]
</div>
<% Else
'Response.Write "Caso codice_ctrl = 0" & "
"
Dim ctrl_blank
ctrl_blank = rs_menu_sx.Fields.Item("BLANK").Value
'Response.Write "Flag BLANK:" & "
"
'Response.Write ctrl_blank & "
"
If ctrl_blank = "True" Then
'Response.Write "Sono in TRUE" & "
"
%>

<div id="menu_sx">
<ul>
[*]
<a onclick="window.open(this.href);return false" href="<%=rs_menu_sx("LINK_ESTERNO")%>">
<%=rs_menu_sx("NOME")%>
</a>
[/list]
</div>

<% Else
Dim ctrl_link
ctrl_link = rs_menu_sx.Fields.Item("LINK_ESTERNO").Value
If ctrl_link <> "" Then
'Response.Write "Sono in Link Esterno per sito" & "
"
%>

<div id="menu_sx">
<ul>
[*]
<a href="<%=rs_menu_sx("LINK_ESTERNO")%>">
<%=rs_menu_sx("NOME")%>
</a>
[/list]
</div>

<% Else
'Response.Write "Sono in Link Categoria" & "
" %>

<div id="menu_sx">
<ul>
[*]
<a href="Categoria.asp?codice_super_categoria=<%=rs_m enu_sx("CODICE_SUPER_CATEGORIA")%>">
<%=rs_menu_sx("NOME")%>
</a>
[/list]
</div>

<% End If %>
<% End If %>
<% End If %>

<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rs_menu_sx.MoveNext()
Wend
%>
</tbody>
</table>
<%
rs_menu_sx.Close
Set rs_menu_sx = Nothing
%>

...cosa mi consigliate?