<% Dim Nivel 'Nivel = Trim(Session("Nivel_Jogo")) Nivel = Trim(Request("Nivel")) Select Case Nivel Case "F" Nivel = "Facil" Case "M" Nivel = "Medio" Case "D" Nivel = "Dificil" Case Else Nivel = "Facil" End Select Response.Write("") %>