The Weird and The Wonderful

Private Function utilCheckSecurity(recSet As DAO.Recordset, userSet As DAO.Recordset, fileNo As String) As Integer

    On Error GoTo errorCUS

    If fileNo = "3" Then GoTo utilCSUpdate  ' no secclass on table

    If IsNull(recSet![SecurityClass]) Then GoTo utilCSUpdate

    If Len(recSet![SecurityClass]) = 0 Then GoTo utilCSUpdate

    If recSet![SecurityClass] Like userSet![updateclass] Then GoTo utilCSUpdate

    If recSet![SecurityClass] Like userSet![readclass] Then GoTo UtilCSRead

    utilCheckSecurity = 0  ' We fail
    Exit Function

UtilCSRead:

    utilCheckSecurity = 1    ' Can only read the record
    Exit Function

utilCSUpdate:
    utilCheckSecurity = 2    ' Can update the record
    Exit Function

errorCUS:
    If Err = 3265 Then Resume utilCSUpdate ' no security field
    message "Error " & Format(Err, "######") & " " & Error, "UtilCheckSecurity"
    Exit Function
End Function

If Request.QueryString("queryParam") <> Nothing Then
    Select Case Convert.ToInt16(Request.QueryString("queryParam"))
        Case 1
            var = 1
        Case 2
            var = 2
        Case 3
            var = 3
        Case 4
            var = 4

        Case 5
            var = 5
        Case 6
            var = 6
    End Select
Else

Dim t As Integer = Environment.TickCount
Dim n(9) As Double
For i As Integer = 0 To 9
    Dim r As New Random(t)
    n(i) = r.Next
Next