<%@LANGUAGE="VBSCRIPT"%> <% Dim gallery Dim gallery_numRows Set gallery = Server.CreateObject("ADODB.Recordset") gallery.ActiveConnection = MM_Connproducts_STRING gallery.Source = "SELECT Image_desc, Image_pict FROM gallery ORDER BY Image_fish ASC" gallery.CursorType = 0 gallery.CursorLocation = 2 gallery.LockType = 1 gallery.Open() gallery_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 gallery_numRows = gallery_numRows + Repeat1__numRows %> <% ' WA eCart Redirect if (Tshirt_Cart_redirStr <> "") then Response.Redirect(Tshirt_Cart_redirStr) end if %> Untitled Document

 

 

 

 

Where you wanna be!
What you wanna catch!
Gallery

 

If you would like to post your catch, email gary@fishermens.com

 

 

<% While ((Repeat1__numRows <> 0) AND (NOT gallery.EOF)) %>
" alt="" name="gallery_images" id="gallery_images" /> <%=(gallery.Fields.Item("Image_desc").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 gallery.MoveNext() Wend %>

 

 

Content for id "tmpcell4_1" GoeTotal: <%=WA_eCart_DisplayMoney(Tshirt_Cart, WA_eCart_GrandTotal(Tshirt_Cart))%>EditRegion4s Here

 

<% gallery.Close() Set gallery = Nothing %>