Menu con link selezionato

[Umanista]

<%
Dim iCurrent, pageState
iCurrent = Request.QueryString("selected")
If iCurrent <> "" Then 
	pageState = True
Else
	pageState = False
End If

Set myMenu = Server.CreateObject("Scripting.Dictionary")

	'# Imposta links
	myMenu.Add "azienda", "azienda.asp" 
	myMenu.add "referente", "referenze.asp" 
	myMenu.add "risorse umane", "risorse_umane.asp"
	myMenu.add "certificazioni", "certificazioni.asp"
	myMenu.add "lavora con noi", "lavora_con_noi.asp"
	myMenu.add "contatti", "contatti.asp"

Dim i
i = 0

Dim arrItems, arrKeys
arrItems = myMenu.keys
arrKeys = myMenu.Items

Response.Write("<ul>" & VbCrLf)

For i = 0 To myMenu.count -1
             
	    If  CInt(iCurrent) = i And pageState = True Then
	  
	  		'# Pagina corrente (con diversa formattazione)
	  	    Response.Write("[*]" & arrItems(i) & "" & VbCrLf)
	   
	    Else
		
			 Response.Write("[*]" & arrItems(i) & "" & VbCrLf)
		
		End If
				
 Next

	Response.Write("[/list]" & VbCrLf)

Set myMenu = Nothing

%>

ciao

[Mairon001]

Thank