254: response.write isFolderGrabbed(folderId)
It is supposed to return a bool. I made reference to it in a function... and anytime I try to make reference to it again in the same function I get that error.
The input is valid. I verified that

'Grab array...
Dim pleaseGrab 'any other can be used to send to the grabFolder function

'Dictionaries
'These dictionaries keep record of the index that a particular folder with id "fid"
'or type id with id "tid" has been stored in the folders and types array respectively
'The index WILL be different from the fid or the tid.. so the dictionary is used as a
'pointer in a sense. For example... each folderId has a key that is the index that
'of its position in the folders array. So we just have to lookup in the dictionary
'for a particular folder id to know which index it is stored in the "folders" array
Dim fi, ti, ai 'folder index, type index, article index
Set fi = Server.CreateObject("Scripting.Dictionary")
Set ti = Server.CreateObject("Scripting.Dictionary")
Set ai = Server.CreateObject("Scripting.Dictionary")

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'Grab the function details and stores them in the "folders" array
function grabFolder(folderArray,mode)
'Takes as input... list of folder indices
Dim req 'Requested number of folders for grabbbing...
if not isArray(folderArray) AND isNumeric(folderArray) then
folderArray = Array(folderArray)
end if
req = ubound(folderArray)

if not isArray(folderRows) then
response.write "No data found on folders... Grab failed!"
else
'Loop through the array... and store in folders array
Dim folderCount, i
folderCount = ubound(folderRows,2)

'Set it BACK the types array to the folders...
folders(fTYPES,getFolderIndex(folderId)) = types
next
else
response.write "No types found for grab ids specified!"
end if
else if isNumeric(typeArray) then
'If I just entered one number... make it an array...
'Then call the function again... :D
typeArray = Array(typeArray)
call grabType(typeArray,mode)
else
response.write "Invalid input for type array!"
end if
end if
end function
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'gets the index that the a folder with folderId is stored in the folders array
function getFolderIndex(folderId)
if isFolderGrabbed(folderId) then
getFolderIndex = fi.Item(folderId)
else
response.write "Non-existent fid"
end if
end function

function tellMeFid(typeId)
if isTypeGrabbed(typeId) then
tellMeFid = tf.Item(typeId)
else
tellMeFid = "Type id was not grabbed!"
end if
end function

'gets the index that the a type with typeId is stored in the types array
function getTypeIndex(typeId)
if isTypeGrabbed(typeId) then
getTypeIndex = ti.Item(typeId)
else
response.write "Non-existent tid"
end if
end function

'gets a folder field based on folder id and index
function getFolderField(folderId,fieldIndex)
if countDims(folders) = 2 then
if ubound(folders,1) >= fieldIndex then
getFolderField = folders(fieldIndex,getFolderIndex(folderId))
else
getFolderField = "Field out of range!"
end if
else
getFolderField = "No folders grabbed. Cannot get folder fields!"
end if
end function

'gets a type field based on type id and index
function getTypeField(folderId,typeId,fieldIndex)
if isFolderGrabbed(folderId) then
if isTypeGrabbed(typeId) then
Dim types
types = folders(2,getFolderIndex(folderId))
if not isArray(types) then
getTypeField = "Type information NOT found in folders array!"
else
if ubound(types,1) >= fieldIndex then
getTypeField = types(fieldIndex,getTypeIndex(typeId))
else
getTypeField = "Field too great!"
end if
end if

else
isTypeGrabbed = "Type not grabbed!"
end if
else
getTypeField = "Folder for this type not grabbed!"
end if
end function