Sample Pages

<% dim prevID, nextID, imageID Select case request("page") case 1 prevID = 0 nextID = 2 imageID = "cover.gif" case 2 prevID = 1 nextID = 3 imageID = "frontFlap.gif" case 3 prevID = 2 nextID = 4 imageID = "toc.gif" case 4 prevID = 3 nextID = 5 imageID = "page7.gif" case 5 prevID = 4 nextID = 6 imageID = "page8.gif" case 6 prevID = 5 nextID = 7 imageID = "page9.gif" case 7 prevID = 6 nextID = 8 imageID = "page10.gif" 'case 8 ' prevID = 7 ' nextID = 9 ' imageID = "backFlap.gif" case 8 prevID = 7 nextID = 0 imageID = "back.gif" case else prevID = 0 nextID = 2 imageID = "cover.gif" End Select%>

<% if prevID > 0 Then%> <%ELSE%> <%END IF%>

<% if nextID > 0 Then%> <%ELSE%> <%END IF%>