<%@ LANGUAGE=VBScript %>
<%
'-----------------------------------------------------------------------------
' Opens text file
'-----------------------------------------------------------------------------
Const File_OpenForReading = 1
Const File_OpenForWriting = 2
Const File_OpenForAppending = 8
Function File_OpenExisting( strPath, nAccess )
' strPath = the path to file
' nAccess should be one of the constants above
On Error Resume Next
Dim objFileObj
Dim objFile
Set objFileObj = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileObj.OpenTextFile( strPath, nAccess, False, False )
If Err = 0 Then
Set File_OpenExisting = objFile
Else
Set File_OpenExisting = Nothing
End If
End Function
'-----------
' get session vars
'-----------
Set iFile = File_OpenExisting(server.mappath("admin.csv"), File_OpenForReading )
s = iFile.ReadLine()
s = Split(s,",",-1,1)
Session("TCNAME") = s(0)
Session("MEMLIST") = s(2)
Session("CANCELRES") = s(3)
if Session("LANG") = "" then
Session("LANG") = s(4)
end if
iFile.close
'-----------
' load default language
'-----------
'if Session("sTXT") = "" then
Set iFile = File_OpenExisting(server.mappath("lang" & Session("LANG") & ".csv"), File_OpenForReading )
While Not iFile.AtEndOfStream
TXT = TXT + "|" + iFile.ReadLine()
Wend
iFile.close
Session("sTXT") = split(TXT,"|",-1,1)
'end if
%>
<%= Session("TCNAME") & " "%> <%= Session("sTXT")(55)%>
<%
'-----------
' show user msgs in popup
'-----------
if not Session("MSG") = "" then
%>
<%
Session("MSG") = ""
end if
if Session("ID") = "" then
response.write "