<% Option Explicit Const DBLOCATION = "\\ih-fs01.ihouse.berkeley.edu\Departmental\Physical Operations\MSDATA\msDATA.mdb" Const RECORDSPERPAGE = 40 %> <% Function OpenDatabase() Dim dcnDB ' as ADODB.connection Set dcnDB = Server.CreateObject("ADODB.Connection") dcnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;Data Source=" & DBLOCATION dcnDB.Open Set OpenDatabase = dcnDB End Function '------------------------------------------------------------ Function RetrieveData(dcnDB, strSortFlds, strSortOrder) Dim rsData 'As ADODB.Recordset Dim strSQL 'As String strSQL = "Select tblWO.WOnumber, " & "tblWO.asset, " & "tblWO.description, " & "tblWO.requested " & "FROM tblWO " & "WHERE tblWO.status = 'open' " & " order by " & strSortFlds & " " & strSortOrder Set rsData = server.CreateObject("ADODB.Recordset") rsData.CursorLocation = adUseClient rsData.Open strSQL, dcnDB, adOpenStatic, adLockReadOnly, adCmdText Set RetrieveData = rsData End Function '------------------------------------------------------------------ Sub DisplayData(rsData, intPageNum, strSortFlds, strSortOrder) Dim intCount ' As Integer %>

Physical Operations - Open Work Orders

<% DisplayPageLinks rsData, intPageNum, strSortFlds, strSortOrder DisplayNavigation rsData, intPageNum, strSortFlds, strSortOrder %> <% rsData.AbsolutePage = intPageNum For intCount = 1 To rsData.PageSize %> <% rsData.MoveNext If rsData.EOF then Exit For Next ' IntCount %>

<% Response.Write CreateHeading(intPageNum, "Work Order #", "1", strSortFlds, strSortOrder)%>	<% Response.Write CreateHeading(intPageNum, "Location", "2", strSortFlds, strSortOrder)%>	<% Response.Write CreateHeading(intPageNum, "Description", "3", strSortFlds, strSortOrder)%>	<% Response.Write CreateHeading(intPageNum, "Requested", "4", strSortFlds, strSortOrder)%>
<% = rsData("WOnumber") %>	<% = rsData("Asset") %>	<% = rsData("Description") %>	<% = rsData("Requested") %>

<% DisplayNavigation rsData, intPageNum, strSortFlds, strSortOrder %> <% End Sub '---------------------------------------------------------------- Function CreateHeading(intPageNum, strTitle, strNewSort, strOldSort, strOldOrder) Dim strNewOrder ' As String If strNewSort = strOldSort Then If strOldOrder = "ASC" Then strNewOrder = "DESC" Else strNewOrder = "ASC" End If Else strNewOrder = "ASC" End If CreateHeading = "" & strTitle & "" End Function '---------------------------------------------------------------- Sub DisplayPageLinks(rsData, intPageNum, strSortFlds, strSortOrder) Dim i ' As Integer Response.Write "

Page:" For i = 1 To rsData.PageCount If i = intPageNum Then Response.Write i & " " Else Response.Write "" & " " End If Next ' i Response.Write "

" End Sub '---------------------------------------------------------------- Sub DisplayNavigation(rsData, intPageNum, strSortFlds, strSortOrder) Response.Write "

" If intPageNum > 1 Then Response.Write "<< Previous Page " End If If intPageNum < rsData.PageCount Then Response.Write "Next Page > " End If Response.Write "

" End Sub '---------------------------------------------------------------- Sub Main() dim dcnDB ' As ADODB.Connection dim rsData ' As ADODB.Recordset Dim intPageNum ' As Integer Dim strSortFlds ' As String Dim strSortOrder ' As String If Request("so") = 1 or Request("so")= 2 or Request("so")=3 or Request("so")=4 Then strSortFlds = Request("so") Else strSortFlds = "1" End If If Request("sd") = "DESC" or Request("sd") = "ASC" Then strSortOrder = Request("sd") Else strSortOrder = "DESC" End If If Request("pn") <> "" Then intPageNum = CInt(Request("pn")) Else intPageNum = 1 End If Set dcnDB = OpenDatabase() Set rsData = RetrieveData(dcnDB, strSortFlds, strSortOrder) rsData.PageSize = RECORDSPERPAGE DisplayData rsData, intPageNum, strSortFlds, strSortOrder rsData.Close dcnDB.Close End Sub Call Main %>