Creo que deberias sentarte muy tranquilamente a hacer una
prueba de escritorio a tu código.
Esta lineas creo son la razón del por que
no entra al Case 2
Func = Request("Func")
id=request.QueryString("id")
if isempty(Func) Then
Func = 1
End if
Solo te voy a comentar que estas manejando dos métodos de parámetros, y seguro ahí esta el detalle