<%@ Language=VBScript %> <% Response.Buffer=True %>

<% 'Process the current page of records CurrentPage = Request( "CurrentPage" ) 'Get the current query string value If CurrentPage = "" then CurrentPage = 1 'If nothing, this must be page 1 %> <% 'Make the connection and set page size Dim objConn Set objConn = Server.CreateObject( "ADODB.Connection" ) objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.Properties("data source")="d:\webs\lazyo1\data\webcatalog.mdb" objConn.Open Dim objRS Set objRS = Server.CreateObject( "ADODB.Recordset" )'First create an empty recordset objRS.CursorType = adOpenStatic 'Define it as a snapshot type objRS.Open "SELECT * FROM OWCatalog order by itemid", objConn 'Now use the command to propogate it objRS.AbsolutePage = CInt( CurrentPage ) 'Have to convert a strint to an integer %>

Otter Wear Catalog

<% While not objRS.EOF %> <% if (objRS(0) = 1 )then%> <% elseif (objRS(0) = 2 ) then%> <% elseif (objRS(0) = 4 ) then%> <% elseif (objRS(0) = 5 ) then%> <% elseif (objRS(0) = 6 ) then%> <% elseif (objRS(0) = 7 ) then%> <% elseif (objRS(0) = 8 ) then%> <% end if %> <% objRS.MoveNext Wend %>

Item	Product	Description	Color	Size	Price
							<%=objRS(1)%>	<%=objRS(2)%>	<% if (objRS(4) = "True" )then%> Alpine <% end if %> <% if (objRS(7) = "True" ) then%> Aqua <% end if %> <% if (objRS(6) = "True" ) then%> Black <% end if %> <% if (objRS(3) = "True" ) then%> Brown <% end if %> <% if (objRS(5) = "True" ) then%> Sunburst <%end if %> <% if (objRS(9) = "True" ) then%> Taupe <% end if %> <% if (objRS(8) = "True" ) then%> Teal <% end if %>	<% if (objRS(10) = "True" )then%> OneSize <% end if %> <% if (objRS(11) = "True" ) then%> Medium <% end if %> <% if (objRS(12) = "True" ) then%> Large <% end if %> <% if (objRS(13) = "True" ) then%> XLarge <% end if %>	$<%=objRS(14)%>

Available Colors:

Aqua

Alpine

Black

Taupe

Teal

Sunburst

All prices include shipping and handling. Order Otter Wear