Error Type: Microsoft VBScript compilation (0x800A03FB) Expected ''''Loop'''' /kungmicke/beta/forum/Default.asp, line 250
Here is row 232- 270 end if %> </tr> <% Response.Write " <tr>" & vbCrLf & _ " <td bgcolor=""" & strForumCellColor & """ colspan=""" if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write "6" else Response.Write "5" end if Response.Write """><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><b>No Forums Found</b></font></td>" & vbCrLf if (mlev = 4 or mlev = 3) then Response.Write " <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """> </font></td>" & vbCrLf end if Response.Write " </tr>" & vbCrLf
Here is ROW 50 else
blnHiddenForums = false do until rsForum.Eof if ChkDisplayForum(rsForum("FORUM_ID")) then if rsForum("F_TYPE") <> "1" then intPostCount = intPostCount + rsForum("F_COUNT") intTopicCount = intTopicCount + rsForum("F_TOPICS") intForumCount = intForumCount + 1 if rsForum("F_LAST_POST") > strLastPostDate then strLastPostDate = rsForum("F_LAST_POST") intLastPostForum_ID = rsForum("FORUM_ID") end if end if if chkDisplayHeader then Response.Write " <tr>" & vbcrlf & _ " <td bgcolor=""" & strCategoryCellColor & """ colspan=""" if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write "6" else Response.Write "5" end if
Topic Locked
Posted - 26 May 2001 : 17:12:38
<---««« That's me!
