[Resolvido] Trabalhando com classes

[Koreia 0]

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

[xanburzum 169]

qual o numero do erro que ele gera

[saloeric 1]

Class Usuario

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

set novo = new Usuario
novo.menuUsuario(0)

[Koreia 0]

Obrigado FUncionou...