<% dim fs, folder, file, item, url dim strLastFile, strLastDate Dim Rapportarray(13) Dim AndraPDFarray() Dim strPDFlink, strPDFname If Session("Year") <> "" then path = "\rapporter\" & Session("Year") end if ArchiveYear = "2010" path = "/rapporter/" & ArchiveYear path = Server.MapPath("/rapporter/" & ArchiveYear) path = "../../rapporter/" & ArchiveYear Antal_pdf = 0 set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) for each item in folder.Files if InStr(item.Name, ".pdf") > 0 then if InStr(item.Name, "Jan") = 1 then Rapportarray(1) = path & "/" & item.Name elseif InStr(item.Name, "Feb") = 1 then Rapportarray(2) = path & "/" & item.Name elseif InStr(item.Name, "Mar") = 1 then Rapportarray(3) = path & "/" & item.Name elseif InStr(item.Name, "Apr") = 1 then Rapportarray(4) = path & "/" & item.Name elseif InStr(item.Name, "Maj") = 1 then Rapportarray(5) = path & "/" & item.Name elseif InStr(item.Name, "Jun") = 1 then Rapportarray(6) = path & "/" & item.Name elseif InStr(item.Name, "Jul") = 1 then Rapportarray(7) = path & "/" & item.Name elseif InStr(item.Name, "Aug") = 1 then Rapportarray(8) = path & "/" & item.Name elseif InStr(item.Name, "Sep") = 1 then Rapportarray(9) = path & "/" & item.Name elseif InStr(item.Name, "Okt") = 1 then Rapportarray(10) = path & "/" & item.Name elseif InStr(item.Name, "Nov") = 1 then Rapportarray(11) = path & "/" & item.Name elseif InStr(item.Name, "Slut") = 1 then Rapportarray(12) = path & "/" & item.Name else ReDim Preserve AndraPDFarray(Antal_pdf+1) AndraPDFarray(Antal_pdf) = item.Name Antal_pdf = Antal_pdf + 1 end if end if next %> Arkiv för <%=ArchiveYear %>

---

Rapporter (pdf-filer, öppnas i nytt fönster		Statistik		Övrigt
<% if Rapportarray(1) <> "" then %> <% end if %> <% if Rapportarray(2) <> "" then %> <% end if %> <% if Rapportarray(3) <> "" then %> <% end if %> <% if Rapportarray(4) <> "" then %> <% end if %> <% if Rapportarray(5) <> "" then %> <% end if %> <% if Rapportarray(6) <> "" then %> <% end if %> <% if Rapportarray(7) <> "" then %> <% end if %> <% if Rapportarray(8) <> "" then %> <% end if %> <% if Rapportarray(9) <> "" then %> <% end if %> <% if Rapportarray(10) <> "" then %> <% end if %> <% if Rapportarray(11) <> "" then %> <% end if %> <% 'Response.Write = Antal_pdf counter = 0 Do while counter < Antal_pdf strPDFlink = path & "/" & AndraPDFarray(counter) strPDFlink = path & "/" & Replace(Server.URLencode(AndraPDFarray(counter)),"+"," ") strPDFname = Mid(AndraPDFarray(counter),1,InStr(AndraPDFarray(counter),".pdf")-1) If InStr(strPDFname,"Smaland") = 1 then strPDFname = "Småland" & Mid(strPDFname,8,len(strPDFname)) end if %> <% =strPDFname %> <% 'Response.Write " <% end if %>				Lagen <%=ArchiveYear %> Nya regler Läckebyån <%=ArchiveYear %>

---

<%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%> <%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%> <% function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function %> <%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%>