<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : default.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 7/10/2009 'Modifier(Date) : None '****************************************************************************************************************** %> <% Sub SubMain() Dim objQuery Set objQuery = GetDBConn() Call SubContent(objQuery) Call CloseDBConn(objQuery) End Sub Sub SubContent(ByRef objQuery) %>

<%If Session("Admin") <> "" Then%>Logout<%Else%>Login<%End IF%>

<%If Session("Admin") <> "" Then%>

Your session is log-in

<%Else%>

Username
Password

<%End IF%> <% End Sub %>