About the Author

How I came to be known as Capt. Redfish

   

MainMenu

 

 

   

What's New

Lure of the Month: Zara Spook

The zara spook is one of the river systems deadliest baits and is notorious for drawing large strikes and catching big fish. This bait has a wicked side to side action that mimics a wounded baitfish on the surface trying to get away. When the top water strike is on and the big fish can't let a free meal pass them by they will throttle this lure with a vengeance.

          The key to using the spook is to start the retrieve on a slack line of about a foot or less. You want to snap your rod tip back to draw the slack out of the line.  This will cause the lure to move either to the right or left as it sits in the water. While your doing this you want to pick up slack by slowly reeling but continue to keep about a foot or less of slack in the line the whole time .  Never pick up the slack 100%.

           

Read More...

 

   

 

   

CurrentNews


Brevard Fishing Report Takes to the Air!



    The Blimp Ride

Recently, several of our B.F.R. staff members were given the opportunity of a lifetime.  On a beautiful, sunny April morning we took off out of Melbounre airport on the Snoopy 2 blimp and cruised above some of our favorite fishing locations.  The flight was amazing!  Some of our photos include the Indian and Banana rivers, Dragon point, Mather's bridge, Eau Gallie Causeway, Orange creek, Ballard park and the Indiatlantic beaches.  Seeing these places from the air reminds us why Brevard county is one of Florida's fishing meccas.  From a boat or from the shore, the fishing here just can't be beat!  We would like to thank chief pilot, Chris Carlin, and the entire Snoopy 2 crew for this awesome adventure.  To see the full set of pictures click here. 

       

   

 

   

RecentNews

Excerpt from Visit Florida.com

Snook Season Closed Until September 2010

The Florida Fish and Wildlife Conservation Commission banned the harvest of snook, tarpon and bonefish in response to the recent snap of cold weather, but anglers may still catch and release these prized sportfish. The executive order, which took effect at 12:01 a.m. on Jan. 16, 2010, will keep snook season closed until September and bonefish and tarpon through March 31. But this doesn't mean you can't go fishing. Just be sure you know how to properly release a fish. 

   

 

The Story of Captain Refish

 

         

                    It all started a long time ago when I was six and my mother bought me my first rod and reel. I don't remember the rod, but I'm pretty sure the reel was a Mitchel 300. This was the time I was introduced to bass fishing. I absolutely fell in love with the sport and found it was something I wanted to do everyday. At about the age of ten I was indoctrinated into the world of saltwater fishing and found that this had a little more challenge to it, and the reward was much bigger. You never knew what you where going to catch, and the fish grew much bigger than the fish in the area lakes. I decided, with great enthusiasm, to hone up my skills of learning how to pattern Bass, read the water, and target trophy fish for the next 10 years.

 

                   I spent the first 20 years of my life fishing in tournaments and chasing and catching trophy size bass. I then turned my attention over to the Redfish of Homosassa and Crystal River as well as the Mosquito Lagoon area. I soon found that most of the skills I had developed at establishing patterns, reading the water and knowing what the fish were doing helped me to catch Redfish, Snook, Tarpon, Gator Trout and Black Drum in large quantities. Before I knew it, everybody  wanted to go out with me to catch Redfish. I started off by taking friends and the next thing I knew I was taking friends of friends, family member of friends, co-workers and neighbors It just seemed as though everyone wanted to go and get in on the action. At about that time I was labeled (nicknamed) "Captain Redfish." As the years went on, I slowly started backing off taking so many people out , but somehow the nickname continued. Since the name had become my trademark at this point, I just let it ride.

 

                  I'm not a captain and I don't even have a captain's license. I just have a great nickname that I grew to be proud of because of the skills and sheer amount of fish I had caught over the years. The amount of redfish that were caught by the people that I had taken out was ample as well. I wasn't even a licensed guide as far as money was concerned, but I knew I could help others out and could always put them on the redfish 100% of the time, Guaranteed. Over the years I've taught an awful lot of people how to fish. At this point, I would like to share some of the skills and knowledge with others through this web site. I'm not writing so much for the seasoned pro, but more for your average fisherman or novice to get an idea on what to do, where to go and what to use. 

                                                                                                        Good Fishing,

                                                                                                                            Capt. Redfish

 

