<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## 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 the 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 the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
function GetKey(action)
'// Create an array of characters to choose from for the key.
'// If you would like to add uppercase letters or high ASCII characters,
'// simply add them to the array, just remember to modify intNumChars
'// variable to match number of characters in the array.
intNumChars = 52
keyArray = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5")
'// This picks 32 random numbers and pulls corresponding letters from the
'// array. If you want a larger, or smaller key, simply adjust the
'// number of characters you grab.
dim key(32)
Randomize
for i = 0 to 31
key(i) = (Int(((intNumChars - 1) * Rnd) + 1))
next
'// Make the key!
strKey = ""
for j = 0 to 31
strKey = strKey & keyArray(key(j))
next
GetKey = strKey
if action = "sendemail" then
'## E-mails verification link to the new e-mail address.
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & "- Your E-mail Address Has Been Changed "
strMessage = "Hello " & Request.Form("name") & vbNewLine & vbNewLine
if Request.QueryString("mode") <> "EditIt" then
strMessage = strMessage & "You received this message from " & strForumTitle & " because someone has changed your e-mail address on the forums at " & strForumURL & vbNewLine & vbNewLine
else
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have changed your e-mail address on the forums at " & strForumURL & vbNewLine & vbNewLine
end if
strMessage = strMessage & "To complete your e-mail change, please click on the link below:" & vbNewLine & vbNewLine
strMessage = strMessage & strForumURL & "pop_profile.asp?verkey=" & strKey & vbNewLine & vbNewLine
strMessage = strMessage & "Thank You!" & vbNewLine & vbNewLine
strMessage = strMessage & "Forum Admin"
%>
<%
end if
end function
function CleanCode(fString)
if fString = "" or IsNull(fstring) then
fString = " "
else
'## left for compatibility with older versions of the forum
fString = replace(fString, "quote:
","[quote]", 1, -1, 1)
fString = replace(fString, "
","[/quote]", 1, -1, 1)
'##
fString = replace(fString, "quote:
","[quote]", 1, -1, 1)
fString = replace(fString, "
","[/quote]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "
","[/quote]", 1, -1, 1)
'##
if strAllowForumCode = "1" then
fString = replace(fString, "","[b]", 1, -1, 1)
fString = replace(fString, "","[/b]", 1, -1, 1)
fString = replace(fString, "", "[s]", 1, -1, 1)
fString = replace(fString, "", "[/s]", 1, -1, 1)
fString = replace(fString, "","[u]", 1, -1, 1)
fString = replace(fString, "","[/u]", 1, -1, 1)
fString = replace(fString, "","[i]", 1, -1, 1)
fString = replace(fString, "","[/i]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "", "[font=Andale Mono]", 1, -1, 1)
fString = replace(fString, "", "[/font=Andale Mono]", 1, -1, 1)
fString = replace(fString, "", "[font=Arial]", 1, -1, 1)
fString = replace(fString, "", "[/font=Arial]", 1, -1, 1)
fString = replace(fString, "", "[font=Arial Black]", 1, -1, 1)
fString = replace(fString, "", "[/font=Arial Black]", 1, -1, 1)
fString = replace(fString, "", "[font=Book Antiqua]", 1, -1, 1)
fString = replace(fString, "", "[/font=Book Antiqua]", 1, -1, 1)
fString = replace(fString, "", "[font=Century Gothic]", 1, -1, 1)
fString = replace(fString, "", "[/font=Century Gothic]", 1, -1, 1)
fString = replace(fString, "", "[font=Comic Sans MS]", 1, -1, 1)
fString = replace(fString, "", "[/font=Comic Sans MS]", 1, -1, 1)
fString = replace(fString, "", "[font=Courier New]", 1, -1, 1)
fString = replace(fString, "", "[/font=Courier New]", 1, -1, 1)
fString = replace(fString, "", "[font=Georgia]", 1, -1, 1)
fString = replace(fString, "", "[/font=Georgia]", 1, -1, 1)
fString = replace(fString, "", "[font=Impact]", 1, -1, 1)
fString = replace(fString, "", "[/font=Impact]", 1, -1, 1)
fString = replace(fString, "", "[font=Tahoma]", 1, -1, 1)
fString = replace(fString, "", "[/font=Tahoma]", 1, -1, 1)
fString = replace(fString, "", "[font=Times New Roman]", 1, -1, 1)
fString = replace(fString, "", "[/font=Times New Roman]", 1, -1, 1)
fString = replace(fString, "", "[font=Trebuchet MS]", 1, -1, 1)
fString = replace(fString, "", "[/font=Trebuchet MS]", 1, -1, 1)
fString = replace(fString, "", "[font=Script MT Bold]", 1, -1, 1)
fString = replace(fString, "", "[/font=Script MT Bold]", 1, -1, 1)
fString = replace(fString, "", "[font=Stencil]", 1, -1, 1)
fString = replace(fString, "", "[/font=Stencil]", 1, -1, 1)
fString = replace(fString, "", "[font=Verdana]", 1, -1, 1)
fString = replace(fString, "", "[/font=Verdana]", 1, -1, 1)
fString = replace(fString, "", "[font=Lucida Console]", 1, -1, 1)
fString = replace(fString, "", "[/font=Lucida Console]", 1, -1, 1)
'##
fString = replace(fString, "", "[font=Andale Mono]", 1, -1, 1)
fString = replace(fString, "", "[/font=Andale Mono]", 1, -1, 1)
fString = replace(fString, "", "[font=Arial]", 1, -1, 1)
fString = replace(fString, "", "[/font=Arial]", 1, -1, 1)
fString = replace(fString, "", "[font=Arial Black]", 1, -1, 1)
fString = replace(fString, "", "[/font=Arial Black]", 1, -1, 1)
fString = replace(fString, "", "[font=Book Antiqua]", 1, -1, 1)
fString = replace(fString, "", "[/font=Book Antiqua]", 1, -1, 1)
fString = replace(fString, "", "[font=Century Gothic]", 1, -1, 1)
fString = replace(fString, "", "[/font=Century Gothic]", 1, -1, 1)
fString = replace(fString, "", "[font=Comic Sans MS]", 1, -1, 1)
fString = replace(fString, "", "[/font=Comic Sans MS]", 1, -1, 1)
fString = replace(fString, "", "[font=Courier New]", 1, -1, 1)
fString = replace(fString, "", "[/font=Courier New]", 1, -1, 1)
fString = replace(fString, "", "[font=Georgia]", 1, -1, 1)
fString = replace(fString, "", "[/font=Georgia]", 1, -1, 1)
fString = replace(fString, "", "[font=Impact]", 1, -1, 1)
fString = replace(fString, "", "[/font=Impact]", 1, -1, 1)
fString = replace(fString, "", "[font=Tahoma]", 1, -1, 1)
fString = replace(fString, "", "[/font=Tahoma]", 1, -1, 1)
fString = replace(fString, "", "[font=Times New Roman]", 1, -1, 1)
fString = replace(fString, "", "[/font=Times New Roman]", 1, -1, 1)
fString = replace(fString, "", "[font=Trebuchet MS]", 1, -1, 1)
fString = replace(fString, "", "[/font=Trebuchet MS]", 1, -1, 1)
fString = replace(fString, "", "[font=Script MT Bold]", 1, -1, 1)
fString = replace(fString, "", "[/font=Script MT Bold]", 1, -1, 1)
fString = replace(fString, "", "[font=Stencil]", 1, -1, 1)
fString = replace(fString, "", "[/font=Stencil]", 1, -1, 1)
fString = replace(fString, "", "[font=Verdana]", 1, -1, 1)
fString = replace(fString, "", "[/font=Verdana]", 1, -1, 1)
fString = replace(fString, "", "[font=Lucida Console]", 1, -1, 1)
fString = replace(fString, "", "[/font=Lucida Console]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "", "[red]", 1, -1, 1)
fString = replace(fString, "", "[/red]", 1, -1, 1)
fString = replace(fString, "", "[green]", 1, -1, 1)
fString = replace(fString, "", "[/green]", 1, -1, 1)
fString = replace(fString, "", "[blue]", 1, -1, 1)
fString = replace(fString, "", "[/blue]", 1, -1, 1)
fString = replace(fString, "", "[white]", 1, -1, 1)
fString = replace(fString, "", "[/white]", 1, -1, 1)
fString = replace(fString, "", "[purple]", 1, -1, 1)
fString = replace(fString, "", "[/purple]", 1, -1, 1)
fString = replace(fString, "", "[yellow]", 1, -1, 1)
fString = replace(fString, "", "[/yellow]", 1, -1, 1)
fString = replace(fString, "", "[violet]", 1, -1, 1)
fString = replace(fString, "", "[/violet]", 1, -1, 1)
fString = replace(fString, "", "[brown]", 1, -1, 1)
fString = replace(fString, "", "[/brown]", 1, -1, 1)
fString = replace(fString, "", "[black]", 1, -1, 1)
fString = replace(fString, "", "[/black]", 1, -1, 1)
fString = replace(fString, "", "[pink]", 1, -1, 1)
fString = replace(fString, "", "[/pink]", 1, -1, 1)
fString = replace(fString, "", "[orange]", 1, -1, 1)
fString = replace(fString, "", "[/orange]", 1, -1, 1)
fString = replace(fString, "", "[gold]", 1, -1, 1)
fString = replace(fString, "", "[/gold]", 1, -1, 1)
fString = replace(fString, "", "[beige]", 1, -1, 1)
fString = replace(fString, "", "[/beige]", 1, -1, 1)
fString = replace(fString, "", "[teal]", 1, -1, 1)
fString = replace(fString, "", "[/teal]", 1, -1, 1)
fString = replace(fString, "", "[navy]", 1, -1, 1)
fString = replace(fString, "", "[/navy]", 1, -1, 1)
fString = replace(fString, "", "[maroon]", 1, -1, 1)
fString = replace(fString, "", "[/maroon]", 1, -1, 1)
fString = replace(fString, "", "[limegreen]", 1, -1, 1)
fString = replace(fString, "", "[/limegreen]", 1, -1, 1)
'##
fString = replace(fString, "", "[red]", 1, -1, 1)
fString = replace(fString, "", "[/red]", 1, -1, 1)
fString = replace(fString, "", "[green]", 1, -1, 1)
fString = replace(fString, "", "[/green]", 1, -1, 1)
fString = replace(fString, "", "[blue]", 1, -1, 1)
fString = replace(fString, "", "[/blue]", 1, -1, 1)
fString = replace(fString, "", "[white]", 1, -1, 1)
fString = replace(fString, "", "[/white]", 1, -1, 1)
fString = replace(fString, "", "[purple]", 1, -1, 1)
fString = replace(fString, "", "[/purple]", 1, -1, 1)
fString = replace(fString, "", "[yellow]", 1, -1, 1)
fString = replace(fString, "", "[/yellow]", 1, -1, 1)
fString = replace(fString, "", "[violet]", 1, -1, 1)
fString = replace(fString, "", "[/violet]", 1, -1, 1)
fString = replace(fString, "", "[brown]", 1, -1, 1)
fString = replace(fString, "", "[/brown]", 1, -1, 1)
fString = replace(fString, "", "[black]", 1, -1, 1)
fString = replace(fString, "", "[/black]", 1, -1, 1)
fString = replace(fString, "", "[pink]", 1, -1, 1)
fString = replace(fString, "", "[/pink]", 1, -1, 1)
fString = replace(fString, "", "[orange]", 1, -1, 1)
fString = replace(fString, "", "[/orange]", 1, -1, 1)
fString = replace(fString, "", "[gold]", 1, -1, 1)
fString = replace(fString, "", "[/gold]", 1, -1, 1)
fString = replace(fString, "", "[beige]", 1, -1, 1)
fString = replace(fString, "", "[/beige]", 1, -1, 1)
fString = replace(fString, "", "[teal]", 1, -1, 1)
fString = replace(fString, "", "[/teal]", 1, -1, 1)
fString = replace(fString, "", "[navy]", 1, -1, 1)
fString = replace(fString, "", "[/navy]", 1, -1, 1)
fString = replace(fString, "", "[maroon]", 1, -1, 1)
fString = replace(fString, "", "[/maroon]", 1, -1, 1)
fString = replace(fString, "", "[limegreen]", 1, -1, 1)
fString = replace(fString, "", "[/limegreen]", 1, -1, 1)
fString = replace(fString, "", "[h1]", 1, -1, 1)
fString = replace(fString, "
", "[/h1]", 1, -1, 1)
fString = replace(fString, "", "[h2]", 1, -1, 1)
fString = replace(fString, "
", "[/h2]", 1, -1, 1)
fString = replace(fString, "", "[h3]", 1, -1, 1)
fString = replace(fString, "
", "[/h3]", 1, -1, 1)
fString = replace(fString, "", "[h4]", 1, -1, 1)
fString = replace(fString, "
", "[/h4]", 1, -1, 1)
fString = replace(fString, "", "[h5]", 1, -1, 1)
fString = replace(fString, "
", "[/h5]", 1, -1, 1)
fString = replace(fString, "", "[h6]", 1, -1, 1)
fString = replace(fString, "
", "[/h6]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "", "[size=1]", 1, -1, 1)
fString = replace(fString, "", "[/size=1]", 1, -1, 1)
fString = replace(fString, "", "[size=2]", 1, -1, 1)
fString = replace(fString, "", "[/size=2]", 1, -1, 1)
fString = replace(fString, "", "[size=3]", 1, -1, 1)
fString = replace(fString, "", "[/size=3]", 1, -1, 1)
fString = replace(fString, "", "[size=4]", 1, -1, 1)
fString = replace(fString, "", "[/size=4]", 1, -1, 1)
fString = replace(fString, "", "[size=5]", 1, -1, 1)
fString = replace(fString, "", "[/size=5]", 1, -1, 1)
fString = replace(fString, "", "[size=6]", 1, -1, 1)
fString = replace(fString, "", "[/size=6]", 1, -1, 1)
'##
fString = replace(fString, "", "[size=1]", 1, -1, 1)
fString = replace(fString, "", "[/size=1]", 1, -1, 1)
fString = replace(fString, "", "[size=2]", 1, -1, 1)
fString = replace(fString, "", "[/size=2]", 1, -1, 1)
fString = replace(fString, "", "[size=3]", 1, -1, 1)
fString = replace(fString, "", "[/size=3]", 1, -1, 1)
fString = replace(fString, "", "[size=4]", 1, -1, 1)
fString = replace(fString, "", "[/size=4]", 1, -1, 1)
fString = replace(fString, "", "[size=5]", 1, -1, 1)
fString = replace(fString, "", "[/size=5]", 1, -1, 1)
fString = replace(fString, "", "[size=6]", 1, -1, 1)
fString = replace(fString, "", "[/size=6]", 1, -1, 1)
fString = replace(fString, "
","[br]", 1, -1, 1)
fString = replace(fString, "
","[hr]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "", "[left]", 1, -1, 1)
fString = replace(fString, "
", "[/left]", 1, -1, 1)
'##
fString = replace(fString, "", "[left]", 1, -1, 1)
fString = replace(fString, "
", "[/left]", 1, -1, 1)
fString = replace(fString, "","[center]", 1, -1, 1)
fString = replace(fString, "","[/center]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "", "[right]", 1, -1, 1)
fString = replace(fString, "
", "[/right]", 1, -1, 1)
'##
fString = replace(fString, "", "[right]", 1, -1, 1)
fString = replace(fString, "
", "[/right]", 1, -1, 1)
fString = replace(fString, "","[list]", 1, -1, 1)
fString = replace(fString, "
","[/list]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "","[list=1]", 1, -1, 1)
fString = replace(fString, "
","[/list=1]", 1, -1, 1)
fString = replace(fString, "","[list=a]", 1, -1, 1)
fString = replace(fString, "
","[/list=a]", 1, -1, 1)
'##
fString = replace(fString, "","[list=1]", 1, -1, 1)
fString = replace(fString, "
","[/list=1]", 1, -1, 1)
fString = replace(fString, "","[list=a]", 1, -1, 1)
fString = replace(fString, "
","[/list=a]", 1, -1, 1)
fString = replace(fString, "","[*]", 1, -1, 1)
fString = replace(fString, "","[/*]", 1, -1, 1)
'## left for compatibility with older versions of the forum
fString = replace(fString, "","[code]", 1, -1, 1)
fString = replace(fString, "
","[/code]", 1, -1, 1)
'##
fString = replace(fString, "","[code]", 1, -1, 1)
fString = replace(fString, "
","[/code]", 1, -1, 1)
end if
if strIcons = "1" then
'## left for compatibility with older versions of the forum
fString = replace(fString, "
", "[:(!]", 1, -1, 1)
fString = replace(fString, "
", "[B)]", 1, -1, 1)
fString = replace(fString, "
", "[xx(]", 1, -1, 1)
fString = replace(fString, "", "[XX(]", 1, -1, 1)
fString = replace(fString, "
", "[:O]", 1, -1, 1)
fString = replace(fString, "", "[:o]", 1, -1, 1)
fString = replace(fString, "", "[:0]", 1, -1, 1)
fString = replace(fString, "
", "[:I]", 1, -1, 1)
fString = replace(fString, "
", "[:(]", 1, -1, 1)
fString = replace(fString, "
", "[8)]", 1, -1, 1)
fString = replace(fString, "
", "[:)]", 1, -1, 1)
fString = replace(fString, "
", "[}:)]", 1, -1, 1)
fString = replace(fString, "
", "[:D]", 1, -1, 1)
fString = replace(fString, "
", "[8D]", 1, -1, 1)
fString = replace(fString, "
", "[|)]", 1, -1, 1)
fString = replace(fString, "
", "[:o)]", 1, -1, 1)
fString = replace(fString, "", "[:O)]", 1, -1, 1)
fString = replace(fString, "", "[:0)]", 1, -1, 1)
fString = replace(fString, "
", "[:P]", 1, -1, 1)
fString = replace(fString, "", "[:p]", 1, -1, 1)
fString = replace(fString, "
", "[;)]", 1, -1, 1)
fString = replace(fString, "
", "[8]", 1, -1, 1)
fString = replace(fString, "
", "[?]", 1, -1, 1)
fString = replace(fString, "
", "[^]", 1, -1, 1)
fString = replace(fString, "
", "[V]", 1, -1, 1)
fString = replace(fString, "", "[v]", 1, -1, 1)
fString = replace(fString, "
", "[V]", 1, -1, 1)
fString = replace(fString, "", "[v]", 1, -1, 1)
fString = replace(fString, "
", "[:X]", 1, -1, 1)
fString = replace(fString, "", "[:x]", 1, -1, 1)
'##
end if
if strAllowForumCode = "1" then
if strIMGInPosts = "1" then
fString = replace(fString, "![]()
","[/img]", 1, -1, 1)
fString = replace(fString, """ id=right border=0>","[/img=right]", 1, -1, 1)
fString = replace(fString, """ id=left border=0>","[/img=left]", 1, -1, 1)
'##
fString = replace(fString, "![]()
","[/img]", 1, -1, 1)
fString = replace(fString, """ id=""right"" border=""0"">","[/img=right]", 1, -1, 1)
fString = replace(fString, """ id=""left"" border=""0"">","[/img=left]", 1, -1, 1)
end if
end if
end if
fString = Replace(fString, "'", "'")
CleanCode = fString
end function
%>