<% = strWebsiteName & " - " & strTxtChatroom %>

<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** FGC Website Designers - FGC Web Chat '** '** Copyright 2004 - 2005 Felix Akinyemi All Rights Reserved. '** '** You can modify this program, (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to FGC and powered by logo's/text must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** No official support is available for this program but you may post support questions at: - '** http://www.fgcportal.com '** http://webchat.fgcportal.com '** '** For correspondence or non support questions contact: - '** support@fgcportal.com '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting and setting a cookie Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" 'Dimension Variables Dim intLoop 'Intialise Variables 'Creat Objects 'Read in requests %> <% = strWebsiteName & " - " & strTxtChatroom %> <% 'Check if the user needs to login If isNotLoggedIn Then Response.Write(vbCrLf & "

") Response.Write(vbCrLf & "") Response.Write(vbCrLf & "

") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "

" & strTxtEnterANicknameToLogin & "
" & strTxtNickname & "*:
" & strTxtUsersInChatRoom & ":	") 'Check if any users are in the chat room If UBound(saryWebChatUsers, 2) > 0 Then 'Get the online users For intArrayPass = 1 To UBound(saryWebChatUsers, 2) 'Display the users in chatroom Response.Write(saryWebChatUsers(1, intArrayPass)) 'Check if to add a , If UBound(saryWebChatUsers, 2) > 1 AND intArrayPass <> UBound(saryWebChatUsers, 2) Then Response.Write(", ") Next 'Else there are no users in the chatroom Else Response.Write(strTxtThereAreNoUsersInChatRoom) End If Response.Write(vbCrLf & "
" & strTxtSelectAvatar & ":	") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "
" & strTxtSelectTheme & ":	") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "
	") Response.Write(vbCrLf & " " & strTxtChatRoomRules & "") Response.Write(vbCrLf & " ") 'Loop through the chatroom rules For intLoop = 1 To UBound(saryChatroomRules) Response.Write(vbCrLf & " " & saryChatroomRules(intLoop, 1) & " ") Next Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "

") Response.Write(vbCrLf & "

") Response.Write(vbCrLf & "") 'Popup messages If Trim(Request.QueryString("MSG")) = "NKN" Then Response.Write(vbCrLf & "") ElseIf Trim(Request.QueryString("MSG")) = "NKNI" Then Response.Write(vbCrLf & "") End If 'Else the user is logged in Else Response.Write(vbCrLf & "

" & strTxtUsersOnline & "

") Response.Write(vbCrLf & "

") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnCode = True Then Response.Write(vbCrLf & " ") Else Response.Write(vbCrLf & " ") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "

Powered by FGC WebChat " & strVersion & "		" & strWebsiteName & " " & strVersion & "

") Response.Write(vbCrLf & "

" & strTxtMessage & ":

") Response.Write(vbCrLf & strTxtStatus & ": ") If blnPlayNewMessageSound Then Response.Write(vbCrLf & strTxtSound & ": ") End If Response.Write("

") Response.Write(vbCrLf & "") Response.Write(vbCrLf & "

") Response.Write(vbCrLf & "

") '*********************** '*** Emoticons *** '*********************** Response.Write(vbCrLf & "

") Response.Write(vbCrLf & "") Response.Write(vbCrLf & "") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "") Response.Write(vbCrLf & "") 'Loop through the smlies For intLoop = 1 To UBound(saryEmoticons) 'Print out the HTML for the emoticon Response.Write(vbCrLf & " ") 'Break the table to another row If (intLoop MOD 10 = 0) AND intLoop <> UBound(saryEmoticons) Then Response.Write("" & vbCrLf & "") Next Response.Write(vbCrLf & "") Response.Write(vbCrLf & "") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "") Response.Write(vbCrLf & "

" & strTxtEmoticons & "

") Response.Write(vbCrLf & "

") '********************** '*** Commands *** '********************** Response.Write(vbCrLf & "

") Response.Write(vbCrLf & "") Response.Write(vbCrLf & "") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "") 'Loop through the smlies For intLoop = 1 To UBound(saryCommand) 'Print out the HTML for the emoticon If (saryCommand(intLoop, 3) AND blnAdmin) OR NOT saryCommand(intLoop, 3) Then Response.Write(vbCrLf & "") Response.Write(vbCrLf & " ") Response.Write(vbCrLf & "") End If Next Response.Write(vbCrLf & "

" & strTxtChatRoomCommands & "
" & saryCommand(intLoop, 1) & "	" & saryCommand(intLoop, 2) & "

") Response.Write(vbCrLf & "

") Response.Write(vbCrLf & "") 'If play sound then print the HTML If blnPlayNewMessageSound Then Response.Write(vbCrLf & "

") End If End If %>