Try this:

'======================================
Dim strAccess
Dim strClearance

strClearance = "client"

    If Request.Form("Access") = "realestatesales" Then
       strAccess = "realtor"
    End If
'======================================

You can't pass strings unless they are in quotes.
Where are you getting the "Request.Form("Access") from?


mmcdonal