duda sobre variables de session

[Gaby_Corr]

no se si este bien la forma de poner en variables de sesion los campos de un registro de mi tabla..
lo que quiero hacer con esto es que en cualquier pagina que yo necesite desplegar por decir algo, la variable Session("nombreusuario") se me despliegue

Código:

<%
dim user, pwd, rs

user = trim(request("usuario"))
pwd = trim(request("password"))

if user<>"" then

conectarDB
SQL="SELECT * FROM DS_Usuarios where usuarios_usuario = '"& user &"' AND usuarios_password = '"& pwd &"'"
Set rs = cnn.execute(SQL)

if rs.EOF then
	 response.redirect("acceso.asp")
else
	  Session("NombreUsuario") = rs("usuario_nombre")
	  Session("IdUser") = rs("usuario_id")
	  Session("GrupoUsuario") = rs("usuario_numero_grupo")
	  Session("Usuario") = rs("usuario_usuario")
	  Session("UsuarioPass") = rs("usuario_password")
	  Session("UsuarioCorreo") = rs("usuario_correo1")
	  Response.Redirect("index.asp")
end if


else
%>

[Shiryu_Libra]

todo se mira bien Gaby, tambien puedes crear un tipo de arreglo con las variables session en ASP... de esta manera

if rs.EOF then
response.redirect("acceso.asp")
else
Session("Privada")("NombreUsuario") = rs("usuario_nombre")
Session("Privada")"IdUser") = rs("usuario_id")
Session("Privada")"GrupoUsuario") = rs("usuario_numero_grupo")
Session("Privada")"Usuario") = rs("usuario_usuario")
Session("Privada")"UsuarioPass") = rs("usuario_password")
Session("Privada")"UsuarioCorreo") = rs("usuario_correo1")
Response.Redirect("index.asp")
end if

[Gaby_Corr]

aja, y como puedo despues tomar un valor de ese arreglo ???

[Shiryu_Libra]

dependiendo de lo que necesites imprimir
si es la impresion directa individual

response.write Session("Privada")("NombreUsuario")
response.write Session("Privada")"IdUser")
response.write Session("Privada")"GrupoUsuario")
response.write Session("Privada")"Usuario")
response.write Session("Privada")"UsuarioPass")
response.write Session("Privada")"UsuarioCorreo")

si sera para ocuparla para una sentencia de consulta

SQL="select * from TABLA where usuario=" & Session("Privada")"Usuario") & ";"

anexarla a una variable para evaluar

pass=Session("Privada")"UsuarioPass")
trim(pass)
if pass<>"" then
ALGO
else
OTRA COSA
end if