<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %> <% SendHeader 1, 1 %> <% ' ' On Error Resume Next CheckSession bstrVirtRoot + "/forms/srvrmsg/frmroot.asp", "parent" Set objChatService = Session(bstrChatService) 'Table(pixels) to field width adjustments nTAfactor = Session("nTAfactor") nRows = Session("nTARows") 'localized text area width adjustments L_SrvrmsgBodyWidthAdjUnix_Number = 0 ' adjust message body for Unix L_SrvrmsgBodyWidthAdjMac_Number = 0 ' adjust message body for Mac L_SrvrmsgBodyWidthAdjustmentWin16_Number = 0 ' adjust message body for Win16 (i.e. Win3.1) L_SrvrmsgBodyWidthAdjustmentWin32_Number = 0 ' adjust message body for Win32 (i.e. Win95 and NT) If isUNIX Then srvrmsgBodyWidthAdj = L_SrvrmsgBodyWidthAdjUnix_Number ElseIf isMac Then srvrmsgBodyWidthAdj = L_SrvrmsgBodyWidthAdjMac_Number ElseIf isWin16 Then srvrmsgBodyWidthAdj = L_SrvrmsgBodyWidthAdjustmentWin16_Number Else srvrmsgBodyWidthAdj = L_SrvrmsgBodyWidthAdjustmentWin32_Number End If iTablePixWidth = 396 + srvrmsgBodyWidthAdj iTableTAWidth = cint((iTablePixWidth * nTAfactor) + ((iTablePixWidth-1000)\140)) If isMSIE Then iHoriSpace = 12 iVertSpace = 127 bstrOK = " OK " Else iHoriSpace = 6 iVertSpace = 91 bstrOK = " OK " End If %>
<% If isMSIE Then %> <% Else %> <% End If %> Get help information on the current window

> Message of the day (sent upon connection): >

> Administrator information: >