<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adCmdText = &H0001 Const PAGE_SIZE = 5 DIM strURL DIM strSearch DIM iPageCurrent DIM iPageCount DIM iRecordCount DIM I DIM objRS DIM strSQL SET objRS = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT bmsWebUsers.id_bmsUsers,bmsWebUsers.bmsFirstName,bmsWebUsers.bmsSurname,bmsWebUsers.bmsActive FROM bmsWebUsers WHERE bmsContactType = 2 AND bmsDelete = 'false' ORDER BY bmsWebUsers.bmsSurname;" strURL = Request.ServerVariables("URL") strSearch = Request.QueryString("search") strSearch = Replace(strSearch, "'", "''") If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If objRS.PageSize = PAGE_SIZE objRS.CacheSize = PAGE_SIZE objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText iRecordCount = objRS.RecordCount iPageCount = objRS.PageCount If iRecordCount = 0 Then %> There are no users present in this database. <% Else objRS.AbsolutePage = iPageCurrent %>

	<% Do While Not objRS.EOF And objRS.AbsolutePage = iPageCurrent %> <% objRS.MoveNext Loop %> users displaying page <%= iPageCurrent %> of <%= iPageCount %> <%= iRecordCount %> users found <% For I = 1 To iPageCount If I = iPageCurrent Then %> <%= I %> <% Else %> <%= I %> <% End If Next 'I %> Surname Name " target="mainFrame" class="item"><%= objRS.Fields("bmsSurname").Value %> <%= objRS.Fields("bmsFirstName").Value %> <% IF objRS.Fields("bmsActive").Value = "true" THEN Response.Write "active" ELSE IF objRS.Fields("bmsActive").Value = "false" THEN Response.Write "inactive" END IF END IF %>

<% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing End If %>