<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsGallery Dim rsGallery_numRows Set rsGallery = Server.CreateObject("ADODB.Recordset") rsGallery.ActiveConnection = MM_realbigfishphotos_STRING rsGallery.Source = "SELECT * FROM photos WHERE featured = no ORDER BY photo_date desc" rsGallery.CursorType = 0 rsGallery.CursorLocation = 2 rsGallery.LockType = 1 rsGallery.Open() rsGallery_numRows = 0 %> <% Dim rsFeature Dim rsFeature_numRows Set rsFeature = Server.CreateObject("ADODB.Recordset") rsFeature.ActiveConnection = MM_realbigfishphotos_STRING rsFeature.Source = "SELECT * FROM photos WHERE featured = yes" rsFeature.CursorType = 0 rsFeature.CursorLocation = 2 rsFeature.LockType = 1 rsFeature.Open() rsFeature_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsGallery_numRows = rsGallery_numRows + Repeat1__numRows %> Sportfishing photo gallery - Fun times aboard the Intrepid in Kona, Hawaii

 

Tales from the Intrepid

 

" border="1">
<%=(rsFeature.Fields.Item("caption").Value)%>

<%=(rsFeature.Fields.Item("story").Value)%>

 

Photo Gallery

Click on thumbnail photo for a larger version.

<% i = 0 %> <% While ((Repeat1__numRows <> 0) AND (NOT rsGallery.EOF)) %> <% if i = 0 then response.write "" i = i + 1 else i = i + 1 end if %> <% if i = 3 then response.write "" i = 0 end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsGallery.MoveNext() Wend %>

">" border="1">

<%=(rsGallery.Fields.Item("caption").Value)%>

Don't see your photo here? Search our past and present photos by name and/or date.

Hint: If you don't know the exact date that you caught your fish, leave it blank.

Name: Date:
Home | Captain & Crew | Fishing Calendar | Fishing Reports | Tournaments | Photo Gallery | Reservations | Favorite Recipes

Intrepid Sportfishing
P.O Box 3278 • Kailua-Kona, HI 96745
619-994-0666

Site and Hosting by WTE Web Services

 
<% rsFeature.Close() Set rsFeature = Nothing %> <% rsGallery.Close() Set rsGallery = Nothing %>