<% FilePath = "pdfs\newsletter\" Set FileSystemObject = CreateObject("Scripting.FileSystemObject") Set FileObject = FileSystemObject.GetFolder(server.MapPath("../pdfs/newsletter")) Set FileCollection = FileObject.Files For Each FileObject in FileCollection FullFileName = FileObject.Name FileNameLeft = Left(FullFileName, InStr(FullFileName, ".") - 1) FileNameRight = Right(FullFileName, Len(FullFileName) - InStr(FullFileName, ".")) If LCase(FileNameRight) = "pdf" Then MonthString = MonthString & "replace:" & FileNameLeft & ".txt" & "|" & MonthName(Mid(FileNameLeft, 5, 2)) & " " & CInt(Mid(FileNameLeft, 7, 2)) & ", " & Left(FileNameLeft, 4) & "|" & FullFileName & "|" End If If LCase(FileNameRight) = "txt" Then Set CurrentFile = FileSystemObject.OpenTextFile(server.MapPath("../pdfs/newsletter") & "/" & FileObject.Name, 1) MonthString = Replace(MonthString, "replace:" & FileNameLeft & ".txt", CurrentFile.ReadAll) End If Next MonthNames = Split(MonthString, "|") Temp = UBound(MonthNames) For Counter = Temp - 1 To 0 Step -3 If Counter = Temp - 1 Then CurrentIssueMonth = "" & MonthNames(Counter - 1) & "" If Left(MonthNames(Counter - 2), 8) <> "replace:" Then CurrentIssueDescription = MonthNames(Counter - 2) & "
" Else CurrentIssueDescription = "No description was provided.
" End If Else If Trim(MonthNames(Counter)) <> "" Then BuildString = BuildString & " " BuildString = BuildString & " " BuildString = BuildString & " " BuildString = BuildString & " " & MonthNames(Counter - 1) & "
" BuildString = BuildString & " " BuildString = BuildString & " " BuildString = BuildString & " " BuildString = BuildString & " " If Left(MonthNames(Counter - 2), 8) <> "replace:" Then BuildString = BuildString & " " & MonthNames(Counter - 2) & "

" Else BuildString = BuildString & " No description was provided.

" End If BuildString = BuildString & " " BuildString = BuildString & " " BuildString = BuildString & " " End If End If Next Set CurrentFile = Nothing Set FileCollection = Nothing Set FileObject = Nothing Set FileSystemObject = Nothing %>

		Marine Industry News That Matters The GLC Training newsletter brings you the latest information regarding the marine industry. Information that affects you, whether you are a recreational boater or make your living in the marine industry. Sign up to have the latest edition of the GLC Training newsletter delivered to your inbox each month, as soon as it is published. Note: All newsletters are in PDF format, which requires Adobe Acrobat reader to view. The Acrobat reader is free, downloads very quickly, and can be found here. Coming Soon!