Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Flashchat enhancement

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Zenfor Posted - 19 June 2014 : 10:05:53
It would be great if there was a way to show on the forum who is currently in a chat room.

Something like:

The following are currently in the chat room:

user1, user2, user3,

Is this possible?
15   L A T E S T    R E P L I E S    (Newest First)
Zenfor Posted - 24 June 2014 : 06:52:06
quote:
Originally posted by Carefree

Try changing strRecipientsName to the phone number. It isn't the quotation marks.

Another thing, your test script works fine, it will send me an email (no sms) but loginout doesn't send anything even an email when I login or out of chat.

I did change strRecipientsName to "myphonenumber@vtext.com" and it doesn't work.
Carefree Posted - 23 June 2014 : 23:07:45
Try changing strRecipientsName to the phone number. It isn't the quotation marks.
Zenfor Posted - 23 June 2014 : 21:11:38
quote:
Originally posted by Carefree

Here's a direct test, change the bit in RED. If you receive the SMS, then the configuration is correct...

All your code appears to be correct, it's just refusing to send the sms. I verified the gateway email address by cutting and pasting it the To: portion of an email message and it sent the sms perfectly from the email. I changed strRecipients to my email address and it sent me an email right away after running your test.

I'm wondering if it's the quotation marks that's causing it not to work, I can't think of anyhting else. Thanks for your help and work on this.
Carefree Posted - 21 June 2014 : 14:55:28
Here's a direct test, change the bit in RED. If you receive the SMS, then the configuration is correct.


