Skriv brugernavn osv.

Når en bruger opretter sig, bliver de skrevet til en database. Det virker fint, men når du så logger sig ind, skal der stå velkommen "brugernavn" men det kan jeg ikke få til at virke.

Her er nogle af mine koder til at oprette sig som bruger:

strUID = Trim(Replace(Request.Form("brugernavn"),"'",""))
          strPWD = Trim(Replace(Request.Form("kode"),"'",""))

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("../cinemax/db/medlem.mdb")

strSQL = "SELECT id FROM bruger WHERE (brugernavn = '" & strUID & "') AND (kode = '" & strPWD & "')"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then


Men hvordan kalder jeg det brugernavn ind på en anden side???

Jeg har prøvet med dette, men det dur ikke??

<%
dim brugerid
brugerid=Request.form("Brugernavn")
set cn = server.createobject("adodb.connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Inetpub\wwwroot\Cinemax\db\medlem.mdb;"
brugerid = request.querystring("id")
sql = "SELECT * FROM bruger WHERE brugernavn = '" & brugerid & "'"
Set objRec = cn.Execute(sql)

%>