reinterpretare una "if Session"

[naps]

Si puo' scrivere in maniera differente? (ho messo in grassetto la parte modificata)

<%
Dim caricaicone
Dim caricaicone_numRows

Set caricaicone = Server.CreateObject("ADODB.Recordset")
caricaicone.ActiveConnection = MM_connarchitettura_STRING
caricaicone.Source = Query 
If Session("MM_UserAuthorization") = "si" Then 
Query = "SELECT * FROM barocca ORDER BY ordinedicaricamento ASC" 
else 
Query = "SELECT * FROM barocca WHERE imgregistrati = nonattiva ORDER BY ordinedicaricamento ASC"   
end if caricaicone.CursorType = 0
caricaicone.CursorLocation = 2
caricaicone.LockType = 1
caricaicone.Open()

caricaicone_numRows = 0
%>