<%
Option Explicit
Dim ConnectString
If IsEmpty(Session("RSEmps")) Then
 ConnectString = "DSN=EmpsDatabase;User Id=Admin;Password=;"
 set Session("RSEmps") = Server.CreateObject("ADODB.Recordset")
 Session("RSEmps").CursorLocation = 3
 Session("RSEmps").Open "tblEmps", ConnectString, , , 2
Else
   Session("RSEmps").MoveFirst
   If Not IsEmpty(Request.Form("Requery")) Then
      Session("RSEmps").Sort = Request.Form("SortField")
      If Request.Form("Filter") = "Wszyscy" Then
         Session("RSEmps").Filter = "EmpID > 0"
      Else
         Session("RSEmps").Filter = "EmpID = " & Request.Form("Filter")
      End If
   End If
End If
Response.Write "<TABLE>"
Response.Write "<TR><B>"
Response.Write "<TD>ID pracownika</TD><TD>Imie</TD>" _
   & "<TD>Nazwisko</TD></B></TR>"
Do Until Session("RSEmps").EOF
   Response.Write "<TR>"
   Response.Write "<TD>" & Session("RSEmps")("EmpID") & "</TD>"
   Response.Write "<TD>" & Session("RSEmps")("FirstName") & "</TD>"
   Response.Write "<TD>" & Session("RSEmps")("LastName") & "</TD>"
   Response.Write "</TR>"
   Session("RSEmps").MoveNext
Loop
Response.Write "</TABLE>"
%>
