HJÆLP MED SESSIONS!

<%
\' Hvis der er blevet trykket på knappen \"Login\"
If Request.Form(\"Action\") = \"OK\" Then
    \' Her forberedes de indtastede værdier til validering
    strUsername = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
    strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))

    \' Hvis der er skrevet noget i både brugernavn og adgangskode
    If Len(strUsername) > 0 And Len(strPWD) > 0 Then

        \' DSNLess forbindelse til databasen
        Set myConn = Server.CreateObject(\"ADODB.Connection\")
        myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../db/cusers.mdb\")

        \' Opbygning af SQL streng
        strSQL = \"SELECT Username FROM Users\"&_
            \" WHERE (Username = \'\" & strUsername & \"\')\"&_
            \" AND (Password = \'\" & strPWD & \"\')\"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            \' Hvis brugeren fandtes i databasen
            intUsername = rs(\"Username\")
        Else
            \' Hvis brugeren ikke fandtes i databasen
            strERR = \"Du blev ikke logget ind!\"
        End If

        \' Rydder op i vores connection objekt
        myConn.Close
        Set myConn = Nothing

        If Len(intUsername) Then
            \' Hvis variablen intUID indeholder en værdi sættes denne i sessionen \"UserID\" og brugeren bliver sendt videre
            Session(\"Username\") = intUsername
            Response.Redirect(\"main.asp\")
        End If
    Else
        \' Hvis der ikke var angivet brugernavn og adgangskode
        strErr = \"Du skal både skrive brugernavn og kode!\"
    End If

    If Len(strErr) > 0 Then
        \' Her laves fejlmeddelsen om til rød skrift
        strErr = \"<p><font color=white>\" & strErr & \"</font></p>\"
    End If
End If
%>

Her bliver der lavet en session som hedder Username! Jeg vil også have den til at lave en der hedder umps! Altså sessionen umps bliver umps fra databasen, hvordan?