TRABALHANDO COM CLASSES EM VB SCRIPT
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
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
Erro onde? Que erro?
quando eu chamo a função <% iUser.menuUsuario(iUser.gnivel) %> ele da essa mensagem
An error occurred on the server when processing the URL. Please contact the system administrator.
If you are the system administrator please click here to find out more about this error.
An error occurred on the server when processing the URL. Please contact the system administrator.
If you are the system administrator please click here to find out more about this error.
Estou criando uma instancia da classe na tela onde verifico a senha e o usuario digitados
com o seguinte codigo
set iUser = new usuario
iUser.Gcpf = cpfuser
com o seguinte codigo
set iUser = new usuario
iUser.Gcpf = cpfuser
Tópico encerrado , respostas não são mais permitidas