' If the register form has been posted
    if rf("uname") <> "" then
        ' Required items
        required = "uname,pword,conf_pword,email,conf_email,tel"
        ' All items
        allowed  = required & ",hint,fax,mob"

        for each required_item in split(required, ",")
            if rf(required_item) = "" then good_registration_details=false
        next

        if  rf("email") = rf("conf_email") AND
            rf("pword") = rf("conf_pword")
        then
            ' Details are correct. Let's register this bad boy.
            set new_register_row = Server.CreateObject("Scripting.Dictionary")
            for each allowed_item in split(allowed,",")
                new_register_row.add allowed_item, rf(allowed_item)
            next

            insertRow("users",new_register_row)
        end if
    end if