strSQL = "SELECT EmployeeID,LastName,FirstName FROM Employees;"
set rs=server.CreateObject("adodb.recordset")
rs.CursorLocation = 3
rs.Open strSQL,conn,0,1
rs.Sort = " FirstName"
set rs=server.CreateObject("adodb.recordset")
rs.CursorLocation = 3
rs.Open strSQL,conn,0,1
rs.Sort = " FirstName"