previsto end

[naps]

scusate mi potreste controllare se la sintassi e' giusta? sto
impazzendo..

<%
Dim recvedischede
Dim recvedischede_numRows

Set recvedischede = Server.CreateObject("ADODB.Recordset")
recvedischede.ActiveConnection = MM_connarchivioweb_STRING
If Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellodue, "'", "''") + "'"
else
If Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE livutente = '" + Replace(recvedischede__livellotre, "'", "''") + "'"
End If
If Session("MM_UserAuthorization") = "3" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
else
If Session("MM_UserAuthorization") = "2" Then
recvedischede.Source = "SELECT * FROM archivio WHERE completata = '" + Replace(recvedischede__MMColParam, "'", "''") + "'"
end if
If Session("MM_UserAuthorization") = "1" Then
recvedischede.Source = "SELECT * FROM archivio"
End If
recvedischede.CursorType = 0
recvedischede.CursorLocation = 2
recvedischede.LockType = 1
recvedischede.Open()

recvedischede_numRows = 0
%>

<%
recvedischede.Close()
Set recvedischede = Nothing
%>

e poi mi dice errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'