I converted the hard-coded stuff to variables (and put it into default Snitz "Response.Write" format so this won't need to be edited by anyone wishing to use it.
<%
'###############################################################################
'##
'## Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output. The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'## Free Software Foundation, Inc.
'## 59 Temple Place, Suite 330
'## Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'## http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'## manderson@snitz.com
'##
'###############################################################################
'##
'## 'find spambots by signature. By kyodai
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
Dim inti
if mLev < 3 then
Response.Write "<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine
WriteFooter
Response.End
end if
Response.Write "<table border=""1"" bgcolor=""" & strTableBorderColor & """ width=""100%"" align=""center"" style=""border-collapse:collapse"" cellpadding=""9"" cellspacing=""1"">" & vbNewLine & _
" <tr height=""60"" vAlign=""middle"">" & vbNewLIne & _
" <td style=""background-image: url(" & strCategoryCellBGImage & "); background-repeat:no-repeat; background-position:left;"" bgcolor=""" & strPopupTableColor & """ colspan=""6"" align=""center"">" & vbNewLine & _
" <font size=""" & strHeaderFontSize+2 & """ color=""" & strCategoryFontColor & """ face=""" & strDefaultFontFace & """><b>" & strForumTitle & " Signature Spam Surveillance Monitor</b>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr vAlign=""middle"">" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ width=""2%"" align=""center""><font size=""" & strHeaderFontSize+1 & """ color=""" & strForumFontColor & """><b>ID</b></font></td>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ width=""2%"" align=""center""><font size=""" & strHeaderFontSize+1 & """ color=""" & strForumFontColor & """><b>NAME</b></font></td>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ width=""2%"" align=""center""><font size=""" & strHeaderFontSize+1 & """ color=""" & strForumFontColor & """><b>POSTS</b></font></td>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ width=""2%"" align=""center""><font size=""" & strHeaderFontSize+1 & """ color=""" & strForumFontColor & """><b>SIGNATURE</b></font></td>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ width=""2%"" align=""center""><font size=""" & strHeaderFontSize+1 & """ color=""" & strForumFontColor & """><b>LINK 1</b></font></td>" & vbNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ width=""2%"" align=""center""><font size=""" & strHeaderFontSize+1 & """ color=""" & strForumFontColor & """><b>LINK 2</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Set rsTopic = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_SIG, M_POSTS, M_LINK1, M_LINK2 FROM forum_members where instr(M_SIG,'http') > 0 AND instr(M_SIG,'" & strForumURL & "') = 0 AND instr(M_SIG,'.jpg') = 0 AND instr(M_SIG,'.gif') = 0 AND instr(M_SIG,'.png') = 0 AND instr(M_SIG,'youtube') = 0"
set rsTopic = my_Conn.Execute(strSql)
if rsTopic.EOF then
Response.Write "<tr><td width=""2%""> </td><td width=""8%""> </td><td width=""5%""> </td><td width=""55%""> </td><td width=""15%""> </td><td width=""15%""> </td></tr>"
else
thisloop = "5555555555"
lastloop = "8888888888"
c=1
inti=0
Do while not rsTopic.EOF
c=1-c
CColor = strForumCellColor
if c=1 then CColor = strForumFirstCellColor
inti=inti+1
'put current row in the variable
if rsTopic("M_STATUS") > 0 then
Response.Write " <tr><td bgcolor=""" & CColor & """ width=""2%""><a target=""_new"" href=""pop_profile.asp?mode=display&id=" & rsTopic("member_id") & """>" & rsTopic("member_id") & "</a></td><td bgcolor=""" & CColor & """ width=""8%"">" & rsTopic("M_NAME") & "</td><td bgcolor=""" & CColor & """ width=""5%"">" & rsTopic("m_posts") & "</td><td bgcolor=""" & CColor & """ width=""55%"">" & FormatStr(rsTopic("M_SIG")) & "</td><td bgcolor=""" & CColor & """ width=""15%"">" & rsTopic("m_link1") & "</td><td bgcolor=""" & CColor & """ width=""15%"">" & rsTopic("m_link2") & "</td></tr>"
end if
rsTopic.MoveNext
Loop
end if
rsTopic.Close
Set rsTopic = Nothing
Response.Write " <tr valign=""middle"">" & vbNewLine & _
" <td colspan=""6"" align=""center"" bgcolor=""" & strpopuptablecolor & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strForumFontSize & """ color=""" & strForumFontSize & """><br>There were <b>" & inti & "</b> potential spam users found in the database.</br>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
WriteFooter
%>