<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000
Dim vStartLine, vChatTranscript
Dim vRoomNo
Dim vLanguage, vTranscriptTitle
%>
<%
Dim strLanguage
Application("INIFile") = LoadINIFile(Server.MapPath("chat_ini.asp"))
vLanguage = "" & IniFileValue(Application("INIFile"), "Languages", "ChatLanguage")
vTranscriptTitle = IniFileValue(Application("INIFile"), vLanguage, "langTranscriptTitle")
vRoomNo = Session("RoomNo")
vStartLine = CLng(Session("StartLine"))
vChatTranscript = GetTranscript(vStartLine)
Function GetTranscript(byVal vStartLine)
Dim vCurrentLine, vChatLines
Dim vNewLines, vLine
Dim vPrivatePrefix, vLineText
vPrivatePrefix = "/msg " & Session("ChatName") & " "
vCurrentLine = Application("ChatLineCount" & vRoomNo)
vChatLines = Application("ChatLines" & vRoomNo)
For vLine = vStartLine To vCurrentLine - 1
vLineText = vChatLines(vLine)
If Instr(vLineText, "/msg ") = 1 Then
If Instr(vLineText, vPrivatePrefix) = 1 Then
vNewLines = vNewLines & "Private>" & Right(vLineText, Len(vLineText) - Len(vPrivatePrefix)) & Chr(13)
End If
Else
vNewLines = vNewLines & vLineText & Chr(13)
End If
Next
GetTranscript = Replace(vNewLines, Chr(13), "
")
End Function
%>
<%=vTranscriptTitle%>
<%=vChatTranscript%>
<%
Response.Flush
Response.End
%>