Page 2 - VBScript - Database - General - Can you assign the select result of a stored procedure as a value?

sSQL = "exec spGetUserDetailsByID " & iuserID
SET oRS = oDB.Execute(sSQL)
strUserName = oRS("username")
strDeptName = oRS("departmentName")
strURL = ""
If strDeptName="IT" And strUserName="Joe bloggs" Then
   strURL = "page1.asp"
ElseIf strDeptName="IT" And strUserName="Brian bloggs" Then
   strURL = "page2.asp"
ElseIf strDeptName="IT" And strUserName="Claire bloggs" Then
   strURL = "page3.asp"
End If
oRS.Close
If Len(strURL)>0 Then
   Response.Redirect(strURL)
End If

sSQL = "exec spGetUserDetailsByID " & iuserID
SET oRS = oDB.Execute(sSQL)

sSQL = "exec spGetUserDetailsByID " & iuserID
Response.Write("sql: " & sSQL & "<br />")
Response.END()
SET oRS = oDB.Execute(sSQL)

iuserID = 3

userNameTest = Mid(request.ServerVariables("AUTH_USER"), InStr(request.ServerVariables("AUTH_USER"), "\")+1)
response.write(userNameTest & " ")

 
iUserID = <%=Session("LOGGED_ON_USER_ARRAY")(4) %>

<%
iUserID = Session("LOGGED_ON_USER_ARRAY")(4)
%>

sub Application_OnStart
' Application("CONN_STRING") = "Driver={SQLServer};Server=ITFolder;Database=intran  et; Uid=INTRANET;Pwd=pswrd;"
   Application("DEFAULT_URL") = "http://localhost"
  Application("CURRENT_USERS") = 0
  Application("ADMIN_MESSAGE") = 0
  SET Application("oDBConn") = Server.CreateObject("ADODB.Connection")
  Application("oDBConn").open(Application("CONN_STRING"))
end sub


sub Application_OnEnd
  'some code
end sub


sub Session_OnStart
  Session("TEST_VARIABLE") = ""
  Session("DEBUG_MODE_ON") = False
  Session("LOGGED_ON_USER_ARRAY") = Split(Request.ServerVariables("LOGON_USER"), "\")
  
  'this was done by me (psk) when tyring to create the security settings.
  'Security Levels
  'Session("AccessLevel") = oRS ("UserAccessLevel")
  'Session ("nAccessLevel") = CLng(Session("LOGGED_ON_USER_ARRAY").Fields("UserAccessLevel").Value)
  
  SET Session("LOGGED_ON_USER_ARRAY") = Application("oDBConn").Execute("EXEC spGetUserDetails '" & Right(Request.ServerVariables("LOGON_USER"), LEN(Request.ServerVariables("LOGON_USER")) - INSTR(Request.ServerVariables("LOGON_USER"),"\")) & "'")
  
  Application("CURRENT_USERS") = Application("CURRENT_USERS") + 1
end sub

sub Session_OnEnd
  Application("CURRENT_USERS") = Application("CURRENT_USERS") - 1
  'some code
end sub

<%
Dim oUserRS, x
Set oUserRS = Session("LOGGED_ON_USER_ARRAY")
For x=0 To oUserRS.Fields.Count-1
   Response.Write("field name: " & oUserRS.Fields(x).Name & ", value: " & oUserRS(x) & "<br />")
Next
%>

iuserID = Session("LOGGED_ON_USER_ARRAY")(4)

Session("LOGGED_ON_USER_ARRAY")(4)

Session("LOGGED_ON_USER_ARRAY")("userID")

SELECT 
			 storeNumber
			,storeName
			,userID
			,username
			,FirstName + ' ' + LastName 
			,departmentID
			,departmentName
			,FolderName 
			,roleID
			,roleName
			,levelID
			,levelName
			,levelCode
			,fk_storeID as StoreID

		FROM tblUsers u
			LEFT JOIN tblUser2Dept AS u2d 
				on u.userID = u2d.fk_userID
			LEFT JOIN tblDepartment AS d 
				on u2d.fk_deptID = d.departmentID
			LEFT JOIN tblUser2Store AS u2s 
				on userID = u2s.fk_userID
			LEFT JOIN tblUser2Role AS u2r
				on u.userID = u2r.fk_userID
			LEFT JOIN tblRoles AS r 
				on u2r.fk_roleID = r.roleID
			LEFT JOIN tblStores AS s
				on u2s.fk_storeID = s.storeID
			LEFT JOIN tblSA2AccessLevels AS sa2al
				on r.roleID = sa2al.fk_roleID 
					AND d.departmentID = sa2al.fk_deptID
			LEFT JOIN tblLevels AS l
				on l.levelID = sa2al.fk_levelID

		WHERE userID = @iUserID
END

strStoreID = oRS("StoreID")			
strStoreNumber = oRS("storeNumber")			
strStoreName = oRS("storeName")
strUserName = oRS("username")
'strFullName = oRS("FirstName + ' ' + LastName")
strDepartmentID = oRS("departmentID")
strDeptName = oRS("departmentName")
strFolderName = oRS("FolderName")
strRoleID = oRS("roleID")
strRoleName = oRS("roleName")
strLevelID = oRS("levelID")
strLevelName = oRS("levelName")
strLevelCode = oRS("levelCode")
strURL = ""