Med tag ID ved login

Hej Alle!

Jeg har understående login script. Jeg kan se i en del af scriptet, at brugerens id findes frem "intUID = rs("ID")"..

Hvordan får jeg overført det til min redirect, så jeg kan bruge det videre?

"Response.Redirect("forhandler/defaults.asp?item=loggetind&forhandlerID=" & request.form("forhandlerid") & "")"


### SCRIPT ###

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

    ' Hvis der er skrevet noget i både brugernavn og adgangskode
    If Len(strUID) > 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("../database/database.mdb")

        ' Opbygning af SQL streng
        strSQL = "SELECT ID FROM forhandler"&_
            " WHERE (forhandlerid = '" & strUID & "')"&_
            " AND (forhandlerkode = '" & strPWD & "')"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            ' Hvis brugeren fandtes i databasen
            intUID = rs("ID")
        Else
            ' Hvis brugeren ikke fandtes i databasen
            strERR = "Du blev ikke godkendt af systemet"
        End If

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

        If Len(intUID) Then
            ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
            Session("forhandlerid") = intUID
            Response.Redirect("forhandler/defaults.asp?item=loggetind&forhandlerID=" & request.form("forhandlerid") & "")
        End If
    Else
        ' Hvis der ikke var angivet brugernavn og adgangskode
        strErr = "Du skal skrive både forhandlerid og forhandlerkode"
    End If

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