<% Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../databases/rsdata.mdb") Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = 10 rs.CacheSize = 10 rs.CursorLocation = adUseClient rs.Open "Select * from Machines Order By id", connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect If rs.RecordCount = 0 Then Response.Write "

" Response.Write "          " Response.Write "There are currently no Machines listed" Response.Write "




" Else If Len(Request("pagenum")) = 0 Then rs.AbsolutePage = 1 Else If CInt(Request("pagenum")) <= rs.PageCount Then rs.AbsolutePage = Request("pagenum") Else rs.AbsolutePage = 1 End If End If Dim abspage, pagecnt abspage = rs.AbsolutePage pagecnt = rs.PageCount If Not rs.EOF Then Response.Write "" Response.Write "Page Number " & " " & rs.AbsolutePage & "  " & vbcrlf Response.Write "of " & "  " & rs.PageCount & "      " & vbcrlf Response.Write "Total Machines: " & rs.RecordCount & "
" & vbcrlf 'Response.Write "
" Response.Write "" Response.Write "" Dim fldF, intRec For intRec=1 To rs.PageSize If Not rs.EOF Then If CheckFileExists(Server.MapPath("images/pics/" & rs("id") & ".jpg")) Then Response.Write "" Else Response.Write "" End If rs.MoveNext End If Next Response.Write "

All Available Machines
	Description	Model_#	Manufacturer	Price	Category
	" & rs("name") & "	" & rs("model") & "	" & rs("manufacturer") & "	" & rs("price") & "	" & rs("category") & "
	" & rs("name") & "	" & rs("model") & "	" & rs("manufacturer") & "	" & rs("price") & "	" & rs("category") & "

" Response.Write "" Response.Write "

	" If abspage = 1 Then Response.Write "" Else Response.Write " " Response.Write "" Response.Write " " End If Response.Write "	" If abspage < pagecnt Then Response.Write " " Response.Write "" Response.Write " " Else Response.Write "" End If Response.Write "

" Else Response.Write "No records found!" End If End If rs.Close Set rs = Nothing %>