Fremkaldelse af (\"username\")

hej \"eksperter\"

Jeg har følgende log-in kode som jeg bruger til at logge ind med! Koden duer fint.

<%

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

   
    If Len(strUID) > 0 And Len(strPWD) > 0 Then

       
        Set myConn = Server.CreateObject(\"ADODB.Connection\")
        myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")

        strSQL = \"SELECT UserID FROM brugere\"&_
            \" WHERE (Username = \'\" & strUID & \"\')\"&_
            \" AND (Password = \'\" & strPWD & \"\')\"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
           
            intUID = rs(\"UserID\")
        Else
           
            strERR = \"Der er sket en fejl, prøv venligst igen!\"
        End If

        myConn.Close
        Set myConn = Nothing

        If Len(intUID) Then
            Session(\"UserID\") = intUID
            Response.Redirect(\"../default.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
%>

Problemet opstår når jeg redirecter til default.asp! der vil jeg gerne have den skal vise brugerens brugernavn og kodeord! Har prøvet med følgende kode, men det duede ikke!!

<%

Response.Buffer = True
SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

Sql = \"Select * FROM brugere WHERE Username = \'\" & session(\"Username-session\") & \"\'\"
set rs = rs.Execute(SQL)

    Response.Write \"Hej \" & RS(\"Username\") &\" du er nu logget ind!<br><br>\"

%>

Nogen der har nogle forslag til hvad jeg så kan gøre, for at fremkalde (\"Username\")!

Undskyld hvis koden står en smule rodet!
Håber du/i kan hjælpe?


/Webben