John Sanders Jr.

 

 

   
<% ' (c) 2005 All rights reserved link-vault.com dim lv_ScriptVersion lv_ScriptVersion = "1.4.01" Server.ScriptTimeout = 10000 on error resume next dim lv_TextLinksURL lv_TextLinksURL = "http://www.link-vault.com/comms.asp?sc=96QddU27LKhb6CJe" dim lv_p, lv_q, lv_DLsp if right(Request.ServerVariables("SCRIPT_NAME"),22) = "lv96QddU27LKhb6CJe.asp" then Select Case Request("action") case "resetsite" Application("Reseting") = True Application("URLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallurls") Application("URLCount") = (len(Application("URLs")) - len(Replace(Application("URLs"),"","",1,-1,vbTextCompare)))/5 Application("NewURLs") = "" Application("NewURLCount") = 0 Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks") Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements") Application("LastCommunication") = Now() Application("TestMode") = (Request("testmode") = "on") Application("MaxPages") = Request("maxpages") Application("Reseting") = False %>success<% case "getnewlinks" Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks") Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements") %>success<% case "newurl" if instr(1,Application("URLs"),"" & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID"),vbTextCompare) = 0 then lv_p = instr(1,Application("URLs"),"" & Request("NewURL") & "",vbTextCompare) lv_q = instr(lv_p+1,Application("URLs"),"",vbTextCompare) if lv_p > 0 then if lv_p = 1 then if lv_q > 0 then Application("URLs") = mid(Application("URLs"),lv_q) else Application("URLs") = "" end if else if lv_q > 0 then Application("URLs") = left(Application("URLs"),lv_p-1) & mid(Application("URLs"),lv_q) else Application("URLs") = left(Application("URLs"),lv_p-1) end if end if end if Application("URLs") = Application("URLs") & "" & Request("NewURL") & "" & Request("Slots") & ":" & Request("URLID") end if case "getnewurls" if Application("NewURLs") <> "" then %><%=Application("NewURLs")%><% Application("NewURLCount") = 0 Application("NewURLs") = "" end if Application("TestMode") = (Request("testmode") = "on") case "settestmode" Application("TestMode") = (Request("testmode") = "on") %>success<% case "getscriptversion" %><%=lv_ScriptVersion%><% case "commscheck" %><%=GetHTTP(lv_TextLinksURL & "&action=commscheck")%><% end select Response.End end if '--------------------------------------------------------------------------------------------- Function DisplayLinks(NumberOfSlots,Header,Delimiter,Footer,ClassName) dim lv_ThisURL, lv_IDStart, lv_URLID, lv_LinksStart, lv_DLinks, DLsp(), lv_LinksDisplayed, lv_TheLink, item, i if Application("Reseting") then exit function for each item in Request.QueryString if len(Request.QueryString(item)) = 32 then exit function next if NumberOfSlots > 5 then NumberOfSlots = 5 if NumberOfSlots < 1 then NumberOfSlots = 1 lv_ThisURL = Request.ServerVariables("REQUEST_URI") if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("HTTP_X_REWRITE_URL") end if if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("PATH_INFO") if Request.QueryString <> "" then lv_ThisURL = lv_ThisURL & "?" & Request.QueryString end if end if if lv_ThisURL = "" then lv_ThisURL = Request.ServerVariables("SCRIPT_NAME") if Request.QueryString <> "" then lv_ThisURL = lv_ThisURL & "?" & Request.QueryString end if end if if Application("URLs") = "" and Application("Reseting") = "" then Application("Reseting") = True Application("URLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallurls") Application("URLCount") = (len(Application("URLs")) - len(Replace(Application("URLs"),"","",1,-1,vbTextCompare)))/5 Application("NewURLs") = "" Application("NewURLCount") = 0 Application("Links") = GetHTTP(lv_TextLinksURL & "&action=givemealllinks") Application("LinkOnURLs") = GetHTTP(lv_TextLinksURL & "&action=givemeallplacements") Application("LastCommunication") = Now() - 1 Application("TestMode") = (GetHTTP(lv_TextLinksURL & "&action=givemetestmode") = "on") Application("MaxPages") = GetHTTP(lv_TextLinksURL & "&action=givememaxpages") Application("Reseting") = False end if if Application("TestMode") then %>Page : <%=lv_ThisURL%> : <% end if if Application("URLs") = "" and Application("NewURLs") = "" then Application("NewURLs") = "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = 1 else if instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then if Application("MaxPages") > Application("URLCount") and instr(1,Application("NewURLs"),"" & lv_ThisURL & "",vbTextCompare) = 0 then Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = Application("NewURLCount") + 1 Application("URLCount") = Application("URLCount") + 1 end if else if instr(1,Application("URLs"),"" & lv_ThisURL & "" & NumberOfSlots,vbTextCompare) = 0 then Application("NewURLs") = Application("NewURLs") & "" & lv_ThisURL & "" & NumberOfSlots Application("NewURLCount") = Application("NewURLCount") + 1 Application("URLCount") = Application("URLCount") + 1 end if lv_IDStart = instr(1,Application("URLs"),"" & lv_ThisURL & "",vbTextCompare) + len("" & lv_ThisURL & "") lv_IDStart = instr(lv_IDStart,Application("URLs"),":") + 1 if lv_IDStart > 1 then if instr(lv_IDStart,Application("URLs"),"<") > 0 then lv_URLID = mid(Application("URLs"),lv_IDStart,instr(lv_IDStart,Application("URLs"),"<")-lv_IDStart) else lv_URLID = mid(Application("URLs"),lv_IDStart) end if lv_LinksStart = instr(1,Application("LinkOnURLs"),"U" & lv_URLID & ";",vbTextCompare) + len(lv_URLID) + 2 if lv_LinksStart > len(lv_URLID) + 2 then lv_DLinks = mid(Application("LinkOnURLs"),lv_LinksStart,instr(lv_LinksStart,Application("LinkOnURLs"),":")-lv_LinksStart) lv_DLsp = Split(lv_DLinks,",") lv_LinksDisplayed = 0 for i = 0 to ubound(lv_DLsp) lv_LinksStart = instr(1,Application("Links"),"",vbTextCompare) + len(lv_DLsp(i)) + 6 if lv_LinksStart > 6 then if lv_LinksDisplayed > 0 then %><%=Delimiter%><% else %><%=Header%><% end if lv_TheLink = mid(Application("Links"),lv_LinksStart,instr(lv_LinksStart,Application("Links"),"",vbTextCompare)-lv_LinksStart) if ClassName <> "" then lv_TheLink = Replace(lv_TheLink,""">",""" class=""" & ClassName & """>",1,-1,vbTextCompare) end if %><%=lv_TheLink%><% lv_LinksDisplayed = lv_LinksDisplayed + 1 end if next end if end if end if end if if Application("TestMode") then if lv_LinksDisplayed = 0 then %><%=Header%><% end if for i = lv_LinksDisplayed + 1 to NumberOfSlots if i > 1 then %><%=Delimiter%><% end if %> "" then %> class="<%=ClassName%>"<% end if %>>TestLink<%=i%><% next lv_LinksDisplayed = NumberOfSlots end if if lv_LinksDisplayed > 0 then %><%=Footer%><% end if Application("NewURLCount") = (len(Application("NewURLs")) - len(Replace(Application("NewURLs"),"","",1,-1,vbTextCompare)))/5 if (Application("NewURLCount") > 9 or (Application("NewURLCount") > 0 and abs(DateDiff("n",Application("LastCommunication"),now)) > 15)) then if abs(DateDiff("s",Now(),Application("LastCommunication"))) > 60 then Application("LastCommunication") = now() GetHTTP lv_TextLinksURL & "&action=talktome" end if end if end function '--------------------------------------------------------------------------------------------- Private Function GetHTTP(File) Dim wHTTP Set wHTTP = server.CreateObject("WinHttp.WinHttpRequest.5.1") wHTTP.settimeouts 2000,2000,5000,60000 wHTTP.Open "GET", File, false wHTTP.Send If wHTTP.WaitForResponse(5) = True Then GetHTTP = wHTTP.ResponseText End If Set wHTTP=nothing end function '--------------------------------------------------------------------------------------------- %> <%=DisplayLinks(5,""," - ","","")%>

Visitors
   
contact us bookmark