Using Instr() in ASP.NET? 2

[Ovatvvon]

Hello,

I tried to use the instr() function in an aspx page, however I received an error on a pop-up dialog box that reads:



An exception 'system.stackoverflowexception' has occurred in /LM/W3SVC/8/Root-1-126747-864778437500.



and it gives a list of possible debuggers (MS CLR debugger or MS Development Environment).


This is what's causing it:


<script language=&quot;VB&quot; runat=&quot;server&quot;>
...

Function lastFolder(folder)
Dim i As Integer
lastFolder = Split(lastFolder, &quot;/&quot
If instr(1, lastFolder(UBound(lastFolder)), &quot;.asp&quot > 0 Then
i = (UBound(lastFolder) - 1)
Else
i = UBound(lastFolder)
End If
Return lastFolder(i)
End Function

...
</script>



Does anyone know what this means or how I can appropriately use this function without generating an error?

-Ovatvvon :-Q

 

[JohnYingling]

You ended up calling Lastfolder recursively instead of accessing the array.

If instr(1, lastFolder(UBound(lastFolder)),

Use a work array. Also use UBound(arylastFolder) once.
You can get subscript out of range if there is only one entry and it has &quot;.asp&quot; because j will be 0 so J - 1 = -1.
What happens if &quot;.ASP&quot; because Instr will not see it unless vbTextCompare is used.

Function lastFolder(folder)
Dim i As Integer
Dim j as Integer
Dim aryLastFolder() as string
arylastFolder = Split(Folder, &quot;/&quot
J = UBound(arylastFolder) ' = 0 if not &quot;/&quot;
If instr(1, arylastFolder(j)), &quot;.asp&quot > 0 Then
i = j - 1
Else
i = j
End If
Return arylastFolder(i) 'i= -1 if no &quot;/&quot; and is .asp

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Isadore]

John - excellent. Thanks.

 

[Ovatvvon]

John,
What I used would have worked in ASP. What causes it to not work with .NET? -Ovatvvon :-Q

 

[JohnYingling]

I do not know. But as a side note. In VBscript, all variables were Variants. In .Net, specifying no type defaults to Object. Put types on your code to speed it up.
Function lastFolder(folder as string) as string
Dim i As Integer
Dim j as Integer
Dim aryLastFolder() as string
arylastFolder = Split(Folder, &quot;/&quot
J = UBound(arylastFolder) ' = 0 if not &quot;/&quot;
If instr(1, arylastFolder(j)), &quot;.asp&quot > 0 Then
i = j - 1
Else
i = j
End If
Return arylastFolder(i) 'i= -1 if no &quot;/&quot; and is .asp

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Ovatvvon]

That's right. I forgot about all that. Thanks for the reminder. -Ovatvvon :-Q