<%
'
'
'
%>
<%
main()
Sub main()
Dim AutoReload
AutoReload = Request("AutoReload")
Dim Query
Dim Content
Dim Content2
Dim MessengerQuery
MessengerQuery = Request.ServerVariables("QUERY_STRING")
Dim MES_AppCD
MES_AppCD = Request("MES_AppCD")
Dim MES_SystemCD
MES_SystemCD = Request("MES_SystemCD")
Dim MES_DBName
MES_DBName = Request("MES_DBName")
Dim MES_DBUser
MES_DBUser = Request("MES_DBUser")
Dim MES_DBPass
MES_DBPass = Request("MES_DBPass")
Dim MES_Admin
MES_Admin = Request("MES_Admin")
Dim MES_Enshu
MES_Enshu = Request("MES_Enshu")
Dim MES_User
MES_User = Request("MES_User")
If MES_Admin = "1" Then
MES_User = ""
ElseIf MES_Admin = "2" Then
MES_User = MES_Enshu
End If
Dim Midoku
Midoku = 0
%>
<% = HtmlHeader("") %>
onLoad="setInterval('IntervalReload()',<% = MailCheckInterval * 1000 %>);"<% End If %>>
<% = HtmlFooter %>
<%
End Sub
%>
