| Author |
 Topic  |
|
|
jojo77
Starting Member
15 Posts |
 Posted - 19 May 2003 : 15:15:43
|
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40300
Ok I followed all the instructions. Added this to my default.asp page that is one up from the 'forum' directory:
<%DisplayContent 1, 1, 2, 1, 0, 5, 200, 0, 0, 0, 1, 0, "Top News Stories", 450, "topic.asp"%>
I then see it pull the topics from that forum but under it an error:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 0]'
/forum/inc_contentdisplay.asp, line 412
what am I'm doing wrong? I never made any changes to the inc_contentdisplay.asp file |
|
|
jojo77
Starting Member
15 Posts |
Posted - 19 May 2003 : 15:20:40
|
Here is the function it's choking on in the inc_contentdisplay.asp file
Function stripALL(fString)
dim arysplit,i,j, strOutput
arysplit=split(fString,"<")
if len(arysplit(0))>0 then j=1 else j=0
for i=j to ubound(arysplit)
if instr(arysplit(i),">") then
arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)
else
arysplit(i)="<" & arysplit(i)
end if
next
strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,">",">")
strOutput = replace(strOutput,"<","<")
arysplit=split(strOutput,"[")
if len(arysplit(0))>0 then j=1 else j=0
for i=j to ubound(arysplit)
if instr(arysplit(i),"]") then
arysplit(i)=mid(arysplit(i),instr(arysplit(i),"]")+1)
else
arysplit(i)="[" & arysplit(i)
end if
next
strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,"]","]")
strOutput = replace(strOutput,"[","[")
stripALL = strOutput
End Function |
 |
|
|
jojo77
Starting Member
15 Posts |
Posted - 28 May 2003 : 14:03:07
|
| up |
|
|
| |
Topic |
|
|
|
Topic Locked
