Delete the part in red:
if strArchiveState = "1" then Response.Write(" <LI><span class=""spnMessageText""><a href=""admin_forums.asp"">Archive Forum Topics</a></span></LI>" & vbNewLine)
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_groupcats.asp"">Group Categories Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_Links.asp"">Links Administration</a></span></LI>" & vbNewLine & _
Response.Write " <LI><span class=""spnMessageText""><a href=""down.asp"">Shut Down the Forum</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_mod_dbsetup.asp"">MOD Setup</a></span><font size=""" & strFooterFontSize & """> [...]
Its looking for a continuation of the statement, and not finding one.