Someone was asking about this, and I decided to try and write something up. However, it locked up my forum for some reason. I can't seem to figure out what's wrong with it. Basically, the concept is that you add this to your extratags function in inc_func_common.asp, then add the other stuff below to config.asp. If someone wouldn't mind helping me find what I'm obviously not seeing, that would rock. If I can get this working, I'll write it up and post it over at SnitzBitz. I've noticed slight issues with the <br /> tags as well, so I would assume that this MOD could come in handy for a lot of people.
if InStr(fString,"[nobr]") <> 0 and InStr(fString,"[/nobr]") <> 0 then
strNobrPos1 = InStr(fString,"[nobr]")
strNobrPos2 = InStr(fString,"[/nobr]")
Do
strBrPos = InStr(strNobrPos1,fString,"<br />")
if strBrPos < strNobrPos2 then
fString = Replace(fString, "<br />", "1rep", strNobrPos1, 1)
else
exit do
end if
Loop
fString = Replace(fString, "[nobr]", "")
fString = Replace(fString, "[/nobr]", "")
end if
Add this to config.asp below Dim SubCount, MySubCount
Dim strNobrPos1, strNobrPos2, strBrPos
Again, this doesn't work, but if anybody would like to help me get it working, I'd appreciate it.
Topic Locked
Posted - 19 January 2005 : 12:17:48
