Contact us, page

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/67536?pagenum=1
04 November 2025, 21:28

Topic

thelodger
Contact us, page
28 July 2008, 18:25


Is there a mod that provides a contact us page in the forum?
If not anyone fancy making one?<

 

Replies ...

leatherlips
28 July 2008, 18:35


I've made one on my forum:

http://mangionemagic.com/forum/pop_contact_admin.asp

I actually modified it a bit from another older mod that used it as a pop up page. If you're interested in what I've done I can send you the files.<
MaD2ko0l
28 July 2008, 21:53


there used to be an addon page called "The Ramble" if i remeber correctly. it was used in Hurw and crash's portals that they had. what it would do is display all the admins/moderators details so that you could contact them...maybe if somone coudl track down a version of the portal they might be able to modify it a little to send email to an admin or something like that.

but it depeends on what you are after an how u want it to work.<
Carefree
29 July 2008, 11:50


Something like this (sends EMail to admin - that's all it does):

Code:

<%
'################################################################################
'## Snitz Forums 2000 v3.4.06
'################################################################################
'## Copyright (C) 2000-06 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
'##
'################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if Request.QueryString("ID") <> "" and IsNumeric(Request.QueryString("ID")) = True then
 intMemberID = cLng(Request.QueryString("ID"))
else
 intMemberID = 0
end if

if Request.QueryString("mode") = "DoIt" then
 Err_Msg = ""
 strSql = "SELECT M.M_RECEIVE_EMAIL, M.M_EMAIL, M.M_NAME FROM " & strMemberTablePrefix & "MEMBERS M"
 strSql = strSql & " WHERE M.MEMBER_ID = " & intAdminMemberID
 set rs = my_Conn.Execute (strSql)
 strRName = ChkString(rs("M_NAME"),"display")
 strREmail = rs("M_EMAIL")
 strRReceiveEmail = rs("M_RECEIVE_EMAIL")
 rs.close
 set rs = nothing
  if lcase(strEmail) = "1" then
   if Request.QueryString("mode") = "DoIt" then
    'Err_Msg = ""
    strSql =  "SELECT M_NAME, M_USERNAME, M_EMAIL "
    strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
    strSql = strSql & " WHERE MEMBER_ID = " & MemberID

    set rs2 = my_conn.Execute (strSql)
    YName = rs2("M_NAME")
    YEmail = rs2("M_EMAIL")
    set rs2 = nothing
   else
    YName = Request.Form("YName")
    YEmail = Request.Form("YEmail")
    if YName = "" then
     Err_Msg = Err_Msg & "<li>You must enter your UserName</li>"
    end if
    if YEmail = "" then
     Err_Msg = Err_Msg & "<li>You must give your e-mail address</li>"
    else
     if EmailField(YEmail) = 0 then
      Err_Msg = Err_Msg & "<li>You must enter a valid e-mail address</li>"
     end if
    end if
   end if
   if Request.Form("Msg") = "" then
    Err_Msg = Err_Msg & "<li>You must enter a message</li>"
   end if
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
   Response.Write(" <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center>Your EMail has been sent.</center></font></b></p>" & vbNewLine)
   Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""JavaScript:history.go(-2)"">Go Back</a></font></p><br /><br />" & vbNewLine
  else
   Response.Write(" <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem.</center></font></b></p>" & vbNewLine)
   Response.Write " <table align=""center"">" & vbNewLine & _
    "  <tr>" & vbNewLine & _
    "   <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
    "  </tr>" & vbNewLine & _
    " </table>" & vbNewLine
       Response.Write("      <p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Go Back To Enter Data.</center></a></font></p>" & vbNewLine)
   end if
 else
   Response.Write " <form action=""contact_admin.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
  "  <input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
  "  <input type=""hidden"" name=""Name"" value=""" & Name & """>" & vbNewLine & _
  "  <input type=""hidden"" name=""Email"" value=""" & Email & """>" & vbNewLine & _
  "   <table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
  "    <tr>" & vbNewLine & _
  "     <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
  "      <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact Us</font></b></td>" & vbNewLine

Response.Write "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b>" & vbNewLine & _
  "          <br>" & vbNewLine & _
  "            <table border=""0"">" & vbNewLine & _
  "              <tr>" & vbNewLine & _
  "                <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine

Response.Write "                </font></td>" & vbNewLine & _
  "              </tr>" & vbNewLine & _
  "            </table></font></td>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" cols=""50"" rows=""10""></textarea></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "      </table>" & vbNewLine & _
  "     </td>" & vbNewLine & _
  "    </tr>" & vbNewLine & _
  "   </table>" & vbNewLine & _
  "</form>" & vbNewLine
end if
WriteFooter
Response.End
%>
leatherlips
29 July 2008, 14:00


Carefree, your does not verify that anything was entered into the fields. Here is the code I have for my contact page. Just copy and paste it and name it contact_us.asp. Note that if you decided to call it something different you'll have to change line 120 to point to your page.
Code:
<%
'#################################################################################
'## Copyright (C) 2000-02 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 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 support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
if Request.QueryString("mode") = "DoIt" then
   Err_Msg = ""
   if (Request.Form("YName") = "") then 
      Err_Msg = Err_Msg & "<li>You must enter your name</li>"
   end if
   if (Request.Form("YEmail") = "") then 
      Err_Msg = Err_Msg & "<li>You Must give your e-mail address</li>"
   else
      if (EmailField(Request.Form("YEmail")) = 0) then 
         Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address</li>"
      end if
   end if
   if (Request.Form("Name") = "") then 
      Err_Msg = Err_Msg & "<li>You must enter the recipients name</li>"
   end if
   if (Request.Form("Email") = "") then 
      Err_Msg = Err_Msg & "<li>You Must enter the recipients e-mail address</li>"
   else
      if (EmailField(Request.Form("Email")) = 0) then 
         Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address for the recipient</li>"
      end if
   end if
   if (Request.Form("Msg") = "") then 
      Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
   end if
   if lcase(strEmail) = "1" then
      if (Err_Msg = "") then
         strRecipientsName = Request.Form("Name")
         strRecipients = Request.Form("Email")
         strSubject = strForumTitle
         strMessage = Request.Form("Msg") & vbNewline & vbNewline
         strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
      strFromName = Request.Form("YName")
         strSender = Request.Form("YEmail")
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
         Response.Write("      <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center>Your email has been sent</center></font></b></p>" & vbNewLine)
         Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""JavaScript:history.go(-2)"">Go Back</a></font></p><br /><br />" & vbNewLine
      else
         Response.Write("      <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
         Response.Write "      <table align=""center"">" & vbNewLine & _
               "        <tr>" & vbNewLine & _
               "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
               "        </tr>" & vbNewLine & _
               "      </table>" & vbNewLine
         Response.Write("      <p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Go Back To Enter Data</center></a></font></p>" & vbNewLine)
      end if
   end if
else 
   '## Forum_SQL
   strSql =  "SELECT M_NAME, M_USERNAME, M_EMAIL "
   strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
   strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""

   set rs = my_conn.Execute (strSql)
   if (rs.EOF or rs.BOF)  then
      Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
      Response.Write("      <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
      Response.Write "      <table align=""center"">" & vbNewLine & _
            "        <tr>" & vbNewLine & _
            "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
            "        </tr>" & vbNewLine & _
            "      </table>" & vbNewLine
      set rs = nothing
      Response.Write("      <p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
      Response.End
   else
   Name = Trim("" & rs("M_NAME"))
   Email = Trim("" & rs("M_EMAIL"))
   end if

   rs.close
   set rs = nothing

   Response.Write "      <form action=""contact_us.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
         "      <input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
         "      <input type=""hidden"" name=""Name"" value=""" & Name & """>" & vbNewLine & _
         "      <input type=""hidden"" name=""Email"" value=""" & Email & """>" & vbNewLine & _
         "      <table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
         "        <tr>" & vbNewLine & _
         "          <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
         "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _


         "<tr>" & vbNewLine & _
         "                <td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact " & strForumTitle & "</font></b></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _


         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" cols=""50"" rows=""10""></textarea></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "            </table>" & vbNewLine & _
         "          </td>" & vbNewLine & _
         "        </tr>" & vbNewLine & _
         "      </table>" & vbNewLine & _
         "      </form>" & vbNewLine
end if
WriteFooter
Response.End
%>
texanman
29 July 2008, 14:39


Hi, this is very nice but is it what he (or me wink) is looking for ? Can't we get something similar to what you have with popup from register,asp? This will only go to the Super Admin. I was hoping to see something that lists all admin names with their e-mails hidden as you have. This gives the person the option which admin to contact. Cheers<
MaD2ko0l
29 July 2008, 14:51


liek i said before..bepends on what u want exactly...i think i have an old bug reporting system that would send a pm to the admin thats knocking about. that way there no chance of spam bots filling up your email inbox and what not.
it was simple and it worked great. it woud log basic details of the user and the problem that was specifyed. i coudl dig it out if maybe thats what you want instead?<
thelodger
29 July 2008, 15:26


leatherlips, yours looks great for my needs, just two questions

1, Where does the contact us go to? is it main admin email addy or somewhere else?
2, as I don't code, how can I make a link so it shows at the top of the main forum?<
balexandre
29 July 2008, 16:09


just to let you guys know that I made mine from pop_email file, and it requests the name and email if you are not registered/logged in or it fills automatically if you already on the system smile
to test:

http://www.ga-paneuropean.com/

click on "Contacto do GAPE"

<
leatherlips
29 July 2008, 17:38


Originally posted by thelodger
1, Where does the contact us go to? is it main admin email addy or somewhere else?
2, as I don't code, how can I make a link so it shows at the top of the main forum?
1. It goes to the main admin. 2. To place a link to it open inc_header.asp.
Look for:

Code:
"          <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>"
Add the parts in red to make it look like this:

Code:
"          <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
         "          |" & vbNewline & _
"          <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>"
<
thelodger
29 July 2008, 17:59


Cheers, I will do it tomorrow as its 11pm here, but great work its much appreciated.<
thelodger
30 July 2008, 17:07


leatherlips can you check the code please, my forum died a death when I added it lol, I just removed the code and it came back to lifebigsmile<
leatherlips
30 July 2008, 17:58


Originally posted by thelodger
leatherlips can you check the code please, my forum died a death when I added it lol, I just removed the code and it came back to lifebigsmile
What error are you getting? The code I have above works fine for me.<
Carefree
30 July 2008, 17:59


Originally posted by MaD2ko0l
liek i said before..bepends on what u want exactly...i think i have an old bug reporting system that would send a pm to the admin thats knocking about. that way there no chance of spam bots filling up your email inbox and what not.
it was simple and it worked great. it woud log basic details of the user and the problem that was specifyed. i coudl dig it out if maybe thats what you want instead?
That sounds like something I'd like to play with. I'd appreciate your passing it on.<
thelodger
31 July 2008, 03:54


For some reason I am not getting an error, just a dead forum when I add that code as explained, this is what it looks like after I have added it, is this correct? obviously I have just highlighted the code I have added in red. sorry to be pain I am hopeless at this.

" <a href=""search.asp"
if Request.QueryString("FORUM_ID") <> "" then Response.Write("?FORUM_ID=" & cLng(Request.QueryString("FORUM_ID")))
Response.Write """" & dWStatus("Perform a search by keyword, date, and/or name...") & " tabindex=""-1""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>"& vbNewline & _
" |" & vbNewline & _
" <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>" '##USER SPACE mod ## Add line below ###################
if trim(strUSSwitch) <> "" then
Response.Write " |" & vbNewLine & " <a href=""user_space.asp?mode=0"" " & dWStatus("View your forum folders") & " tabindex=""-1""><acronym title=""View your forum folders"">Your Space</acronym></a>"
end if
'## End ##############################################
end sub
<
leatherlips
31 July 2008, 08:17


You need a space before the green in this section:

FAQ</acronym></a>" & vbNewline & _
Edit: I just went to your forum (I had to Google to try to find it as your link in your profile no longer exists wink)

Anyway, I noticed your last link is not FAQ but Your Space. Therefore you'll either want to add the contact link after Your Space, or keep it where I said and at the end of it add & vbNewLine & _
Here was the code should be if you keep it after the FAQ:

Code:
<a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>" & vbNewLine & _
<
MaD2ko0l
31 July 2008, 08:59


Originally posted by Carefree
That sounds like something I'd like to play with. I'd appreciate your passing it on.

sure...here are the files > Pm Bug Report < bear in mind that this was place in the root directory and the forum files were located in a directory called "forum" so some instance many need to be changed.
also some of the code may be old and may need a little update as i used to use this is snitz 3.3+ and just changed what i needed to to make it work in v3.4+<
Carefree
31 July 2008, 12:02


Thanks, I'll look at it today & modify what's necessary to make it work on the current release.<
thelodger
31 July 2008, 15:46


Nope, still no success dissapprove I have copy and pasted exactly and have added many mods with no problems, but when I change this my forum just goes offline, no error messages just a dead domain.<
leatherlips
31 July 2008, 16:06


can you post a text copy of your inc_header?<
thelodger
31 July 2008, 16:14


Thanks for looking

http://www.forumsuperstars.com/inc_header.txt

Also updated my profile, thanks for the tipoff, I never knew it was wrong.<
leatherlips
31 July 2008, 16:21


This should do it. Just replace all of this with your current inc_header.asp. Make a backup first just in case.
Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.06
'#################################################################################
'## Copyright (C) 2000-06 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
'##
'#################################################################################
%>
<!--#INCLUDE FILE="inc_func_common.asp" -->
<%

if strShowTimer = "1" then
   '### start of timer code
   '=== Zuel's Avatar Add-on -- Added to config.asp ===
'Dim StopWatch(19)
   sub StartTimer(x)
      StopWatch(x) = timer
   end sub

   function StopTimer(x)
      EndTime = Timer

      'Watch for the midnight wraparound...
      if EndTime < StopWatch(x) then
         EndTime = EndTime + (86400)
      end if

      StopTimer = EndTime - StopWatch(x)
   end function

   StartTimer 1

   '### end of timer code
end if

strArchiveTablePrefix = strTablePrefix & "A_"
strScriptName = request.servervariables("script_name")
strReferer = chkString(request.servervariables("HTTP_REFERER"),"refer")

if Application(strCookieURL & "down") then
   if not Instr(strScriptName,"admin_") > 0 then
      Response.redirect("down.asp")
   end if
end if

if strPageBGImageURL = "" then
   strTmpPageBGImageURL = ""
elseif Instr(strPageBGImageURL,"/") > 0 or Instr(strPageBGImageURL,"\") > 0 then
   strTmpPageBGImageURL = " background=""" & strPageBGImageURL & """"
else
   strTmpPageBGImageURL = " background=""" & strImageUrl & strPageBGImageURL & """"
end if

If strDBType = "" then
   Response.Write "<html>" & vbNewLine & _
         "<head>" & vbNewline & _
         "<title>" & strForumTitle & "</title>" & vbNewline


'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END   - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT

   Response.Write "</head>" & vbNewLine & _
         "<body" & strTmpPageBGImageURL & " bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """>" & vbNewLine & _
         "<table border=""0"" cellspacing=""0"" cellpadding=""5"" width=""50%"" height=""40%"" align=""center"">" & vbNewLine & _
         "  <tr>" & vbNewLine & _
         "    <td bgColor=""navyblue"" align=""center""><p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
         "<b>There has been a problem...</b><br /><br />" & _
         "Your <b>strDBType</b> is not set, please edit your <b>config.asp</b><br />to reflect your database type." & _
         "</font></p></td>" & vbNewLine & _
         "  </tr>" & vbNewLine & _
         "  <tr>" & vbNewLine & _
         "    <td align=""center""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
         "<a href=""default.asp"" target=""_top"">Click here to retry.</a></font></td>" & vbNewLine & _
         "  </tr>" & vbNewLine & _
         "</table>" & vbNewLine & _
         "</body>" & vbNewLine & _
         "</html>" & vbNewLine
   Response.End
end if

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString

if (strAuthType = "nt") then
   call NTauthenticate()
   if (ChkAccountReg() = "1") then
      call NTUser()
   end if
end if

if strGroupCategories = "1" then
   if Request.QueryString("Group") = "" then
      if Request.Cookies(strCookieURL & "GROUP") = "" Then
         Group = 2
      else
         Group = cLng(Request.Cookies(strCookieURL & "GROUP"))
      end if
   else
      Group = cLng(Request.QueryString("Group"))
   end if
   'set default
   Session(strCookieURL & "GROUP_ICON") = "icon_group_categories.gif"
   Session(strCookieURL & "GROUP_IMAGE") = strTitleImage
   'Forum_SQL - Group exists ?
   strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, GROUP_IMAGE "
   strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
   strSql = strSql & " WHERE GROUP_ID = " & Group
   set rs2 = my_Conn.Execute (strSql)
   if rs2.EOF or rs2.BOF then
      Group = 2
      strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, GROUP_IMAGE "
      strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
      strSql = strSql & " WHERE GROUP_ID = " & Group
      set rs2 = my_Conn.Execute (strSql)
   end if
   Session(strCookieURL & "GROUP_NAME") = rs2("GROUP_NAME")
   if instr(rs2("GROUP_ICON"), ".") then
      Session(strCookieURL & "GROUP_ICON") = rs2("GROUP_ICON")
   end if
   if instr(rs2("GROUP_IMAGE"), ".") then
      Session(strCookieURL & "GROUP_IMAGE") = rs2("GROUP_IMAGE")
   end if
   rs2.Close
   set rs2 = nothing
   Response.Cookies(strCookieURL & "GROUP") = Group
   Response.Cookies(strCookieURL & "GROUP").Expires =  dateAdd("d", intCookieDuration, strForumTimeAdjust)
   if Session(strCookieURL & "GROUP_IMAGE") <> "" then
      strTitleImage = Session(strCookieURL & "GROUP_IMAGE")
   end if
end if

strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
strDBNTFUserName = trim(chkString(Request.Form("Name"),"SQLString"))
if strDBNTFUserName = "" then strDBNTFUserName = trim(chkString(Request.Form("User"),"SQLString"))
if strAuthType = "nt" then
   strDBNTUserName = Session(strCookieURL & "userID")
   strDBNTFUserName = Session(strCookieURL & "userID")
end if

if strRequireReg = "1" and strDBNTUserName = "" then
   if not Instr(strScriptName,"register.asp") > 0 and _
   not Instr(strScriptName,"password.asp") > 0 and _
   not Instr(strScriptName,"faq.asp") > 0 and _
   not Instr(strScriptName,"login.asp") > 0 then
      scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
      if Request.QueryString <> "" then
         Response.Redirect("login.asp?target=" & lcase(scriptname(ubound(scriptname))) & "?" & Request.QueryString)
      else
         Response.Redirect("login.asp?target=" & lcase(scriptname(ubound(scriptname))))
      end if
   end if
end if

select case Request.Form("Method_Type")
   case "login"
      strEncodedPassword = sha256("" & Request.Form("Password"))
      select case chkUser(strDBNTFUserName, strEncodedPassword,-1)
         case 1, 2, 3, 4
            Call DoCookies(Request.Form("SavePassword"))
            strLoginStatus = 1
         case else
            strLoginStatus = 0
         end select
   case "logout"
      Call ClearCookies()
end select

if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then
   chkCookie = 1
   mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
   chkCookie = 0
else
   MemberID = -1
   mLev = 0
end if
select case Request.Form("Method_Type")
  case "login"
   if strLoginStatus = 1 then
     AUHandleLoging()
   end if
  case "logout"
    AUHandleLoging()
end select
ActiveUserTracker()
if mLev = 4 and strEmailVal = "1" and strRestrictReg = "1" and strEmail = "1" then
   '## Forum_SQL - Get membercount from DB
   strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS_PENDING WHERE M_APPROVE = " & 0

   set rs = Server.CreateObject("ADODB.Recordset")
   rs.open strSql, my_Conn

   if not rs.EOF then
      User_Count = cLng(rs("U_COUNT"))
   else
      User_Count = 0
   end if

   rs.close
   set rs = nothing
end if

Response.Write "<html>" & vbNewline & vbNewline & _
      "<head>" & vbNewline & _
      "<title>" & GetNewTitle(strScriptName) & "</title>" & vbNewline


'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END   - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<script src=""wikipedia.js""></script>"


Response.Write "<script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
      "<!-- hide from JavaScript-challenged browsers" & vbNewLine & _
      "function openWindow(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=400')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow2(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=450')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow3(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=450,scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow4(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=525')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow5(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=450,height=525,scrollbars=yes,toolbars=yes,menubar=yes,resizable=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow6(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=500,height=450,scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindowHelp(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=470,height=200,scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "// ################## Poll Mod ##################" & vbNewLine & _
      "function openPollWindow(url,w,h) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width='+w+',height='+h+',scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function submitPoll(btnPressed) {" & vbNewLine & _
      "  btnPressed.disabled=true;" & vbNewLine & _
      "  if (btnPressed.name == ""results"") {" & vbNewLine & _
      "     document.Poll.Method_Type.value = ""guest_vote"";" & vbNewLine & _
      "  } else {" & vbNewLine & _
      "     document.Poll.Method_Type.value = ""member_vote"";" & vbNewLine & _
      "  }" & vbNewLine & _
      "  document.Poll.submit();" & vbNewLine & _
      "}" & vbNewLine & _
      "// #############################################" & vbNewLine & _
      "// done hiding -->" & vbNewLine & _
      "</script>" & vbNewLine & _
      "<style type=""text/css"">" & vbNewLine & _
      "<!--" & vbNewLine & _
      "a:link    {color:" & strLinkColor & ";text-decoration:" & strLinkTextDecoration & "}" & vbNewLine & _
      "a:visited {color:" & strVisitedLinkColor & ";text-decoration:" & strVisitedTextDecoration & "}" & vbNewLine & _
      "a:hover   {color:" & strHoverFontColor & ";text-decoration:" & strHoverTextDecoration & "}" & vbNewLine & _
      "a:active  {color:" & strActiveLinkColor & ";text-decoration:" & strActiveTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:link    {color:" & strForumLinkColor & ";text-decoration:" & strForumLinkTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:visited {color:" & strForumVisitedLinkColor & ";text-decoration:" & strForumVisitedTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:hover   {color:" & strForumHoverFontColor & ";text-decoration:" & strForumHoverTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:active  {color:" & strForumActiveLinkColor & ";text-decoration:" & strForumActiveTextDecoration & "}" & vbNewLine & _
      ".spnSearchHighlight {background-color:" & strSearchHiLiteColor & "}" & vbNewLine & _
      "input.radio {background:" & strPopUpTableColor & ";color:#000000}" & vbNewLine & _
      ".quoteboxhead {margin-left:30px; margin-right:0px; margin-top:5px; margin-bottom:2px;font-family: " & strDefaultFontFace & "; font-size: 8pt}" & vbNewLine & _
".quotebox {margin-right:5px;margin-left:30px; margin-bottom:8px; margin-top:4px; padding:4px; border:1px "& strTableBorderColor &" dashed; height:auto; background-color:#F5F5F5;font-family: ""Lucida Sans Unicode"", ""Verdana"", ""sans-serif""; font-size: 9pt}" & vbNewLine & _
      "-->" & vbNewLine & _
      "</style>" & vbNewLine & _
      "</head>" & vbNewLine & _
      vbNewLine & _
      "<body" & strTmpPageBGImageURL & " bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """>" & vbNewLine & _
      "<a name=""top""></a>" & vbNewLine & _
      vbNewLine & _
      "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""100%"">" & vbNewLine & _
      "  <tr>" & vbNewLine & _
      "    <td valign=""top"" width=""33%""><a href=""default.asp"" tabindex=""-1"">" & getCurrentIcon(strTitleImage & "||",strForumTitle,"") & "</a></td>" & vbNewLine & _
      "    <td align=""center"" valign=""top"" width=""33%""><iframe allowtransparency='true' src='http://www.ladbrokes.com/ast?action=asset_req&new=0&aff_id=19283&asset_id=4042' width='468' height='60' marginwidth='0' marginheight='0' scrolling='no' frameborder='0' style='border-width:0'></iframe></iframe>" & vbNewLine & _
      "      <table border=""0"" cellPadding=""2"" cellSpacing=""0"">" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strForumTitle & "</b></font></td>" & vbNewLine & _
      "        </tr>" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine
call sForumNavigation()
Response.Write "</font></td>" & vbNewLine & _
      "        </tr>" & vbNewLine

select case Request.Form("Method_Type")

   case "login"
      Response.Write "      </table>" & vbNewLine & _
            "    </td>" & vbNewLine & _
            "  </tr>" & vbNewLine & _
            "</table>" & vbNewLine
      if strLoginStatus = 0 then
         Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Your username and/or password were incorrect.</font></p>" & vbNewLine & _
               "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Please either try again or register for an account.</font></p>" & vbNewLine
      else
         Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>You logged on successfully!</font></p>" & vbNewLine & _
               "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Thank you for your participation.</font></p>" & vbNewLine
      end if
      Response.Write "<meta http-equiv=""Refresh"" content=""2; URL=" & strReferer & """>" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strReferer & """>Back To Forum</font></a></p>" & vbNewLine & _
            "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine & _
            "  <tr>" & vbNewLine & _
            "    <td>" & vbNewLine
      WriteFooter
      Response.End
   case "logout"
      Response.Write "      </table>" & vbNewLine & _
            "    </td>" & vbNewLine & _
            "  </tr>" & vbNewLine & _
            "</table>" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>You logged out successfully!</font></p>" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Thank you for your participation.</font></p>" & vbNewLine & _
            "<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine & _
            "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine & _
            "  <tr>" & vbNewLine & _
            "    <td>" & vbNewLine
      WriteFooter
      Response.End
end select

if (mlev = 0) then
   if not(Instr(Request.ServerVariables("Path_Info"), "register.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "pop_profile.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "search.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "login.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "password.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "faq.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "post.asp") > 0) then
      Response.Write "        <form action=""" & Request.ServerVariables("URL") & """ method=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
            "        <input type=""hidden"" name=""Method_Type"" value=""login"">" & vbNewLine & _
            "        <tr>" & vbNewLine & _
            "          <td align=""center"">" & vbNewLine & _
            "            <table>" & vbNewLine & _
            "              <tr>" & vbNewLine
      if (strAuthType = "db") then
         Response.Write "                <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Username:</b></font><br />" & vbNewLine & _
               "                <input type=""text"" name=""Name"" size=""10"" maxLength=""25"" value=""""></td>" & vbNewLine & _
               "                <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Password:</b></font><br />" & vbNewLine & _
               "                <input type=""password"" name=""Password"" size=""10"" maxLength=""25"" value=""""></td>" & vbNewLine & _
               "                <td valign=""bottom"">" & vbNewLine
         if strGfxButtons = "1" then
            Response.Write "                <input src=""" & strImageUrl & "button_login.gif"" type=""image"" border=""0"" value=""Login"" id=""submit1"" name=""Login"">" & vbNewLine
         else
            Response.Write "                <input type=""submit"" value=""Login"" id=""submit1"" name=""submit1"">" & vbNewLine
         end if
         Response.Write "                </td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td colspan=""3"" align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
               "                <input type=""checkbox"" name=""SavePassWord"" value=""true"" tabindex=""-1"" CHECKED><b> Save Password</b></font></td>" & vbNewLine
      else
         if (strAuthType = "nt") then
            Response.Write "                <td><font face=""" & strDefaultFontFace & """ size=""1""  color=""" & strHiLiteFontColor & """>Please <a href=""register.asp"" tabindex=""-1"">register</a> to post in these Forums</font></td>" & vbNewLine
         end if
      end if
      Response.Write "              </tr>" & vbNewLine
      if (lcase(strEmail) = "1") then
         Response.Write "              <tr>" & vbNewLine & _
               "                <td colspan=""3"" align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
               "                <a href=""password.asp""" & dWStatus("Choose a new password if you have forgotten your current one...") & " tabindex=""-1"">Forgot your "
         if strAuthType = "nt" then Response.Write("Admin ")
         Response.Write "Password?</a>" & vbNewLine
         if (lcase(strNoCookies) = "1") then
            Response.Write "                |" & vbNewLine & _
                  "                <a href=""admin_home.asp""" & dWStatus("Access the Forum Admin Functions...") & " tabindex=""-1"">Admin Options</a>" & vbNewLine
         end if
         Response.Write "                <br /><br /></font></td>" & vbNewLine & _
               "              </tr>" & vbNewLine
      end if
      Response.Write "            </table>" & vbNewLine & _
            "          </td>" & vbNewLine & _
            "        </tr>" & vbNewLine & _
            "        </form>" & vbNewLine
   end if
else
   Response.Write "        <form action=""" & Request.ServerVariables("URL") & """ method=""post"" id=""form2"" name=""form2"">" & vbNewLine & _
         "        <input type=""hidden"" name=""Method_Type"" value=""logout"">" & vbNewLine & _
         "        <tr>" & vbNewLine & _
         "          <td align=""center"">" & vbNewLine & _
         "            <table>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>You are logged on as<br />"
   if strAuthType="nt" then
      Response.Write "<b>" & Session(strCookieURL & "username") & " (" & Session(strCookieURL & "userid") & ")</b></font></td>" & vbNewLine & _
            "                <td> "
   else
      if strAuthType = "db" then
         Response.Write "<b>" & profileLink(ChkString(strDBNTUserName, "display"),MemberID) & "</b></font></td>" & vbNewLine & _
               "                <td>"
         if strGfxButtons = "1" then
            Response.Write "<input src=""" & strImageUrl & "button_logout.gif"" type=""image"" border=""0"" value=""Logout"" id=""submit1"" name=""Logout"" tabindex=""-1"">"
         else
            Response.Write "<input type=""submit"" value=""Logout"" id=""submit1"" name=""submit1"" tabindex=""-1"">"
         end if
      end if
   end if
   Response.Write "</td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "            </table>" & vbNewLine & _
         "          </td>" & vbNewLine & _
         "        </tr>" & vbNewLine
   if (mlev = 4) or (lcase(strNoCookies) = "1") then
      Response.Write "        <tr>" & vbNewLine & _
            "          <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""admin_home.asp""" & dWStatus("Access the Forum Admin Functions...") & " tabindex=""-1"">Admin Options</a>"
      if mLev = 4 and (strEmailVal = "1" and strRestrictReg = "1" and strEmail = "1" and User_Count > 0) then Response.Write(" | <a href=""admin_accounts_pending.asp""" & dWStatus("(" & User_Count & ") Member(s) awaiting approval") & " tabindex=""-1"">(" & User_Count & ") Member(s) awaiting approval</a>")
      Response.Write "<br /><br /></font></td>" & vbNewLine & _
            "        </tr>" & vbNewLine
   end if
   Response.Write "        </form>" & vbNewLine
end if
Response.Write "      </table>" & vbNewLine & _
      "    </td>" & vbNewLine & _
      "  </tr>" & vbNewLine & _
      "</table>" & vbNewLine & _
      "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine
'########### GROUP Categories ########### %>
<!--#INCLUDE FILE="inc_groupjump_to.asp" -->
<% '######## GROUP Categories ##############
Response.Write "  <tr>" & vbNewLine & _
      "    <td>" & vbNewLine

sub sForumNavigation()
   ' DEM --> Added code to show the subscription line
   if strSubscription > 0 and strEmail = "1" then
      if mlev > 0 then
         strSql = "SELECT COUNT(*) AS MySubCount FROM " & strTablePrefix & "SUBSCRIPTIONS"
         strSql = strSql & " WHERE MEMBER_ID = " & MemberID
         set rsCount = my_Conn.Execute (strSql)
         if rsCount.BOF or rsCount.EOF then
            ' No Subscriptions found, do nothing
            MySubCount = 0
            rsCount.Close
            set rsCount = nothing
         else
            MySubCount = rsCount("MySubCount")
            rsCount.Close
            set rsCount = nothing
         end if
         if mLev = 4 then
            strSql = "SELECT COUNT(*) AS SubCount FROM " & strTablePrefix & "SUBSCRIPTIONS"
            set rsCount = my_Conn.Execute (strSql)
            if rsCount.BOF or rsCount.EOF then
               ' No Subscriptions found, do nothing
               SubCount = 0
               rsCount.Close
               set rsCount = nothing
            else
               SubCount = rsCount("SubCount")
               rsCount.Close
               set rsCount = nothing
            end if
         end if
      else
         SubCount = 0
         MySubCount = 0
      end if
   else
      SubCount = 0
      MySubCount = 0
   end if
   Response.Write "          <a href=""" & strHomeURL & """" & dWStatus("Homepage") & " tabindex=""-1""><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
         "          |" & vbNewline
   if strUseExtendedProfile then
      Response.Write "          <a href=""pop_profile.asp?mode=Edit""" & dWStatus("Edit your personal profile...") & " tabindex=""-1""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
   else
      Response.Write "          <a href=""javascript:openWindow3('pop_profile.asp?mode=Edit')""" & dWStatus("Edit your personal profile...") & " tabindex=""-1""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
   end if
   if strAutoLogon <> "1" then
      if strProhibitNewMembers <> "1" then
         Response.Write "          |" & vbNewline & _
               "          <a href=""register.asp""" & dWStatus("Register to post to our forum...") & " tabindex=""-1""><acronym title=""Register to post to our forum..."">Register</acronym></a>" & vbNewline
      end if
   end if
   Response.Write "          |" & vbNewline & _
         "          <a href=""active.asp""" & dWStatus("See what topics have been active since your last visit...") & " tabindex=""-1""><acronym title=""See what topics have been active since your last visit..."">Active Topics</acronym></a>" & vbNewline
Response.Write "          |" & vbNewline & _
         "          <a href=""rules.asp""" & dWStatus("Read the rules for this forum...") & " tabindex=""-1""><acronym title=""Read the rules of this forum..."">Forum Rules</acronym></a>" & vbNewline
 '##################### proeder's file attachment mod: Link to Myfiles.asp ##################################
if strAllowAttachment = "1" then

   Response.Write "          <a href=""myfiles.asp""" & dWStatus("My Files") & " tabindex=""-1""><acronym title=""My files"">My Files</acronym></a>" & vbNewline & _
      "          |" & vbNewline
end if
'###########################################################################################################
' ################################# Poll Mod ####################################
   Response.Write "          |"  & vbNewline & _
         "          <a href=""active_polls.asp""" & dWStatus("See all the active polls...") & " tabindex=""-1""><acronym title=""See all the active polls..."">Active Polls</acronym></a>" & vbNewline
' ##############################################################################
   ' DEM --> Start of code added to show subscriptions if they exist
   if (strSubscription > 0) then
      if mlev = 4 and SubCount > 0 then
         Response.Write "          |" & vbNewline & _
               "          <a href=""subscription_list.asp?MODE=all""" & dWStatus("See all current subscriptions") & " tabindex=""-1""><acronym title=""See all current subscriptions"">All Subscriptions</acronym></a>" & vbNewline
      end if
      if MySubCount > 0 then
         Response.Write "          |" & vbNewline & _
               "          <a href=""subscription_list.asp""" & dWStatus("See all of your subscriptions") & " tabindex=""-1""><acronym title=""See all of your subscriptions"">My Subscriptions</acronym></a>" & vbNewline
      end if
   end if
   ' DEM --> End of Code added to show subscriptions if they exist
   Response.Write "          |" & vbNewline & _
         "          <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
         "          |" & vbNewline & _
          "   <a href=""disclaimer.asp"" target=""_self"">Disclaimer</a> | " & vbNewLine & _
         "          |" & vbNewline & _
         "          <a href=""search.asp"
   if Request.QueryString("FORUM_ID") <> "" then Response.Write("?FORUM_ID=" & cLng(Request.QueryString("FORUM_ID")))
   Response.Write """" & dWStatus("Perform a search by keyword, date, and/or name...") & " tabindex=""-1""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
         "          |" & vbNewline & _
         "          <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
         " |" & vbNewline & _
         "          <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>"

'##USER SPACE mod ## Add line below ###################
        if trim(strUSSwitch) <> "" then
                Response.Write  "          |" & vbNewLine & "          <a href=""user_space.asp?mode=0"" " & dWStatus("View your forum folders") & " tabindex=""-1""><acronym title=""View your forum folders"">Your Space</acronym></a>"
        end if
'## End ##############################################
end sub

if strGroupCategories = "1" then
   if Session(strCookieURL & "GROUP_NAME") = "" then
      GROUPNAME = " Default Groups "
   else
      GROUPNAME = Session(strCookieURL & "GROUP_NAME")
   end if
   'Forum_SQL - Get Groups
   strSql = "SELECT GROUP_ID, GROUP_CATID "
   strSql = strSql & " FROM " & strTablePrefix & "GROUPS "
   strSql = strSql & " WHERE GROUP_ID = " & Group
   set rsgroups = Server.CreateObject("ADODB.Recordset")
   rsgroups.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
   if rsgroups.EOF then
      recGroupCatCount = ""
   else
      allGroupCatData = rsgroups.GetRows(adGetRowsRest)
      recGroupCatCount = UBound(allGroupCatData, 2)
   end if
   rsgroups.Close
   set rsgroups = nothing
end if
%>
<!--#INCLUDE FILE="inc_ipgate.asp"-->
thelodger
31 July 2008, 16:25


Great, sorted thanks very much for all your help.<
leatherlips
31 July 2008, 16:26


I noticed your forum header links have extra lines in them. There is also one line missing (shown in green). If you want, I can fix that for you too.
Home | Profile | Register | Active Topics | Forum Rules <font color="green">|</font id="green"> My Files | <font color="red">|</font id="red"> Active Polls | Members | Disclaimer | <font color="red">|</font id="red"> Search | FAQ | Your Space

Here is the new page with the lines fixed:

Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.06
'#################################################################################
'## Copyright (C) 2000-06 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
'##
'#################################################################################
%>
<!--#INCLUDE FILE="inc_func_common.asp" -->
<%

if strShowTimer = "1" then
   '### start of timer code
   '=== Zuel's Avatar Add-on -- Added to config.asp ===
'Dim StopWatch(19)
   sub StartTimer(x)
      StopWatch(x) = timer
   end sub

   function StopTimer(x)
      EndTime = Timer

      'Watch for the midnight wraparound...
      if EndTime < StopWatch(x) then
         EndTime = EndTime + (86400)
      end if

      StopTimer = EndTime - StopWatch(x)
   end function

   StartTimer 1

   '### end of timer code
end if

strArchiveTablePrefix = strTablePrefix & "A_"
strScriptName = request.servervariables("script_name")
strReferer = chkString(request.servervariables("HTTP_REFERER"),"refer")

if Application(strCookieURL & "down") then
   if not Instr(strScriptName,"admin_") > 0 then
      Response.redirect("down.asp")
   end if
end if

if strPageBGImageURL = "" then
   strTmpPageBGImageURL = ""
elseif Instr(strPageBGImageURL,"/") > 0 or Instr(strPageBGImageURL,"\") > 0 then
   strTmpPageBGImageURL = " background=""" & strPageBGImageURL & """"
else
   strTmpPageBGImageURL = " background=""" & strImageUrl & strPageBGImageURL & """"
end if

If strDBType = "" then
   Response.Write "<html>" & vbNewLine & _
         "<head>" & vbNewline & _
         "<title>" & strForumTitle & "</title>" & vbNewline


'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END   - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT

   Response.Write "</head>" & vbNewLine & _
         "<body" & strTmpPageBGImageURL & " bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """>" & vbNewLine & _
         "<table border=""0"" cellspacing=""0"" cellpadding=""5"" width=""50%"" height=""40%"" align=""center"">" & vbNewLine & _
         "  <tr>" & vbNewLine & _
         "    <td bgColor=""navyblue"" align=""center""><p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
         "<b>There has been a problem...</b><br /><br />" & _
         "Your <b>strDBType</b> is not set, please edit your <b>config.asp</b><br />to reflect your database type." & _
         "</font></p></td>" & vbNewLine & _
         "  </tr>" & vbNewLine & _
         "  <tr>" & vbNewLine & _
         "    <td align=""center""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
         "<a href=""default.asp"" target=""_top"">Click here to retry.</a></font></td>" & vbNewLine & _
         "  </tr>" & vbNewLine & _
         "</table>" & vbNewLine & _
         "</body>" & vbNewLine & _
         "</html>" & vbNewLine
   Response.End
end if

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString

if (strAuthType = "nt") then
   call NTauthenticate()
   if (ChkAccountReg() = "1") then
      call NTUser()
   end if
end if

if strGroupCategories = "1" then
   if Request.QueryString("Group") = "" then
      if Request.Cookies(strCookieURL & "GROUP") = "" Then
         Group = 2
      else
         Group = cLng(Request.Cookies(strCookieURL & "GROUP"))
      end if
   else
      Group = cLng(Request.QueryString("Group"))
   end if
   'set default
   Session(strCookieURL & "GROUP_ICON") = "icon_group_categories.gif"
   Session(strCookieURL & "GROUP_IMAGE") = strTitleImage
   'Forum_SQL - Group exists ?
   strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, GROUP_IMAGE "
   strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
   strSql = strSql & " WHERE GROUP_ID = " & Group
   set rs2 = my_Conn.Execute (strSql)
   if rs2.EOF or rs2.BOF then
      Group = 2
      strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, GROUP_IMAGE "
      strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES "
      strSql = strSql & " WHERE GROUP_ID = " & Group
      set rs2 = my_Conn.Execute (strSql)
   end if
   Session(strCookieURL & "GROUP_NAME") = rs2("GROUP_NAME")
   if instr(rs2("GROUP_ICON"), ".") then
      Session(strCookieURL & "GROUP_ICON") = rs2("GROUP_ICON")
   end if
   if instr(rs2("GROUP_IMAGE"), ".") then
      Session(strCookieURL & "GROUP_IMAGE") = rs2("GROUP_IMAGE")
   end if
   rs2.Close
   set rs2 = nothing
   Response.Cookies(strCookieURL & "GROUP") = Group
   Response.Cookies(strCookieURL & "GROUP").Expires =  dateAdd("d", intCookieDuration, strForumTimeAdjust)
   if Session(strCookieURL & "GROUP_IMAGE") <> "" then
      strTitleImage = Session(strCookieURL & "GROUP_IMAGE")
   end if
end if

strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
strDBNTFUserName = trim(chkString(Request.Form("Name"),"SQLString"))
if strDBNTFUserName = "" then strDBNTFUserName = trim(chkString(Request.Form("User"),"SQLString"))
if strAuthType = "nt" then
   strDBNTUserName = Session(strCookieURL & "userID")
   strDBNTFUserName = Session(strCookieURL & "userID")
end if

if strRequireReg = "1" and strDBNTUserName = "" then
   if not Instr(strScriptName,"register.asp") > 0 and _
   not Instr(strScriptName,"password.asp") > 0 and _
   not Instr(strScriptName,"faq.asp") > 0 and _
   not Instr(strScriptName,"login.asp") > 0 then
      scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
      if Request.QueryString <> "" then
         Response.Redirect("login.asp?target=" & lcase(scriptname(ubound(scriptname))) & "?" & Request.QueryString)
      else
         Response.Redirect("login.asp?target=" & lcase(scriptname(ubound(scriptname))))
      end if
   end if
end if

select case Request.Form("Method_Type")
   case "login"
      strEncodedPassword = sha256("" & Request.Form("Password"))
      select case chkUser(strDBNTFUserName, strEncodedPassword,-1)
         case 1, 2, 3, 4
            Call DoCookies(Request.Form("SavePassword"))
            strLoginStatus = 1
         case else
            strLoginStatus = 0
         end select
   case "logout"
      Call ClearCookies()
end select

if trim(strDBNTUserName) <> "" and trim(Request.Cookies(strUniqueID & "User")("Pword")) <> "" then
   chkCookie = 1
   mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
   chkCookie = 0
else
   MemberID = -1
   mLev = 0
end if
select case Request.Form("Method_Type")
  case "login"
   if strLoginStatus = 1 then
     AUHandleLoging()
   end if
  case "logout"
    AUHandleLoging()
end select
ActiveUserTracker()
if mLev = 4 and strEmailVal = "1" and strRestrictReg = "1" and strEmail = "1" then
   '## Forum_SQL - Get membercount from DB
   strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS_PENDING WHERE M_APPROVE = " & 0

   set rs = Server.CreateObject("ADODB.Recordset")
   rs.open strSql, my_Conn

   if not rs.EOF then
      User_Count = cLng(rs("U_COUNT"))
   else
      User_Count = 0
   end if

   rs.close
   set rs = nothing
end if

Response.Write "<html>" & vbNewline & vbNewline & _
      "<head>" & vbNewline & _
      "<title>" & GetNewTitle(strScriptName) & "</title>" & vbNewline


'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END   - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<script src=""wikipedia.js""></script>"


Response.Write "<script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
      "<!-- hide from JavaScript-challenged browsers" & vbNewLine & _
      "function openWindow(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=400')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow2(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=450')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow3(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=450,scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow4(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=400,height=525')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow5(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=450,height=525,scrollbars=yes,toolbars=yes,menubar=yes,resizable=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindow6(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=500,height=450,scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function openWindowHelp(url) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width=470,height=200,scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "// ################## Poll Mod ##################" & vbNewLine & _
      "function openPollWindow(url,w,h) {" & vbNewLine & _
      "  popupWin = window.open(url,'new_page','width='+w+',height='+h+',scrollbars=yes')" & vbNewLine & _
      "}" & vbNewLine & _
      "function submitPoll(btnPressed) {" & vbNewLine & _
      "  btnPressed.disabled=true;" & vbNewLine & _
      "  if (btnPressed.name == ""results"") {" & vbNewLine & _
      "     document.Poll.Method_Type.value = ""guest_vote"";" & vbNewLine & _
      "  } else {" & vbNewLine & _
      "     document.Poll.Method_Type.value = ""member_vote"";" & vbNewLine & _
      "  }" & vbNewLine & _
      "  document.Poll.submit();" & vbNewLine & _
      "}" & vbNewLine & _
      "// #############################################" & vbNewLine & _
      "// done hiding -->" & vbNewLine & _
      "</script>" & vbNewLine & _
      "<style type=""text/css"">" & vbNewLine & _
      "<!--" & vbNewLine & _
      "a:link    {color:" & strLinkColor & ";text-decoration:" & strLinkTextDecoration & "}" & vbNewLine & _
      "a:visited {color:" & strVisitedLinkColor & ";text-decoration:" & strVisitedTextDecoration & "}" & vbNewLine & _
      "a:hover   {color:" & strHoverFontColor & ";text-decoration:" & strHoverTextDecoration & "}" & vbNewLine & _
      "a:active  {color:" & strActiveLinkColor & ";text-decoration:" & strActiveTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:link    {color:" & strForumLinkColor & ";text-decoration:" & strForumLinkTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:visited {color:" & strForumVisitedLinkColor & ";text-decoration:" & strForumVisitedTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:hover   {color:" & strForumHoverFontColor & ";text-decoration:" & strForumHoverTextDecoration & "}" & vbNewLine & _
      ".spnMessageText a:active  {color:" & strForumActiveLinkColor & ";text-decoration:" & strForumActiveTextDecoration & "}" & vbNewLine & _
      ".spnSearchHighlight {background-color:" & strSearchHiLiteColor & "}" & vbNewLine & _
      "input.radio {background:" & strPopUpTableColor & ";color:#000000}" & vbNewLine & _
      ".quoteboxhead {margin-left:30px; margin-right:0px; margin-top:5px; margin-bottom:2px;font-family: " & strDefaultFontFace & "; font-size: 8pt}" & vbNewLine & _
".quotebox {margin-right:5px;margin-left:30px; margin-bottom:8px; margin-top:4px; padding:4px; border:1px "& strTableBorderColor &" dashed; height:auto; background-color:#F5F5F5;font-family: ""Lucida Sans Unicode"", ""Verdana"", ""sans-serif""; font-size: 9pt}" & vbNewLine & _
      "-->" & vbNewLine & _
      "</style>" & vbNewLine & _
      "</head>" & vbNewLine & _
      vbNewLine & _
      "<body" & strTmpPageBGImageURL & " bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """>" & vbNewLine & _
      "<a name=""top""></a>" & vbNewLine & _
      vbNewLine & _
      "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""100%"">" & vbNewLine & _
      "  <tr>" & vbNewLine & _
      "    <td valign=""top"" width=""33%""><a href=""default.asp"" tabindex=""-1"">" & getCurrentIcon(strTitleImage & "||",strForumTitle,"") & "</a></td>" & vbNewLine & _
      "    <td align=""center"" valign=""top"" width=""33%""><iframe allowtransparency='true' src='http://www.ladbrokes.com/ast?action=asset_req&new=0&aff_id=19283&asset_id=4042' width='468' height='60' marginwidth='0' marginheight='0' scrolling='no' frameborder='0' style='border-width:0'></iframe></iframe>" & vbNewLine & _
      "      <table border=""0"" cellPadding=""2"" cellSpacing=""0"">" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strForumTitle & "</b></font></td>" & vbNewLine & _
      "        </tr>" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine
call sForumNavigation()
Response.Write "</font></td>" & vbNewLine & _
      "        </tr>" & vbNewLine

select case Request.Form("Method_Type")

   case "login"
      Response.Write "      </table>" & vbNewLine & _
            "    </td>" & vbNewLine & _
            "  </tr>" & vbNewLine & _
            "</table>" & vbNewLine
      if strLoginStatus = 0 then
         Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Your username and/or password were incorrect.</font></p>" & vbNewLine & _
               "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Please either try again or register for an account.</font></p>" & vbNewLine
      else
         Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>You logged on successfully!</font></p>" & vbNewLine & _
               "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Thank you for your participation.</font></p>" & vbNewLine
      end if
      Response.Write "<meta http-equiv=""Refresh"" content=""2; URL=" & strReferer & """>" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strReferer & """>Back To Forum</font></a></p>" & vbNewLine & _
            "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine & _
            "  <tr>" & vbNewLine & _
            "    <td>" & vbNewLine
      WriteFooter
      Response.End
   case "logout"
      Response.Write "      </table>" & vbNewLine & _
            "    </td>" & vbNewLine & _
            "  </tr>" & vbNewLine & _
            "</table>" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>You logged out successfully!</font></p>" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Thank you for your participation.</font></p>" & vbNewLine & _
            "<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine & _
            "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine & _
            "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine & _
            "  <tr>" & vbNewLine & _
            "    <td>" & vbNewLine
      WriteFooter
      Response.End
end select

if (mlev = 0) then
   if not(Instr(Request.ServerVariables("Path_Info"), "register.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "pop_profile.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "search.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "login.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "password.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "faq.asp") > 0) and _
   not(Instr(Request.ServerVariables("Path_Info"), "post.asp") > 0) then
      Response.Write "        <form action=""" & Request.ServerVariables("URL") & """ method=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
            "        <input type=""hidden"" name=""Method_Type"" value=""login"">" & vbNewLine & _
            "        <tr>" & vbNewLine & _
            "          <td align=""center"">" & vbNewLine & _
            "            <table>" & vbNewLine & _
            "              <tr>" & vbNewLine
      if (strAuthType = "db") then
         Response.Write "                <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Username:</b></font><br />" & vbNewLine & _
               "                <input type=""text"" name=""Name"" size=""10"" maxLength=""25"" value=""""></td>" & vbNewLine & _
               "                <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Password:</b></font><br />" & vbNewLine & _
               "                <input type=""password"" name=""Password"" size=""10"" maxLength=""25"" value=""""></td>" & vbNewLine & _
               "                <td valign=""bottom"">" & vbNewLine
         if strGfxButtons = "1" then
            Response.Write "                <input src=""" & strImageUrl & "button_login.gif"" type=""image"" border=""0"" value=""Login"" id=""submit1"" name=""Login"">" & vbNewLine
         else
            Response.Write "                <input type=""submit"" value=""Login"" id=""submit1"" name=""submit1"">" & vbNewLine
         end if
         Response.Write "                </td>" & vbNewLine & _
               "              </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td colspan=""3"" align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
               "                <input type=""checkbox"" name=""SavePassWord"" value=""true"" tabindex=""-1"" CHECKED><b> Save Password</b></font></td>" & vbNewLine
      else
         if (strAuthType = "nt") then
            Response.Write "                <td><font face=""" & strDefaultFontFace & """ size=""1""  color=""" & strHiLiteFontColor & """>Please <a href=""register.asp"" tabindex=""-1"">register</a> to post in these Forums</font></td>" & vbNewLine
         end if
      end if
      Response.Write "              </tr>" & vbNewLine
      if (lcase(strEmail) = "1") then
         Response.Write "              <tr>" & vbNewLine & _
               "                <td colspan=""3"" align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
               "                <a href=""password.asp""" & dWStatus("Choose a new password if you have forgotten your current one...") & " tabindex=""-1"">Forgot your "
         if strAuthType = "nt" then Response.Write("Admin ")
         Response.Write "Password?</a>" & vbNewLine
         if (lcase(strNoCookies) = "1") then
            Response.Write "                |" & vbNewLine & _
                  "                <a href=""admin_home.asp""" & dWStatus("Access the Forum Admin Functions...") & " tabindex=""-1"">Admin Options</a>" & vbNewLine
         end if
         Response.Write "                <br /><br /></font></td>" & vbNewLine & _
               "              </tr>" & vbNewLine
      end if
      Response.Write "            </table>" & vbNewLine & _
            "          </td>" & vbNewLine & _
            "        </tr>" & vbNewLine & _
            "        </form>" & vbNewLine
   end if
else
   Response.Write "        <form action=""" & Request.ServerVariables("URL") & """ method=""post"" id=""form2"" name=""form2"">" & vbNewLine & _
         "        <input type=""hidden"" name=""Method_Type"" value=""logout"">" & vbNewLine & _
         "        <tr>" & vbNewLine & _
         "          <td align=""center"">" & vbNewLine & _
         "            <table>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>You are logged on as<br />"
   if strAuthType="nt" then
      Response.Write "<b>" & Session(strCookieURL & "username") & " (" & Session(strCookieURL & "userid") & ")</b></font></td>" & vbNewLine & _
            "                <td> "
   else
      if strAuthType = "db" then
         Response.Write "<b>" & profileLink(ChkString(strDBNTUserName, "display"),MemberID) & "</b></font></td>" & vbNewLine & _
               "                <td>"
         if strGfxButtons = "1" then
            Response.Write "<input src=""" & strImageUrl & "button_logout.gif"" type=""image"" border=""0"" value=""Logout"" id=""submit1"" name=""Logout"" tabindex=""-1"">"
         else
            Response.Write "<input type=""submit"" value=""Logout"" id=""submit1"" name=""submit1"" tabindex=""-1"">"
         end if
      end if
   end if
   Response.Write "</td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "            </table>" & vbNewLine & _
         "          </td>" & vbNewLine & _
         "        </tr>" & vbNewLine
   if (mlev = 4) or (lcase(strNoCookies) = "1") then
      Response.Write "        <tr>" & vbNewLine & _
            "          <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""admin_home.asp""" & dWStatus("Access the Forum Admin Functions...") & " tabindex=""-1"">Admin Options</a>"
      if mLev = 4 and (strEmailVal = "1" and strRestrictReg = "1" and strEmail = "1" and User_Count > 0) then Response.Write(" | <a href=""admin_accounts_pending.asp""" & dWStatus("(" & User_Count & ") Member(s) awaiting approval") & " tabindex=""-1"">(" & User_Count & ") Member(s) awaiting approval</a>")
      Response.Write "<br /><br /></font></td>" & vbNewLine & _
            "        </tr>" & vbNewLine
   end if
   Response.Write "        </form>" & vbNewLine
end if
Response.Write "      </table>" & vbNewLine & _
      "    </td>" & vbNewLine & _
      "  </tr>" & vbNewLine & _
      "</table>" & vbNewLine & _
      "<table align=""center"" border=""0"" cellPadding=""0"" cellSpacing=""0"" width=""95%"">" & vbNewLine
'########### GROUP Categories ########### %>
<!--#INCLUDE FILE="inc_groupjump_to.asp" -->
<% '######## GROUP Categories ##############
Response.Write "  <tr>" & vbNewLine & _
      "    <td>" & vbNewLine

sub sForumNavigation()
   ' DEM --> Added code to show the subscription line
   if strSubscription > 0 and strEmail = "1" then
      if mlev > 0 then
         strSql = "SELECT COUNT(*) AS MySubCount FROM " & strTablePrefix & "SUBSCRIPTIONS"
         strSql = strSql & " WHERE MEMBER_ID = " & MemberID
         set rsCount = my_Conn.Execute (strSql)
         if rsCount.BOF or rsCount.EOF then
            ' No Subscriptions found, do nothing
            MySubCount = 0
            rsCount.Close
            set rsCount = nothing
         else
            MySubCount = rsCount("MySubCount")
            rsCount.Close
            set rsCount = nothing
         end if
         if mLev = 4 then
            strSql = "SELECT COUNT(*) AS SubCount FROM " & strTablePrefix & "SUBSCRIPTIONS"
            set rsCount = my_Conn.Execute (strSql)
            if rsCount.BOF or rsCount.EOF then
               ' No Subscriptions found, do nothing
               SubCount = 0
               rsCount.Close
               set rsCount = nothing
            else
               SubCount = rsCount("SubCount")
               rsCount.Close
               set rsCount = nothing
            end if
         end if
      else
         SubCount = 0
         MySubCount = 0
      end if
   else
      SubCount = 0
      MySubCount = 0
   end if
   Response.Write "          <a href=""" & strHomeURL & """" & dWStatus("Homepage") & " tabindex=""-1""><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
         "          |" & vbNewline
   if strUseExtendedProfile then
      Response.Write "          <a href=""pop_profile.asp?mode=Edit""" & dWStatus("Edit your personal profile...") & " tabindex=""-1""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
   else
      Response.Write "          <a href=""javascript:openWindow3('pop_profile.asp?mode=Edit')""" & dWStatus("Edit your personal profile...") & " tabindex=""-1""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
   end if
   if strAutoLogon <> "1" then
      if strProhibitNewMembers <> "1" then
         Response.Write "          |" & vbNewline & _
               "          <a href=""register.asp""" & dWStatus("Register to post to our forum...") & " tabindex=""-1""><acronym title=""Register to post to our forum..."">Register</acronym></a>" & vbNewline
      end if
   end if
   Response.Write "          |" & vbNewline & _
         "          <a href=""active.asp""" & dWStatus("See what topics have been active since your last visit...") & " tabindex=""-1""><acronym title=""See what topics have been active since your last visit..."">Active Topics</acronym></a>" & vbNewline
Response.Write "          |" & vbNewline & _
         "          <a href=""rules.asp""" & dWStatus("Read the rules for this forum...") & " tabindex=""-1""><acronym title=""Read the rules of this forum..."">Forum Rules</acronym></a>" & vbNewline
 '##################### proeder's file attachment mod: Link to Myfiles.asp ##################################
if strAllowAttachment = "1" then
   Response.Write "          |" & vbNewline & _
                  "          <a href=""myfiles.asp""" & dWStatus("My Files") & " tabindex=""-1""><acronym title=""My files"">My Files</acronym></a>" & vbNewline
end if
'###########################################################################################################
' ################################# Poll Mod ####################################
   Response.Write "          |"  & vbNewline & _
         "          <a href=""active_polls.asp""" & dWStatus("See all the active polls...") & " tabindex=""-1""><acronym title=""See all the active polls..."">Active Polls</acronym></a>" & vbNewline
' ##############################################################################
   ' DEM --> Start of code added to show subscriptions if they exist
   if (strSubscription > 0) then
      if mlev = 4 and SubCount > 0 then
         Response.Write "          |" & vbNewline & _
               "          <a href=""subscription_list.asp?MODE=all""" & dWStatus("See all current subscriptions") & " tabindex=""-1""><acronym title=""See all current subscriptions"">All Subscriptions</acronym></a>" & vbNewline
      end if
      if MySubCount > 0 then
         Response.Write "          |" & vbNewline & _
               "          <a href=""subscription_list.asp""" & dWStatus("See all of your subscriptions") & " tabindex=""-1""><acronym title=""See all of your subscriptions"">My Subscriptions</acronym></a>" & vbNewline
      end if
   end if
   ' DEM --> End of Code added to show subscriptions if they exist
   Response.Write "          |" & vbNewline & _
         "          <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
         "          |" & vbNewline & _
          "   <a href=""disclaimer.asp"" target=""_self"">Disclaimer</a>" & vbNewLine & _
         "          |" & vbNewline & _
         "          <a href=""search.asp"
   if Request.QueryString("FORUM_ID") <> "" then Response.Write("?FORUM_ID=" & cLng(Request.QueryString("FORUM_ID")))
   Response.Write """" & dWStatus("Perform a search by keyword, date, and/or name...") & " tabindex=""-1""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
         "          |" & vbNewline & _
         "          <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
         " |" & vbNewline & _
         "          <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>"

'##USER SPACE mod ## Add line below ###################
        if trim(strUSSwitch) <> "" then
                Response.Write  "          |" & vbNewLine & "          <a href=""user_space.asp?mode=0"" " & dWStatus("View your forum folders") & " tabindex=""-1""><acronym title=""View your forum folders"">Your Space</acronym></a>"
        end if
'## End ##############################################
end sub

if strGroupCategories = "1" then
   if Session(strCookieURL & "GROUP_NAME") = "" then
      GROUPNAME = " Default Groups "
   else
      GROUPNAME = Session(strCookieURL & "GROUP_NAME")
   end if
   'Forum_SQL - Get Groups
   strSql = "SELECT GROUP_ID, GROUP_CATID "
   strSql = strSql & " FROM " & strTablePrefix & "GROUPS "
   strSql = strSql & " WHERE GROUP_ID = " & Group
   set rsgroups = Server.CreateObject("ADODB.Recordset")
   rsgroups.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
   if rsgroups.EOF then
      recGroupCatCount = ""
   else
      allGroupCatData = rsgroups.GetRows(adGetRowsRest)
      recGroupCatCount = UBound(allGroupCatData, 2)
   end if
   rsgroups.Close
   set rsgroups = nothing
end if
%>
<!--#INCLUDE FILE="inc_ipgate.asp"-->
thelodger
31 July 2008, 16:57


Thanks, used the new one, my forum is looking cleaner already.<
thelodger
30 November 2008, 13:50


Hi guys, I am getting quite a lot of spam being sent to the "contact us" I was wondering if its possible to add anti spam question in to the mod, a bit like the gatekeeper antispam mod but added to the contact us page? anyone want to have a go at doing this?<
© 2000-2021 Snitz™ Communications