Ciao a tutti,
una domanda da profano: è possibile inserire un'istruzione "instr()" in un Case di una Select?
Mi spiego - volevo dinamizzare la classe dei tag[*] in una lista/menu e ho scritto il seguente codice:

codice:
Dim url, liTag
url = Request.ServerVariables("URL")
Select case url
	case instr(url, "menu1.asp")
		liTag = "<li class=" & chr(34) & "current" & chr(34) & ">"
	case instr(url, "menu2.asp")
		liTag = "<li class=" & chr(34) & "current" & chr(34) & ">"
	case instr(url, "menu3.asp")
		liTag = "<li class=" & chr(34) & "current" & chr(34) & ">"
	case instr(url, "menu4.asp")
		liTag = "<li class=" & chr(34) & "current" & chr(34) & ">"
	case instr(url, "menu5.asp")
		liTag = "<li class=" & chr(34) & "current" & chr(34) & ">"
	case else
		liTag = "[*]"
End Select

Response.Write("<ul>")
	With Response
		.Write(liTag & "MENU1")
		.Write(liTag & "MENU2")
		.Write(liTag & "MENU3")
		.Write(liTag & "MENU4")
		.Write(liTag & "MENU5")
	End With
Response.Write("[/list]")
...ho scritto una cavolata? :master: