CodingForums.com - Subscript out of range

CodingForums.com (http://www.codingforums.com/index.php)

- ASP (http://www.codingforums.com/forumdisplay.php?f=8)

- - Subscript out of range (http://www.codingforums.com/showthread.php?t=286994)

Subscript out of range

Hi,

I have a database with a memofield from which I get the entire string after searching the whole text using a keyword (single or complex), but I have a problem, depending on the character in the string, the asp script shows an error:

Quote:

Microsoft VBScript runtime error '800a0009' Subscript out of range: '[number: 2]'

Examples:

by eighteen fifteen, five thousand chronometers were in use on ships sailing the world's oceans.
the twenty-six year old singer says her music attempts to reach out for an understanding of othe people's experiences

The output string stop here with the above error message.

MY CODE:

Quote:

<%For n = 0 to 3%>
<% mystring = rs1("texts") %>
<% myword = strkeyword %>
<% myarray = Split(mystring, myword, 3, 1) %>
<%next%>
<TABLE border=0>
<TR>
</TR>
<TR>
<TD width=49% align=right><%Response.Write "" & MyArray(0) & "" %> </TD>
<TD width=1% bgcolor=yellow><%response.write "" & MyWord & "" %></TD>
<TD width=49%><%response.write "" & Myarray(2) & "" %> </TD>
<TD width=1%><%'response.write "" & rs1("fileid") & "" %> </TD>

</TR>
</TABLE>

How I fix the error or hidden the error message?

Thanks in advance for any thoughts.

Lebron

The error means that there is *NO* element 2 in the array.

That is, your SPLIT did *NOT* create at least 3 parts.

But your code makes NO SENSE anyway:

Code:

<%

For n = 0 to 3

    mystring = rs1("texts") 

    myword = strkeyword 

    myarray = Split(mystring, myword, 3, 1) 

Next

%>

The code does the SAME THING THREE TIMES!

WHY? NOTHING changes in the 3 iterations.

Maybe you should DEBUG???

Code:

<%

mystring = rs1("texts") 

Response.Write "DEBUG: mystring is ::" & mystring & "::<hr/>"

myword = strkeyword 

Response.Write "DEBUG: myword is ::" & myword & "::<hr/>"

myarray = Split(mystring, myword, 3, 1) 

Response.Write "DEBUG: UBound(myarray) is " & UBound(myarray) & "<hr/>"

%>