cfcProgrammer
Programmer
I'm getting an error "run time error '800a0009' subscript out of range", the only explanation I can see is that the array is out of range... but this doesn't seem to be the case. Can anyone help with an explanation for this by reviewing the snipet of code I've included? The line that is causing the error is highlighted.
Any help would be greatly appreciated. If you need more info I can provide it.
Thanks
cfcprogrammer
cfcProgrammer
Code:
sub sItemWriteSharePathsCombo(lvItemId,lvRowId,lvItemTypeId,lvFieldId,lvCurrentPath,lvShareWhat,lvFieldFolderPath,lvOptions)
' Find out how many folders there are:
dim loRs,lvSql,loRs2,lvValue,lvText,lvNoSharingCurrentPath,lvNoPaths,lvNoLangInSite,lvSiteId,loFs,lvNoSharingThisPath
dim lvNoRealFieldFolders,lvRealFieldFolders(100),lvRealFieldFoldersIsUsed(100),loFolder,n,lvFolderPath
Response.Write "<INPUT type=hidden"
Response.Write " name=F" & lvFieldId & "_ORG "
Response.write " value='"&fGetFormDatFromDb(lvCurrentPath)&"'"
Response.Write ">"
set loFs=server.CreateObject("Scripting.FileSystemObject")
lvNoRealFieldFolders=0
if loFs.folderExists(lvFieldFolderPath) then
for each loFolder in loFs.GetFolder(lvFieldFolderPath).SubFolders
[highlight] lvRealFieldFolders(lvNoRealFieldFolders)=loFolder.name [/highlight]
lvRealFieldFoldersIsUsed(lvNoRealFieldFolders)=false
lvNoRealFieldFolders=lvNoRealFieldFolders+1
next
end if
Any help would be greatly appreciated. If you need more info I can provide it.
Thanks
cfcprogrammer
cfcProgrammer