Access DB: Forbudte tegn i login-system

Jeg har lavet et login-system som fungerer perfekt, men der er stadig nogle ting jeg vil ha lavet om. F.eks., så er der nogle tegn som ikke må forekomme, når man opretter sig som bruger. Jeg har gjort at HTML bliver decoded når det bliver fundet, men det er ligesom ikke nok. Brugernavnet og password'et må kun indeholde følgende:

Bogstaver:
a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, x, y, z, æ, ø, å

Tal:
0, 1, 2, 3, 4, 5, 6, 7, 8, 9

Yderligere tegn:
- og _

Forskellen på store og små bogstaver er ikke relevant. Dvs. bogstaverne foroven må både være store og små.

Her er koden:
*********************************

<%
'form-kontrol udføres
    if request.form("username") = "" then response.redirect("/error.asp?content=newuser&error=tomuser")
    if request.form("kodeord") = "" then response.redirect("/error.asp?content=newuser&error=tompass")
    if request.form("username") = " " then response.redirect("/error.asp?content=newuser&error=tomuser")
    if request.form("kodeord") = " " then response.redirect("/error.asp?content=newuser&error=tompass")
    if request.form("email") = "" then response.redirect("/error.asp?content=newuser&error=tommail")
    if request.form("email") = " " then response.redirect("/error.asp?content=newuser&error=tommail")

'connection til databasen oprettes
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database.mdb"))

'kontrol om allerede eksisterende info som brugernavn og email udføres
    Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.Open "SELECT * FROM [users] ORDER BY [brugernavn] DESC", Conn, 1, 3
    Do until rs.EOF
        if request.form("username") = rs("brugernavn") then response.redirect("/error.asp?content=newuser&error=rsuser")
        if request.form("email") = rs("email") then response.redirect("/error.asp?content=newuser&error=rsmail")
    rs.MoveNext
    Loop

'form-kontrol udføres
    if request.form("kodeord") <> request.form("rekodeord") then response.redirect("/error.asp?content=newuser&error=equalpass")
    if request.form("email") <> request.form("reemail") then response.redirect("/error.asp?content=newuser&error=equalmail")

'tilføjelse af brugeren bekræftet, og tilføjes her
    Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.Open "SELECT * FROM [users]", Conn, 1, 3
    rs.AddNew
        rs("registered") = Now()
        rs("IP") = Request.ServerVariables("REMOTE_ADDR")
        rs("brugernavn") = Server.HTMLEncode(LCase(request.form("username")))
        rs("password") = Server.HTMLEncode(LCase(request.form("username")))
        rs("email") = LCase(request.form("email"))
        rs("postnummer") = request.form("postnummer")
        rs("nyhedsbrev") = request.form("nyhedsbrev")
    rs.Update
    response.redirect("/default.asp?content=newuser")
%>