[Resolvido] Trabalhando com classes

Pessoal estou tentando fazer uma classe para guardar o cpf do usuario e escrever o menu de acordo com o nivel para isso criei a seguinte classe

public class Usuario
Dim Gcpf, gnivel
private Conexao

public Sub menuUsuario(gnivel)
if gnivel="0" then

 Response.Write "   <a href='sgc002.asp' class='menu'>Usuários</a>"
 Response.Write "    <a href='sgc010.asp' class='menu'>Arquivos</a>"
 Response.Write "    <a href='sgc020.asp' class='menu'>Relatórios</a>"
 Response.Write "    <a href='sgc050.asp' class='menu'>Versão</a>"
 Response.Write "    <a href='sgc000.asp' class='menu'>Sair</a>"
 elseif gnivel="1" then
 Response.Write "    <a href='sgc010.asp' class='menu'>Arquivos</a>"
 Response.Write "    <a href='sgc020.asp' class='menu'>Relatórios</a>"
 Response.Write "    <a href='sgc000.asp' class='menu'>Sair</a>"
	end if

end sub
End Class
%>~

e dai nas paginas para escrever o menu estou usando

<% iUser.menuUsuario(iUser.gnivel) %>

Só que esta dando erro só.

Grato