Organization Chart - Shows the basic organization of the Alaska Science Center - Biological Science Office

<% ' Set How Many Per Page Session("PerPage")=20 Session("MoveTo")=Request.QueryString("MOVE") lastname=request.querystring("LastName") lastname = lastname + "%" myDSN="employee-database" mySQL="Select * From Employee WHERE LastName LIKE '" & lastname & "' AND Status NOT LIKE 'volunteer' AND Status NOT LIKE 'ex' AND Status NOT LIKE 'intermittent' AND Status NOT LIKE 'notset' AND Status NOT LIKE 'cooperator' AND Status NOT LIKE 'STEP' AND Status NOT LIKE 'SCEP' ORDER BY LastName" ' Figure Current Page IF Session("MoveTo")="" THEN Session("CurrentPage")=1 Session("CurrentRecord")=1 Session("CurrentRecordMax")=Session("CurrentPage")*Session("PerPage") Session("Page")=0 ELSE Session("CurrentPage")=Session("MoveTo") Session("CurrentRecord")=(Session("CurrentPage")-1)*Session("PerPage")+1 Session("CurrentRecordMax")=Session("CurrentPage")*Session("PerPage") END IF Set MyConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.RecordSet") MyConn.Open myDSN RS.Open mySQL, MyConn, adOpenStatic Session("RecordCount")=RS.RecordCount RS.PageSize=Session("PerPage") RS.AbsolutePage=Session("CurrentPage") PageCount=RS.PageCount %>

Current Page:<%=Session("CurrentPage")%> of <%=RS.PageCount%>

<% IF Session("CurrentPage")>1 THEN %> ">[prev] <%END IF%> <% IF Session("CurrentRecordMax") ">[next] <% END IF %>

[abcdefghijklmnopqrstuvwxyz]

<%=Session("CurrentRecord")%> to <% IF Session("CurrentRecordMax") <%=Session("CurrentRecordMax")%><% ELSE %><%=RS.RecordCount%><% END IF %> of <%=RS.RecordCount%> records returned