login

Jeg har et login der fungere fint, men jeg skal have lavet forskellige login niveauer. Dvs. at folk der skal have lov til at fx. skrive nyheder har niveau 1 og administrator fx. har niveau 2 (disse tal ligger i databasen)

Hvordan sender jeg folk med niveau 1 til en side, og folk med niveau 2 til en anden??

Her er de koder jeg bruger i forvejen:

<%dim strBrugernavn, strKode
         
          strBrugernavn = Trim(Replace(Request.Form("Brugernavn"),"'",""))
          strKode = Trim(Replace(Request.Form("Kodeord"),"'",""))

If Len(strBrugernavn) > 0 And Len(strKode) > 0 Then

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

strSQL = "SELECT * FROM bruger WHERE (brugernavn = '" & strBrugernavn & "') AND (kodeord = '" & strKode & "')"

'strSQL sætning der blev bygget ovenfor, afvikles
Set rs = myConn.Execute(strSQL)

'Hvis brugernavn og kode findes, afvikles nedenfor
If Not (rs.BOF Or rs.EOF) Then

session("Brugernavn") = strBrugernavn
session("logget_ind") = "ja"
session("fornavn") = rs("fornavn")
session("efternavn") = rs("efternavn")
session("brugerniveau") = rs("brugerniveau")
Session.timeout = "15"
Response.Redirect("medlem.asp")

Else

response.redirect("loginfejl.asp")
End If

myConn.Close
Set myConn = Nothing
End If
End If
%>