<% DIM objRS2, mySQL2, Antal_anmalningar, objRS3, Nr_anmalning_2010 mySQL2 = "SELECT Count(anmalningstid) FROM fiskanmalningar where status is null;" mySQL2 = "SELECT Count(anmalningstid) FROM fiskanmalningar where status is null or status ='Godkänd';" mySQL2 = "SELECT Count(anmalningstid) FROM fiskanmalningar where (status is null or status ='Godkänd') AND datum > '20110000';" mySQL2 = "SELECT Count(anmalningstid) FROM fiskanmalningar where (status is null or status ='Godkänd' or status ='') AND datum > '20110000';" Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS2.Open mySQL2, objConn DO WHILE NOT objRS2.EOF Antal_anmalningar = objRS2("Count(anmalningstid)") objRS2.MoveNext Loop objRS2.Close Set objRS2 = Nothing mySQL2 = "SELECT Count(anmalningstid) FROM fiskanmalningar where (status is null or status ='Godkänd') AND datum < '20110000';" Set objRS3 = Server.CreateObject("ADODB.Recordset") objRS3.Open mySQL2, objConn DO WHILE NOT objRS3.EOF Nr_anmalning_2010 = objRS3("Count(anmalningstid)") objRS3.MoveNext Loop objRS3.Close Set objRS3 = Nothing objConn.Close Set objConn = Nothing IF DateDiff("d",FormatDateTime(Date()),"02/27/2011") > 0 then strTemporaryMain = "YES" else strTemporaryMain = "NO" end if %>

<% if strTemporaryMain = "YES" then %> <% else %> <% set cr=server.createobject("MSWC.ContentRotator") response.write(cr.ChooseContent("frontpics.txt")) %> <% end if %>

<% fpmain = Server.MapPath("/newsflash.txt") Set fsmain = CreateObject("Scripting.FileSystemObject") Set amain = fsmain.OpenTextFile(fpmain) 'flash = amain.ReadLine flash = amain.ReadAll amain.Close 'Response.Write flash %> Arkiv för Småländska Specimentävlingen 1992-2011 <% if strTemporaryMain = "YES" then %> Årets fisk 2010, Abborre 2525g, Victor Englund <% end if %>

<% Dim strLastReport strLastReport = GetLastPDFinFolder("rapporter/2010") ''strLastReport = GetLastPDFinFolder("rapporter/" & Year(Now)) ''If strLastReport = "" then '' strLastReport = GetLastPDFinFolder("rapporter/" & Year(Now)-1) ''end if strLastReport = GetLastPDFinFolder("rapporter/2011") '' strLastReport = Replace(Server.URLencode(GetLastPDFinFolder("rapporter/2010")),"+"," ") strLastReport = "/rapporter/2011/Slutrapporten%202011.pdf" %> <% IF Nr_anmalning_2010 > 0 then %> <% Response.Write Nr_anmalning_2010 %> nya anmälningar för 2010 <% end if if Antal_anmalningar > 100 then %> <% if Antal_anmalningar > 1 then Response.Write Antal_anmalningar %> nya anmälningar <% else %> 1 ny anmälning <% end if else %> <% end if %>

---

Sidan uppdaterades senast <% dim fs,f, strOrgdate,strSweddate set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile("newsflash.txt") Response.Write =day(f.DateLastModified) & "/" Response.Write =month(f.DateLastModified) & "-" Response.Write =year(f.DateLastModified) & " kl." Response.Write =Right("00" & hour(f.DateLastModified) ,2) & ":" Response.Write =Right("00" & minute(f.DateLastModified) ,2) set f=nothing set fs=nothing %>
Ses bäst med Internet Explorer 6 och upplösning 1024 * 768 <%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%> <% Function GetLastPDFinFolder(path) dim fs, folder, file, item, url dim strLastFile, strLastDate set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) strLastDate = "0" strLastFile = "" for each item in folder.Files if InStr(item.Name, ".pdf") > 0 then url = MapURL(item.path) if item.DateLastModified > strLastDate then strLastFile = path & "/" & item.Name strLastFile = path & "/" & Replace(Server.URLencode(item.Name),"+"," ") end if end if next GetLastPDFinFolder = strLastFile end Function %> <%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%> <% 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 %> <%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%>