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
%>

[naps]

perche' lanciando la pagina mi da sempre un errore alla riga:

<%
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
%>

dicendo:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
Testo del comando non impostato per l'oggetto comando.
/barocca/TMPzmabnue22.asp, line 33

che ne pensate?

[Gioba66]

caricaicone.Source = Query

non va messo dopo l'end if?

[naps]

ho provato ma mi da' sempre lo stesso errore...

[naps]

ho RISOLTOOO!! cosi:

<%
Dim caricaicone__MMColParam
caricaicone__MMColParam = "nonattiva"
If (Request("MM_EmptyValue") <> "") Then 
  caricaicone__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim caricaicone
Dim caricaicone_numRows

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

caricaicone_numRows = 0
%>

Menomale...