sub InitRequestVars()
dim objRequest
if Request.Form("mode") = "search" then
Set objRequest = Request.Form
else
Set objRequest = Request.Querystring
end if
SortMethod = Trim(objRequest("method"))
strMode = (objRequest("mode"))
SearchName = objRequest("M_NAME")
srchUName = objRequest("UserName")
srchFName = objRequest("FirstName")
srchLName = objRequest("LastName")
srchInitial = objRequest("INITIAL")
... (skipping lines to shorten quote)
end sub