<%@ LANGUAGE="VBSCRIPT" %> Online Puli News
Home The Puli Who We Are Events Activities Puli News Puppies/Rescue Store Judges Ed Join Us

  <% strFullname = Session("FIRST_NAME") & " " & Session("LAST_NAME") %>
<%if Session("USERNAME") <> "" then %>

You are logged on as Userid: <%= Session("USERNAME") %>
Welcome, <% = strFullname %> <%if Session("ACCESS_LEVEL") = "3" then %>
You have Board level access <% end if %>
Log off
<%end if %>

Online Puli News

The Puli Club of America is proud to publish its popular newsletter online.  The benefits of this format include:
  • Most of the photos are in color!
  • You can read the magazine about 2 weeks earlier than the print and mailed version
  • PCA will archive the online files -- no more trying to find that old copy in the garage
  • You can search each copy for words or phrases
  • You help PCA save the significant annual cost of printing and mailing the magazine
  • We all help save some trees!
  • (You can, of course, print the magazine on your own printer, if you prefer that)

We now have scans of Puli News from the early days of our club!  Thanks to Dagmar Fertl for the scans, and to Club Historian Patty Anspach for providing these historic materials.

Due to the large size of the modern pdf files, it's best to view them using a high speed internet connection.

If you have trouble accessing the pdf files, you'll need a free copy of the Adobe Acrobat Reader.

<% dim pnDirVar pnDirVar = "D:\Hosting\2877968\html\pulinews" dim fso,mainfolder,fn,sFilename,sNewFileName,sFN,sMO,sPrefix,j,bFirstFile,nFilecount dim arrflist(100,2),ifptr dim arrpage(500,2),colptr,rowptr,sLine,n dim sSaveYear,sSortYear,sLatest,sNew Dim months Set months = CreateObject("scripting.dictionary") months("Jan") = "01" months("Feb") = "02" months("Mar") = "03" months("Apr") = "04" months("May") = "05" months("Jun") = "06" months("Jul") = "07" months("Aug") = "08" months("Sep") = "09" months("Oct") = "10" months("Nov") = "11" months("Dec") = "12" colptr=0 rowptr=0 ' option explicit ' Response.Expires = -1 ' Server.ScriptTimeout = 600 SUB WriteTableDetail(fsobj,sFname) dim syr,smon,sfsize,f if mid(sFname,1,2) = "PN" then sPubname = " Puli News" syr = mid(sFname,8,4) smon = mid(sFname,12,3) else sPubname = " Puli Post" syr = mid(sFname,6,4) smon = mid(sFname,10,3) end if set f = fsobj.GetFile(pnDirVar & "\" & sFname) sFsize = Round(((Int(f.Size) / 1024) / 1000),1) if sFsize = 0 then sFsize = .1 end if sMonNbr = months(smon) sThis = syr & sMonNbr if syr < 2011 then if colptr = 0 then colptr = 1 rowptr = 0 end if end if if sThis = sLatest then sNew = "" else sNew = " " end if if syr <> sSaveYear then sSaveYear = syr PrtToTbl "          " & sSaveYear & "" end if PrtToTbl "" & sNew & "" & smon & " " & syr & sPubname & " (" & sFsize & " mb)" & "" set f = nothing END SUB SUB PrtToTbl(sLine) arrpage(rowptr,colptr) = sLine rowptr = rowptr + 1 END SUB SUB SortList ' *** ' *** Simple bubble sort to sort filenames ' *** dim i, j, k, arrSave(2) for i = (ifptr - 2) to 0 step -1 for j = 0 to i if arrflist(j,0) > arrflist(j + 1, 0) then for k = 0 to 1 arrSave(k) = arrflist(j + 1,k) arrflist(j + 1, k) = arrflist(j, k) arrflist(j, k) = arrSave(k) next end if next next END SUB ' ************************ ACTUAL START OF PAGE ************************************************ if Session("Access_Level") < 1 then Response.Clear Response.Redirect("../../index.asp") end if ' Clear arrpage (array of lines to be displayed as Puli News index page) for n = 0 to UBound(arrpage,1) arrpage(n,0) = "" arrpage(n,1) = "" next %>

<% Set fso = Server.CreateObject("Scripting.FileSystemObject") set mainfolder = fso.GetFolder(pnDirVar) ifptr = 0 sLatest = "" For each fn in mainfolder.Files sFN = fn.Name if mid(sFN,1,2) = "PN" then sYR = mid(sFN,8,4) sMO = mid(sFN,12,3) elseif mid(sFN,1,2) = "PP" then sYR = mid(sFN,6,4) sMO = mid(sFN,10,3) else Response.Write "Invalid file: sFN=" & sFN & "
" end if sMoNum = "00" sMoNum = months(sMO) sYRMO = sYR & sMoNum ext = fso.GetExtensionName(pnDirVar & "\" & sFN) ' ** ' ** Edit filename, only display those with name PN--.pdf, e.g. "PN59-6-2011Dec.pdf" ' ** with newsletters, standard months have changed (2016), so we now allow any month -- checking for 1st three letters of monthname ' ** if (mid(sFN,1,2) = "PN" OR mid(sFN,1,2) = "PP") AND ext = "pdf" AND (sMoNum <> "00") AND isNumeric(sYR) then ' *** Sort on descending 4-digit year, then descending month number sSortYear = 9999 - sYR sSortIssue = 99 - sMoNum arrflist(ifptr,0) = sSortYear & sSortIssue arrflist(ifptr,1) = sFN ifptr = ifptr + 1 if sYRMO > sLatest then sLatest = sYRMO end if else ' Response.Write "Invalid file: sFN=" & sFN & "
" end if Next SortList() sSaveYear = "" for m = 0 to ifptr - 1 WriteTableDetail fso, arrflist(m,1) next ' WriteTableDetail filled in arrpage rows - it is now time to send out the HTML page ' arrpage contains print rows -- (n,0) for modern era Puli News, (n,1) for classic era ' modern era is today back to 2011, classic era is older than 2011 ' we already have more classic era scans than modern era pdfs, so the 2nd column will be longer ' hence at this point, rowptr will contain the column 2 highest row number ' strickly speaking, we should save highest column 1 row and tax the max Response.Write "
" for n = 0 to rowptr - 1 if arrpage(n,0) <> "" then Response.Write "" & arrpage(n,0) else Response.Write "" end if if arrpage(n,1) <> "" then Response.Write arrpage(n,1) end if Response.Write "" next %>
 Modern Puli News Classic Puli News
  

<% set fso = nothing set mainfolder = nothing %>

Copyright 2000-2017 Puli Club of America. All rights reserved.