Necesito ayuda para la creación de una intranet de tres niveles en ASP y SQL server

Puedes programar dentro de la asp el segmento de código vbscript requerido para verificar que tipo de perfil de usuario es y de ahí direccionar a la página de opciones de menú requerido, así lo tengo en varias intranets.

Gracias cualquier otra duda te preguntare...

Ya tengo la entrada donde pide login, password y el nivel, este es el código que verifica si existe en la bd y lleva a la página que le corresponde pero lo que no se es cargar el perfil de cada quien
<%
Response.Cookies("usuario").Expires = "20/5/2005"
Response.Cookies("usuario") = Request.Form("usuario")
usuario = trim(Request.form("usuario"))
password =MD5(Request.form("password"))
nivel=Request.form("nivel")
fecha = FormatDateTime(Now,0)
if nivel="administrativo" then
set rs = server.CreateObject("ADODB.RecordSet")
set rscheck = con.Execute ("Select * from administrativo where Usuario='" & usuario & "' and Password='" & password & "'")
if rscheck.eof then
response.redirect "index.asp?errorusuario=si"
else
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "docente",con,1,2
SQL2="Insert into administrativolog (Usuario,IP,Host,Entrada) values ('" & usuario & "','" & Request.ServerVariables("REMOTE_ADDR") & "','" & Request.ServerVariables("HTTP_HOST") & "','" & fecha & "')"
set rs2=con.Execute(SQL2)
session("Usuario") = rscheck("Usuario")
session("Password") = rscheck("Password")
Response.redirect ("administrativo.asp")
end if
end if
if nivel="docente" then
set rs = server.CreateObject("ADODB.RecordSet")
set rscheck = con.Execute ("Select * from docente where Usuario='" & usuario & "' and Password='" & password & "'")
if rscheck.eof then
response.redirect "index.asp?errorusuario=si"
else
Set rs1 = Server.CreateObject("ADODB.RecordSet")
rs1.Open "docente",con,1,2
SQL1="Insert into docentelog (Usuario,IP,Host,Entrada) values ('" & usuario & "','" & Request.ServerVariables("REMOTE_ADDR") & "','" & Request.ServerVariables("HTTP_HOST") & "','" & fecha & "')"
set rs1=con.Execute(SQL1)
session("Usuario") = rscheck("Usuario")
session("Password") = rscheck("Password")
Response.redirect ("docente.asp")
end if
end if
if nivel="alumno" then
set rs = server.CreateObject("ADODB.RecordSet")
set rscheck = con.Execute ("Select * from alumno where Cedula='" & usuario & "' and Password='" & password & "'")
if rscheck.eof then
response.redirect "index.asp?errorusuario=si"
else
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "docente",con,1,2
SQL="Insert into alumnolog (Usuario,IP,Host,Entrada) values ('" & usuario & "','" & Request.ServerVariables("REMOTE_ADDR") & "','" & Request.ServerVariables("HTTP_HOST") & "','" & fecha & "')"
set rs=con.Execute(SQL)
session("Cedula") = rscheck("Cedula")
session("Password") = rscheck("Password")
Response.redirect ("alumno.asp")
end if
RScheck.close
rs.Close
Con.close
set con = nothing
end if
%>

¿Y en que tabla se encuentra el perfil?

ahh muy importante,, ya estoy aclarando esta bien que haga una tabla tomando como clave el nombre de usuario seria con los siguientes campos (usuario, materias, recursos, ¿etc) o esos campos se los agrego a la tabla donde están los datos del usuario que me recomiendas?