<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
If Session(strCookieURL & "Approval") <> "15916941253" Then
	ScriptName = Split(Request.ServerVariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & ScriptName(uBound(ScriptName))
End If
Response.Write	"<table border=""0"" width=""100%"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
	"		" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"		" & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
	"		" & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " SMS Test<br /></font></td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td align=""center"" width=""100%"">" & vbNewLine & _
	"			<font face=""" & strDefaultFontFace & """ color=""" & strDefaultFontColor & """ size=""" & strDefaultFontSize & """><b>SMS Test</b>"
strRecipients = "phonenumber@vtext.com"
strRecipientsName = "Forum Admin"
strFrom = strSender
strFromName = "Easton Mass"
strSubject = "Flash Chat"
strMessage = "This is an SMS test."
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
If Err.Number <> 0 Then
	Response.Write	"			<font color=""" & strHiliteFontColor & """>" & Err.Number & ". " & Err.Description & "</font>"
Else
	Response.Write	"			No error encountered."
End If
Response.Write	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine
WriteFooter
%>
Zenfor Posted - 20 June 2014 : 08:03:22
quote:
Originally posted by Carefree

This code is contingent upon your flashchat folder being within the forum folder. Oh I forgot to add the strmailmode variable. Save this file as anything you'd like in your forum folder and run it. The code it reports will be needed below...

I made all the changes to loginout, I'm using cdosys and using myself to login to chat but I'm not getting any sms text messages. Thanks!
Carefree Posted - 19 June 2014 : 20:52:20
This code is contingent upon your flashchat folder being within the forum folder. Oh I forgot to add the strmailmode variable. Save this file as anything you'd like in your forum folder and run it. The code it reports will be needed below. 


<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
strSql = "SELECT * FROM " & strTablePrefix & "CONFIG_NEW WHERE C_VARIABLE='STRMAILMODE'"
Set rs=my_Conn.Execute(strSql)
If not rs.EOF Then
	strMode=rs("C_VALUE")
	rs.Close
End If
Set rs=Nothing
Response.Write	strMode & "=mail mode"
WriteFooter
%>


You will need to indicate which one you're using (see item in GREEN). Notice I also dimensioned the variable. Make sure you get that change, too.

"loginout.asp"

<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000

Dim vAction, strMailMode
Dim vChatName, vPassword, vNewName, vUserPassword, vRoomPassword
Dim vUserArray, vMoodArray, vUserCount
Dim vRoomNo, vNewRoomNo, vCheckOp
Dim vRedirectTo, vSound
Dim vINIFile, x
strMailMode = "yourcodehere"
vAction = Request.QueryString("action")
vChatName = "" & Session("ChatName")

%><!-- #INCLUDE FILE="inifiles.asp" --><%

If vAction = "getuser" Then
	If vChatName <> "" Then
		Response.Write "UserName=" & Server.URLEncode(vChatName) & "&Result=OK"
	Else
		Response.Write "Result=NotLoggedIn"
	End If
	Response.Flush
	Response.End
End If

%><!-- #INCLUDE FILE = "chatlib.asp" --><%
Application.Lock

Select Case vAction
Case "login"
	If vChatName <> "" Then
		'already logged in
		Session.Timeout = 2
		Session("LastLine") = Session("StartLine")
		Response.Write "Result=OK"
	Else
		vRoomNo = "" & Session("RoomNo")
		If vRoomNo = "" Then vRoomNo = 1 Else 
		vUserArray = Application("ChatUsers" & vRoomNo)
		vMoodArray = Application("ChatMoods" & vRoomNo)
		vUserCount = Application("UserCount" & vRoomNo)
		vNewName = Session("ChatName")
		vPassword = Request.Form("txtPassword")
	
		vCheckOp = CheckOp(vNewName, vPassword)
		If vCheckOp = "BadPassword" Then
			If vPassword = "" Then
				Response.Write "Result=Password"
			Else
				Response.Write "Result=BadPassword"
			End If
		Else
			If LogUserIn(vNewName, vUserArray, vMoodArray, vUserCount) = True Then
				Session("Kicked") = "False"
				If vCheckOp = "OK" Then
					Session("Op") = "True"
					Session("Password") = vPassword
				Else
					Session("Op") ="False"
					Session("Password") = ""
				End If
				Session("RoomNo") = vRoomNo
				Application("ChatUsers" & vRoomNo) = vUserArray
				Application("ChatMoods" & vRoomNo) = vMoodArray
				Application("UserCount" & vRoomNo) = vUserCount
				AddLineToChat vRoomNo, "**" & vNewName & " has arrived**"
				Session("StartLine") = Application("ChatLineCount" & vRoomNo)
				Session("LastLine") = Application("ChatLineCount" & vRoomNo)
				vINIFile = Application("INIFile")
				vSound = Trim(INIFileValue(vINIFile, "Sound", "Sound"))
				If vSound = "" Then vSound = "1"
				Session.Timeout = 2
				Response.Write "Result=OK&Users=" & Application("UserCount1") & "&Sound=" & vSound
				strRecipients = "phonenumber@vtext.com"
				strRecipientsName = "Forum Admin"
				strFrom = "youremailaddress"
				strFromName = "Easton Mass"
				strSubject = "Flash Chat"
				strMessage = Session("ChatName") & " has joined chatroom " & Session("RoomNo")
				%>
				<!--#INCLUDE FILE="../inc_mail.asp" -->
				<%
			Else
				Response.Write "Result=BadLogin"
			End If
		End If
	End If
Case "logout"
	vRoomNo = Session("RoomNo")
	vUserArray = Application("ChatUsers" & vRoomNo)
	vMoodArray = Application("ChatMoods" & vRoomNo)
	vUserCount = Application("UserCount" & vRoomNo)
	If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
		If vUserCount = 0 Then
			Application("ChatLines" & vRoomNo) = "" 
			Application("ChatLineCount" & vRoomNo) = 0
			Application("ChatMaxLines" & vRoomNo) = 0
		End If
		Application("ChatUsers" & vRoomNo) = vUserArray
		Application("ChatMoods" & vRoomNo) = vMoodArray
		Application("UserCount" & vRoomNo) = vUserCount
	End If
	Session("ChatName") = ""
	Session.Timeout = 20
	If Session("Kicked") = "True" Then
		x = Instr(vChatName,"[")
		If x > 1 Then vChatName = Left(vChatName, x - 1)
		AddLineToChat vRoomNo, "**" & vChatName & " has left (kicked)**"
	Else
		AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
	End If
	vINIFile = Application("INIFile")
	vRedirectTo = Trim(INIFileValue(vINIFile, "Logout", "redirect"))
	If vRedirectTo <> "" Then
		Response.Write "Redirect=" & Server.URLEncode(vRedirectTo) & "&Result=OK"
	Else
		Response.Write "Result=OK"
	End If
Case "changeroom"
	vINIFile = Application("INIFile")
	vRoomNo = Session("RoomNo")
	vNewRoomNo = Request.QueryString("room")
	
	vUserPassword = Request.QueryString("Password")
	vRoomPassword = INIFileValue(vINIFile, "Rooms", "Password" & vNewRoomNo)
	If UCase(vRoomPassword) <> "" And UCase(vRoomPassword) <> UCase(vUserPassword) Then
		Response.Write "Result=Denied&Password=" & vUserPassword
	Else	
		If vRoomNo = vNewRoomNo Then
			Response.Write "Result=OK"
		Else
			vUserArray = Application("ChatUsers" & vRoomNo)
			vMoodArray = Application("ChatMoods" & vRoomNo)
			vUserCount = Application("UserCount" & vRoomNo)
			If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
				AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
				If vUserCount = 0 Then
					Application("ChatLines" & vRoomNo) = "" 
					Application("ChatLineCount" & vRoomNo) = 0
					Application("ChatMaxLines" & vRoomNo) = 0
				End If
				Application("ChatUsers" & vRoomNo) = vUserArray
				Application("ChatMoods" & vRoomNo) = vMoodArray
				Application("UserCount" & vRoomNo) = vUserCount
			End If
			
			vUserArray = Application("ChatUsers" & vNewRoomNo)
			vMoodArray = Application("ChatMoods" & vNewRoomNo)
			vUserCount = Application("UserCount" & vNewRoomNo)
			
			If LogUserIn(vChatName, vUserArray, vMoodArray, vUserCount) = True Then
				Session("RoomNo") = vNewRoomNo
				AddLineToChat vNewRoomNo, "**" & vChatName & " has arrived**"
				Application("ChatUsers" & vNewRoomNo) = vUserArray
				Application("ChatMoods" & vNewRoomNo) = vMoodArray
				Application("UserCount" & vNewRoomNo) = vUserCount
				Session("StartLine") = Application("ChatLineCount" & vNewRoomNo)
				Session("LastLine") = Application("ChatLineCount" & vNewRoomNo)
				Response.Write "Result=OK"
			Else
				Response.Write "Result=BadLogin"
			End If
		End If
	End If
	
End Select

Application.Unlock
Response.Flush
Response.End
%>
Zenfor Posted - 19 June 2014 : 20:30:35
quote:
Originally posted by Carefree

This should be all that's needed. Change the bits in red.

Thank you, I replaced loginout with this and I'll see what happens. I logged in myself several times and didn't get a text but maybe there is a delay. I'll keep checking it.
Carefree Posted - 19 June 2014 : 19:32:05
This should be all that's needed. Change the bits in red.

"loginout.asp"

<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000

Dim vAction
Dim vChatName, vPassword, vNewName, vUserPassword, vRoomPassword
Dim vUserArray, vMoodArray, vUserCount
Dim vRoomNo, vNewRoomNo, vCheckOp
Dim vRedirectTo, vSound
Dim vINIFile, x

vAction = Request.QueryString("action")
vChatName = "" & Session("ChatName")

%><!-- #INCLUDE FILE="inifiles.asp" --><%

If vAction = "getuser" Then
	If vChatName <> "" Then
		Response.Write "UserName=" & Server.URLEncode(vChatName) & "&Result=OK"
	Else
		Response.Write "Result=NotLoggedIn"
	End If
	Response.Flush
	Response.End
End If

%><!-- #INCLUDE FILE = "chatlib.asp" --><%
Application.Lock

Select Case vAction
Case "login"
	If vChatName <> "" Then
		'already logged in
		Session.Timeout = 2
		Session("LastLine") = Session("StartLine")
		Response.Write "Result=OK"
	Else
		vRoomNo = "" & Session("RoomNo")
		If vRoomNo = "" Then vRoomNo = 1 Else 
		vUserArray = Application("ChatUsers" & vRoomNo)
		vMoodArray = Application("ChatMoods" & vRoomNo)
		vUserCount = Application("UserCount" & vRoomNo)
		vNewName = Session("ChatName")
		vPassword = Request.Form("txtPassword")
	
		vCheckOp = CheckOp(vNewName, vPassword)
		If vCheckOp = "BadPassword" Then
			If vPassword = "" Then
				Response.Write "Result=Password"
			Else
				Response.Write "Result=BadPassword"
			End If
		Else
			If LogUserIn(vNewName, vUserArray, vMoodArray, vUserCount) = True Then
				Session("Kicked") = "False"
				If vCheckOp = "OK" Then
					Session("Op") = "True"
					Session("Password") = vPassword
				Else
					Session("Op") ="False"
					Session("Password") = ""
				End If
				Session("RoomNo") = vRoomNo
				Application("ChatUsers" & vRoomNo) = vUserArray
				Application("ChatMoods" & vRoomNo) = vMoodArray
				Application("UserCount" & vRoomNo) = vUserCount
				AddLineToChat vRoomNo, "**" & vNewName & " has arrived**"
				Session("StartLine") = Application("ChatLineCount" & vRoomNo)
				Session("LastLine") = Application("ChatLineCount" & vRoomNo)
				vINIFile = Application("INIFile")
				vSound = Trim(INIFileValue(vINIFile, "Sound", "Sound"))
				If vSound = "" Then vSound = "1"
				Session.Timeout = 2
				Response.Write "Result=OK&Users=" & Application("UserCount1") & "&Sound=" & vSound
				strRecipients = "phonenumber@vtext.com"
				strRecipientsName = "Forum Admin"
				strFrom = "youremailaddress"
				strFromName = "Easton Mass"
				strSubject = "Flash Chat"
				strMessage = Session("ChatName") & " has joined chatroom " & Session("RoomNo")
				%>
				<!--#INCLUDE FILE="../inc_mail.asp" -->
				<%
			Else
				Response.Write "Result=BadLogin"
			End If
		End If
	End If
Case "logout"
	vRoomNo = Session("RoomNo")
	vUserArray = Application("ChatUsers" & vRoomNo)
	vMoodArray = Application("ChatMoods" & vRoomNo)
	vUserCount = Application("UserCount" & vRoomNo)
	If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
		If vUserCount = 0 Then
			Application("ChatLines" & vRoomNo) = "" 
			Application("ChatLineCount" & vRoomNo) = 0
			Application("ChatMaxLines" & vRoomNo) = 0
		End If
		Application("ChatUsers" & vRoomNo) = vUserArray
		Application("ChatMoods" & vRoomNo) = vMoodArray
		Application("UserCount" & vRoomNo) = vUserCount
	End If
	Session("ChatName") = ""
	Session.Timeout = 20
	If Session("Kicked") = "True" Then
		x = Instr(vChatName,"[")
		If x > 1 Then vChatName = Left(vChatName, x - 1)
		AddLineToChat vRoomNo, "**" & vChatName & " has left (kicked)**"
	Else
		AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
	End If
	vINIFile = Application("INIFile")
	vRedirectTo = Trim(INIFileValue(vINIFile, "Logout", "redirect"))
	If vRedirectTo <> "" Then
		Response.Write "Redirect=" & Server.URLEncode(vRedirectTo) & "&Result=OK"
	Else
		Response.Write "Result=OK"
	End If
Case "changeroom"
	vINIFile = Application("INIFile")
	vRoomNo = Session("RoomNo")
	vNewRoomNo = Request.QueryString("room")
	
	vUserPassword = Request.QueryString("Password")
	vRoomPassword = INIFileValue(vINIFile, "Rooms", "Password" & vNewRoomNo)
	If UCase(vRoomPassword) <> "" And UCase(vRoomPassword) <> UCase(vUserPassword) Then
		Response.Write "Result=Denied&Password=" & vUserPassword
	Else	
		If vRoomNo = vNewRoomNo Then
			Response.Write "Result=OK"
		Else
			vUserArray = Application("ChatUsers" & vRoomNo)
			vMoodArray = Application("ChatMoods" & vRoomNo)
			vUserCount = Application("UserCount" & vRoomNo)
			If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
				AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
				If vUserCount = 0 Then
					Application("ChatLines" & vRoomNo) = "" 
					Application("ChatLineCount" & vRoomNo) = 0
					Application("ChatMaxLines" & vRoomNo) = 0
				End If
				Application("ChatUsers" & vRoomNo) = vUserArray
				Application("ChatMoods" & vRoomNo) = vMoodArray
				Application("UserCount" & vRoomNo) = vUserCount
			End If
			
			vUserArray = Application("ChatUsers" & vNewRoomNo)
			vMoodArray = Application("ChatMoods" & vNewRoomNo)
			vUserCount = Application("UserCount" & vNewRoomNo)
			
			If LogUserIn(vChatName, vUserArray, vMoodArray, vUserCount) = True Then
				Session("RoomNo") = vNewRoomNo
				AddLineToChat vNewRoomNo, "**" & vChatName & " has arrived**"
				Application("ChatUsers" & vNewRoomNo) = vUserArray
				Application("ChatMoods" & vNewRoomNo) = vMoodArray
				Application("UserCount" & vNewRoomNo) = vUserCount
				Session("StartLine") = Application("ChatLineCount" & vNewRoomNo)
				Session("LastLine") = Application("ChatLineCount" & vNewRoomNo)
				Response.Write "Result=OK"
			Else
				Response.Write "Result=BadLogin"
			End If
		End If
	End If
	
End Select

Application.Unlock
Response.Flush
Response.End
%>
Zenfor Posted - 19 June 2014 : 18:21:55
quote:
Originally posted by Carefree

It could be done, depending on where you live. There are many HTML to SMS gateways in the USA and Europe, very few here. It would have to be individually configured to use your EMail address to send the SMS via the gateway.

I'm with a major carrier, Verizon. I just tested it sending an email through gmail and it worked like a charm.

It's just sending an email to: (phone number here)@vtext.com
For example: 6172345678@vtext.com

quote:
Most of the major wireless mobile providers offer an SMS gateway. Typically, the wireless providers use a mobile number plus an email domain to route email messages through their SMS gateway. For example, if you are sending an email to a Verizon Wireless mobile device, you would send it to the mobile number + "@vtext.com". If the mobile phone number was 123-456-7890, you would send the email to "1234567890@vtext.com". From a mobile device, you can generally just use an email address which will send the message through the SMS gateway and to the intended email address.


Where would I put it and what would the email code be?

Thank you, you are awesome!!
Carefree Posted - 19 June 2014 : 18:03:58
It could be done, depending on where you live. There are many HTML to SMS gateways in the USA and Europe, very few here. It would have to be individually configured to use your EMail address to send the SMS via the gateway.
Zenfor Posted - 19 June 2014 : 18:00:25
This may be far fetched but what would be cool if I could get a text message when someone enters the chat. Is that only a .net thing?
Carefree Posted - 19 June 2014 : 17:24:31
quote:
Originally posted by Maxime

Thousand regret for all the work you have done Carefree, but all change not given anything and it still does not always work the same message that says I am not logged.

I installed the old version that works too bad.


That function is based upon the value of a Session variable. Your Session State may be disabled in the ASP configuration of IIS. Replace your "inc_header.asp" with this one. If your Session State is enabled, when you mouse over the "Kick All" link, it will show you your user number.


<%
'#################################################################################
'## 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
'##
'#################################################################################
%>
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_ipgate.asp"-->
<%
if strShowTimer = "1" then
	'### start of timer code
	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-09 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 onload=walkImages() bgColor=""" & strPageBGColor & " 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=""#9FAFDF"" align=""center""><p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
			"<b>Il y a vait un problème...</b><br /><br />" & _
			"Votre <b>strDBType</b> n'est pas réglé, s'il vous plaît modifier votre <b>config.asp</b><br />afin de refléter votre base de données 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"">Cliquez ici pour recommencer.</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
'	##### Contact Us End #####

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

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
Response.Write "<link href=""animated_favicon1.gif"" rel=""icon"" type=""image/gif"" />"
'	##	Flashchat Below
%>
<!-- #INCLUDE FILE="flashchat/inifiles.asp" -->
<%
'	##	Flashchat Above
'## 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-09 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 type=""text/javascript"" src=""formfieldlimiter.js""></script>" & vbNewLine
'##### PageEar Code Below #####
if mlev = 0 then
Response.Write "<script src=""./pageear/AC_OETags.js"" type=""text/javascript""></script>" & vbNewLine
Response.Write "<script src=""./pageear/pageear.js"" type=""text/javascript""></script>" & vbNewLine
end if
'##### PageEar Code Above #####
Response.Write "<script type=""text/javascript"" src=""./media/media.js""></script>"
Response.Write "<link rel=""stylesheet"" href=""./media/mediaboxAdvBlack.css"" type=""text/css"" media=""screen"" />"
Response.Write "<script src=""./media/mootools-1.2.4-core.js"" type=""text/javascript""></script>"
Response.Write "<script src=""./media/mediaboxAdv-1.1.6.js"" type=""text/javascript""></script>"
Response.Write "<script type=""text/javascript"" src=""audio-player.js""></script>" & vbNewLine
Response.Write "<script type=""text/javascript"" src=""mp3.js""></script>" & vbNewLine
Response.Write"<script language=""JavaScript1.2"" src=""resizeimgs.js""></script>" & vbNewLine
'##### PDF MOD Below #####
if request.servervariables("URL") = "/topic.asp" then
	Response.Write "<script type=""text/javascript"" src=""pdf.js""></script>"
end if
'##### PDF MOD Above #####
'##### GDOC Below #####

if request.servervariables("URL") = "/topic.asp" then
	Response.Write "<script type=""text/javascript"" src=""gdoc.js""></script>"
end if

'##### GDOC Above #####

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 & _
		"// done hiding -->" & vbNewLine & _
		"</script>" & vbNewLine & _
		"<style type=""text/css"">" & vbNewLine & _
		"<!--" & vbNewLine %>
	.scrollcode
	{
		height:200;
		width:650;
		overflow:scroll;
		color:#<%= strDefaultFontColor %>;
		background-color:#<%= strAltForumCellColor %>;
		border : thin solid #<%= strTableBorderColor %>;
		font : 9pt #<%= strDefaultFontFace %>;
	}
<% Response.Write "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 & _

		"-->" & vbNewLine & _
		"</style>" & vbNewLine & _
		"</head>" & vbNewLine & _
		vbNewLine & _
		"<body onload=walkImages() " & 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=""50%""><a href=""default.asp"" tabindex=""-1"">" & getCurrentIcon(strTitleImage & "||",strForumTitle,"") & "</a></td>" & vbNewLine & _
		"    <td align=""center"" valign=""top"" width=""50%"">" & 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
' Get Private Message count for display
	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmcount] "
	else
        	strSqL = "SELECT count(M_TO) as pmcount "
    	end if
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
	strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
	strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 "

	Set rsPM = my_Conn.Execute(strSql)
	pmcount = rsPM("pmcount")

	rsPM.close
	set rsPM = nothing
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 & """>Votre nom d'utilisateur et / ou mot de passe sont incorrects. Compte peut-être verrouillé.</font></p>" & vbNewLine & _
					"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>S'il vous plaît essayer de nouveau ou soit vous inscrire à un compte.</font></p>" & vbNewLine
		else
			Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Vous vous êtes connecté avec succès!</font></p>" & vbNewLine & _
					"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Je vous remercie pour votre 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 & """>Retour Au 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 & """>Vous vous êtes déconnecté avec succès!</font></p>" & vbNewLine & _
				"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Je vous remercie pour votre 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"">Retour Au 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"), "password2.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>Nom De Membre:</b></font><br />" & vbNewLine & _
					"                <input type=""text"" name=""Name"" size=""10"" maxLength=""25"" value=""""></td>" & vbNewLine & _
					"                <td><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Mot de Passe:</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> Enregistrer le Mot de Passe</b></font></td>" & vbNewLine
		else
			if (strAuthType = "nt") then 
				Response.Write	"                <td><font face=""" & strDefaultFontFace & """ size=""1""  color=""" & strHiLiteFontColor & """>S'il vous plaît <a href=""register.asp"" tabindex=""-1"">s'enregistrer</a> pour les  envoyer des messages dans les 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("Choisir un nouveau mot de passe si vous avez oublié votre mot de l'actuel...") & " tabindex=""-1"">Vous avez oublié votre "
			if strAuthType = "nt" then Response.Write("Admin ")
			Response.Write	"Mot de Passe?</a>" & vbNewLine
			if (lcase(strNoCookies) = "1") then
				Response.Write	"                |" & vbNewLine & _
						"                <a href=""admin_home.asp""" & dWStatus("Accédez aux Fonctions d'Administration du Forum...") & " tabindex=""-1"">Administratons des 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 & """>Vous êtes connecté en tant que<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("Accédez aux Fonctions d'Administration du Forum...") & " tabindex=""-1"">Administratons des 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 & ") Membre (s) en attente d'approbation") & " tabindex=""-1"">(" & User_Count & ") Membre (s) en attente d'approbation</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("Retour à la page d'accueil") & " tabindex=""-1""><acronym title=""Retour à la page d'accueil"">Accueil</acronym></a>" & vbNewline & _
			"          |" & vbNewline
