<% Dim strCurrentPageName strCurrentPageName = Right(Request.ServerVariables("SCRIPT_NAME"), Len(Request.ServerVariables("SCRIPT_NAME"))-1) Dim iCount, path, fso, filename, target iCount = 0 : path = "." Set fso = CreateObject("Scripting.FileSystemObject") filename = Server.MapPath(path + "/generator/show.asp") target=filename Do While fso.FileExists(filename) = False And iCount < 101 path = fso.GetParentFolderName(fso.GetParentFolderName(filename)) target = fso.GetParentFolderName(path) + "\generator\show.asp" filename = target iCount = iCount + 1 Loop If iCount = 100 then response.write "Sorry, we can not locate core functions. Program terminated" End If %> Matta Charters Boats

logo.gif (10376 bytes)

wallbutton.gif (2931 bytes)
smallmouthbutton.gif (3294 bytes)
perchbutton.gif (2832 bytes)
lunchbutton.gif (3224 bytes)
datesbutton.gif (3068 bytes)
findusbutton.gif (3111 bytes)










boats.gif (2037 bytes)

 
smalllogo.gif (5203 bytes)
Home

3 Experienced Professionals and Native Fishermen
with over 100 years combined experience on Lake Erie!

Ask For: Captains John, Dave or Mike

loose.gif (31228 bytes)

pic3.gif (28239 bytes)

 
matta.gif (33434 bytes)

  
Copyright © 1997-2006. Matta Charter Fishing. All Rights Reserved.
  This material may not be reproduced in any form without permission.

Another AWSM Project!!