<% Dim tmppage, firstpage, maxpages ' We can specify ranges so they don't navigate past their current part ' for now the range is the entire catalog firstpage = 1 maxpages = 147 tmppage = 0 If IsNumeric(Request.QueryString("page")) Then tmppage = CInt(Request.QueryString("page")) End If ' If the page variable exists, you want to display navigation buttons If tmppage <> "" AND (tmppage >= firstpage AND tmppage <= maxpages) Then ' Make a table for the Previous/Next page objects (text, buttons, etc) Response.Write("") ' BEGIN Code Snippet 1 Response.Write("") ' END Code Snippet 1 ' BEGIN Code Snippet 2 Response.Write("") ' END Code Snippet 2 Response.Write("") ' Spacer row Response.Write("") ' JPEG Display row Response.Write("") Response.Write("") Response.Write("") Response.Write("
") ' If it isn't the first page, allow them to navigate backwards If tmppage > firstpage Then Response.Write("") Response.Write("Previous Page") Response.Write("") Else ' User is on the first page, don't let them navigate backwards Response.Write("Previous Page") End If Response.Write("") ' If it isn't the last page, allow them to navigate forwards If tmppage < maxpages Then Response.Write("") Response.Write("Next Page") Response.Write("") Else ' User is on the last page, don't let them navigate forwards Response.Write("Next Page") End If Response.Write("
 
") Response.Write("") Response.Write("
") Else Response.Redirect "sample.asp?page=1" End If %>