<%@ LANGUAGE="vbscript" %> <%' Copyright 1998, eVantage, L.L.C. and 80/20 Data Company %> <% Response.Buffer = True %> <% Response.Clear %> AMS Main Menu <% Session("LastPage") = "Switchboard.asp" SQLStr = "SELECT CompanyInfo.[CSC#] as CSC, CompanyInfo.APCode, tblEmployee.LastName, tblEmployee.eMail, tblEmployee.Phone, tblEmployee.OnLine FROM CompanyInfo INNER JOIN tblEmployee ON CompanyInfo.CompanyInfoID = tblEmployee.CompanyInfoID WHERE tblEmployee.EMail <> '"& Session("Logon") &"' AND tblEmployee.Online = 1 ORDER BY tblEmployee.LastName" 'response.write sqlstr 'response.end Set rsOthers = Conn.Execute(SQLStr) Others = Null Do While NOT rsOthers.eof Others = Others & "" & rsOthers("LastName") & " (" & rsOthers("CSC") & "-" & rsOthers("APCode") & ") | " rsOthers.MoveNext Loop Session("Others") = Left(Others,Len(Others)-2) Session("intSpan") = Null Session("v1") = Null Session("v2") = Null Session("v3") = Null Session("v4") = Null Session("radCycle") = "AllCycles" Session("radPar") = "IncludePar" Session("BLDateRangeBanner") = Null Session("ErrMessage") = Null Session("intNumDays") = Null Session("intPercentLoad") = Null Session("LastPage") = "Switchboard.asp" %>
<%If Len(Session("Name")) > 0 Then%> <%Else%> <%End If%>
<%If Len(Session("Name")) > 0 Then%> <%End If%>
Welcome <%=Session("Name")%> - CSC #<%=Session("CSC")%>-<%=Session("APCode")%>
Others Logged On: <%=Session("Others")%>
Please Log In