<%@ LANGUAGE="VBScript" %>
<%'----- ASP Buffer Ouput, the server does not send a response to the client until all of the server scripts on the current page have been processed%>
<% Response.Buffer = True %>
<%
response.redirect "../AMSi/"
'Get Browser Info and clear variables
Set bc = Server.CreateObject("MSWC.BrowserType")
Session("Browser") = bc.browser & " " & bc.version
If Session.TimeOut <> 120 then
Session.TimeOut = 120
End If
'If Session("SystemName") <> "" Then
' If Session ("SystemName") <> "AMSv4" Then
' session.abandon
' End If
'End If
%>
<%session("project")="AMSv4"%>
<%session("systemname")="AMSv4"%>
<%
'******************************************************
if trim(session("sessionid")) <> trim(session.sessionid) then
session("sessionid") = session.sessionid
session("siteroot") = Trim(left(request.servervariables("path_info"),instr(request.servervariables("path_info"),"/logonAMS.asp")))
'ReadConfiguration()
end if
If trim(session("FY")) = "" then
session("FY") = session("CurrentFY")
End if
'******************************************************
%>
AMSv4 Logon
v.4
©