Loginsystem - hente værdier fra DB på beskyttede sider

Hejsa :)

Jeg har nedenstående kode som er placeret i en login.asp side, hvor den slår op i en MS SQL database og derefter videresender til logged_in.asp, hvis brugernavn/password er korrekt.

Mit spørgsmål går på hvordan jeg (fra logged_in.asp) henter alle oplysninger ind vedr. brugeren (fra databasen)? Det kan den vel godt hvis brugeren har sin egen Session åben? Kunne forestille mig, der måske skulle en stak kode på logged_in.asp. Det kan også være en utrolig simpel ting, men jeg er lidt nybegynder i sessions :)

Login.asp:

<%
If Request.Form(\"Action\") = \"Login\" Then
strUID = Trim(Replace(Request.Form \"Brugernavn\"),\"\'\",\"\"))
    strPWD =UCase(Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\")))

If Len(strUID) > 0 And Len(strPWD) > 0 Then
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER=SQL Server;SERVER=ukendt;UID=ukendt;PWD=ukendt;DATABASE=ukendt;\"
strSQL = \"SELECT VIRK_ID FROM Stamdata\"&_
    \" WHERE (Brugernavn = \'\" & strUID & \"\')\"&_
    \" AND (Password = \'\" & strPWD & \"\')\"

    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then            intUID = rs(\"VIRK_ID\")
      Else                    strERR = \"Du blev ikke godkendt af systemet\"
        End If
myConn.Close
Set myConn = Nothing

If Len(intUID) Then
    Session(\"VIRK_ID\") = intUID
    Response.Redirect(\"logged_in.asp\")
        End If
    Else
    strErr = \"Du skal skrive både brugernavn og adgangskode\"
    End If

    If Len(strErr) > 0 Then
    strErr = \"<p><font color=red>\" & strErr & \"</font></p>\"
    End If
End If
%>

<!-- FORMEN -->

<form method=\"POST\" action=\"login.asp\">
<input type=\"text\" name=\"Brugernavn\" size=\"20\">
<input type=\"password\" name=\"Adgangskode\" size=\"20\">
<input type=\"submit\" value=\"Login\" name=\"Action\">
<div align=\"center\"><%=strErr%></div>
</form>

Logged_in.asp:

<%
If isEmpty(Session(\"VIRK_ID\")) Then
    Response.Redirect(\"login.asp\")
End If
%>