'Get Petition Count SQL
   strSql = "SELECT COUNT(P_ID) AS P_COUNT FROM " & strMemberTablePrefix & "PETITION WHERE P_MODERATED = 0"
   Set countrs = my_conn.execute(strsql)
   If Not countrs.EOF Then
      intPCount = countrs("P_COUNT")
   Else
      intPCount = 0
   End If
   countrs.Close
   Set countrs = Nothing
   'Get Petition Count Code Above

	if strUseExtendedProfile then 
		Response.Write	"          <a href=""pop_profile.asp?mode=Edit""" & dWStatus("Modifier votre profil personnel...") & " tabindex=""-1""><acronym title=""Modifier votre profil personnel..."">Modifier Profil</acronym></a>" & vbNewline
	else
		Response.Write	"          <a href=""javascript:openWindow3('pop_profile.asp?mode=Edit')""" & dWStatus("Modifier votre profil personnel...") & " tabindex=""-1""><acronym title=""Modifier votre profil personnel..."">Modifier Profil</acronym></a>" & vbNewline
	end if 
	if strAutoLogon <> "1" then
		if strProhibitNewMembers <> "1" then
			Response.Write	"          |" & vbNewline & _
					"          <a href=""register.asp""" & dWStatus("Enregistrez-vous...") & " tabindex=""-1""><acronym title=""Enregistrez-vous pour poster sur le forum..."">Enregistrez-vous</acronym></a>" & vbNewline
		end if
	end if
	Response.Write	"          |" & vbNewline & _
			"          <a href=""active.asp""" & dWStatus("Voyez quel sujet est actif depuis votre dernière visite...") & " tabindex=""-1""><acronym title=""Voyez quel sujet est actif depuis votre dernière visite..."">Sujets Actifs</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("Voir tous les abonnements courants") & " tabindex=""-1""><acronym title=""Voir tous les abonnements courants"">Tous les Abonnements</acronym></a>" & vbNewline
		end if
		if MySubCount > 0 then
			Response.Write	"          |" & vbNewline & _
					"          <a href=""subscription_list.asp""" & dWStatus("Voyez tous vos abonnements") & " tabindex=""-1""><acronym title=""Voyez tous vos abonnements"">Mes Abonnements</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("Tous les membres du forum...") & " tabindex=""-1""><acronym title=""Tous les membres du forum..."">Membres</acronym></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("Exécutez une recherche par mot-clé, date /ou nom...") & " tabindex=""-1""><acronym title=""Exécutez une recherche par mot-clé, date /ou nom..."">Rechercher</acronym></a>" & vbNewline & _
			"          |" & vbNewline & _
			"          <a href=""faq.asp""" & dWStatus("Foire Aux Questions et leurs réponses...") & " tabindex=""-1""><acronym title=""Foire Aux Questions et leurs réponses..."">FAQ</acronym></a>" & vbNewline
		'### Topic Images ###
	if strImgInPosts="1" and strImageURL>"" then
		Response.Write	"          |" & vbNewline & _
			"          <a href=""topic_images.asp""" & dWStatus("10 Derniers Sujets Avec Photos") & " tabindex=""-1""><acronym title=""Voir 10 Derniers Sujets Avec Photos"">Aperçu Sujet Photos</acronym></a>"
	end if
	'### Topic Images ###
