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  |
|
|
|