set my_Conn=Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql="SELECT P_SWITCH FROM " & strTablePrefix & "P_OPTIONS"
set rsswitch = my_Conn.Execute(strSql)
if (not rsswitch.BOF and not rsswitch.EOF) then
   strPSwitch=rsswitch("P_SWITCH")
   rsswitch.close
   set rsswitch=nothing
end if
if strPSwitch=0 then
   'Do nothing
else
   Response.Write "| <a href=""petition.asp""" & dWStatus("Signez La Pétition!") & " tabindex=""-1""><acronym title=""Il y a actuellement " & intPCount & " signatures!""><font face=""" & strDefaultFontFace & """ size=""" & strfooterFontSize & """>Signer La Pétition! (" & intPCount & ")</acronym></a>     " & vbNewline
end if
			If strPMStatus = "1" then
	Response.Write "          | <a href=""" & strForumURL & "pm_view.asp""" & dWStatus("Vérifier ses messages privés...") & " tabindex=""-1""><acronym title=""Vérifier ses messages privés..."">Messages Privés" 
			if pmcount > 0 then Response.Write "(<font color=""" & strActiveLinkColor & """><b>" & pmcount & " Nouv PM Reçu</b></font>)" 
	Response.Write "</acronym></a>" & vbNewline & _
			"          " & vbNewline
			end if
	Response.Write		"          | <a href=""guestbook.asp""" & dWStatus("Regardez le Livre d'Or...") & " tabindex=""-1""><acronym title=""Regarder le Livre d'Or..."">Livre d'Or</acronym></a>"
	Response.Write		"          |" & vbNewline & _
			"          <a href=""greeting_cards.asp""" & dWStatus("Cartes de Voeux Section...") & " tabindex=""-1""><acronym title=""Cartes de voeux section..."">Cartes de Voeux</acronym></a>"
	Response.Write		"          |" & vbNewline & _
			"          <a href=""artists.asp""" & dWStatus("Ecouter Liste MP3...") & " tabindex=""-1""><acronym title=""Ecouter Liste MP3..."">Listes d'Artistes MP3</acronym></a>"
	Response.Write		"          |" & vbNewline & _

			"          <a href=""/mail/forms/default.asp""" & dWStatus("Inscription Info-lettre..") & " tabindex=""-1""><acronym title=""Inscription Info-lettre..."">Inscription Info-lettre</acronym></a>"
	Response.Write		"          |" & vbNewline & _

			"          <a href=""contact.asp""" & dWStatus("Contacter l'Administrateur..") & " tabindex=""-1""><acronym title=""Inscription Newsletter..."">Contacter l'Administrateur</acronym></a>"
	'	##	Flashchat Below
	if mLev > 0 and strDBNTUserName <> "" then
		vRoomNo = 1
		vUserArray = Application("ChatUsers" & vRoomNo)
		vUserCount = Application("UserCount" & vRoomNo)
		Session("ChatName")=strDBNTUserName
		Session("MemberID")=MemberID
		Response.Write  "          |" & vbNewline & _
			"          <a href=""flashchat/login_html.asp""" & dWStatus("Flashchat") & " tabindex=""-1"" target=""_blank""><acronym title=""Flashchat"">Flashchat</acronym></a>"
		If mLev > 3 Then Response.Write	"/<a style=""color:" & strHiLiteFontColor & ";"" href=""flashchat/kickuser.asp?UserToBan=" & strDBNTUserName & """><acronym title=""ID=" & Session("MemberID" & """>Kick All</acronym></a>"
		Response.Write	"<br />Members in Chat: ("
		For vUser = 0 To vUserCount - 1
			fname=vUserArray(vUser)
			strSql="SELECT MEMBER_ID, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE M_NAME='" & fname & "'"
			Set rs=my_Conn.Execute(strSql)
			If not rs.EOF Then
				intMID=rs("MEMBER_ID")
				rs.Close
			End If
			Set rs=Nothing
			Response.Write	ProfileLink(fname,intMID)
			If vUser < vUserCount-1 Then Response.Write	", "
		Next
		Response.Write ")"
 	end if
	'	##	Flashchat Above
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
%>
Zenfor Posted - 19 June 2014 : 16:29:03
quote:
Originally posted by Carefree

quote:
Originally posted by Zenfor

Did I install an old version of chat?


Don't know - but the instructions for "inc_header.asp" were changed quite a bit from what you had to add the user list.

It's all working great now (I think). I originally installed the version on snitzbitz, it must be an older one.

Great work and thanks for your help...
Maxime Posted - 19 June 2014 : 16:05:11
Thousand regret for all the work you have done Carefree, but all change not given anything and it still does not always work the same message that says I am not logged.

I installed the old version that works too bad.
Carefree Posted - 19 June 2014 : 15:13:04
quote:
Originally posted by Zenfor

Did I install an old version of chat?


Don't know - but the instructions for "inc_header.asp" were changed quite a bit from what you had to add the user list.

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.17 seconds. Powered By: Snitz Forums 2000 Version 3.4.07