<% page=Request.Querystring("page") id=Request.Querystring("id") lang=Request.Querystring("lang") antal=Request.Querystring("antal") sw=Request.Querystring("sw") 'session.lcid=1053 function SweDate(date) SweDate = year(date)&"-"&right("0"&month(date), 2)&"-"&right("0"&day(date), 2)&" "&right("0"&hour(date), 2)&":"&right("0"&minute(date), 2) end function %>
<% if page="eng" or lang="eng" then %> <% elseif page="fin" or lang="fin" then %> <% else %> <% end if %>
 
<% if page="" then %>
Nyheter

<% if antal="" then %> De senaste 20 nyheterna visas <% elseif antal="40" then %> De senaste 40 nyheterna visas <% elseif antal="alla" then %> Alla nyheter visas <% end if %>
<% if antal="" then SQLStmt = "SELECT * FROM 2005nyheter where godkand = 1 AND lang=1 order by id desc LIMIT 0,20 " elseif antal="40" then SQLStmt = "SELECT * FROM 2005nyheter where godkand = 1 AND lang=1 order by id desc LIMIT 0,40 " elseif antal="alla" then SQLStmt = "SELECT * FROM 2005nyheter where godkand = 1 AND lang=1 order by id desc LIMIT 0,1000 " end if Set Poster = objDBConnection.Execute(SQLStmt) do until Poster.EOF %>
<%= Poster("rubrik") %>
<%= Poster("inled")%>

<% if Poster("startsida")="3" then %> <% else %> »» Läs hela nyheten <% end if %>
[ Inlagd av <%= Poster("inlagt")%>  <%=SweDate(poster("datum"))%> ]       

<% Poster.MoveNext Loop poster.Close %>
 


10MILA 2005
<% elseif page="eng" then %>
News in English
<% SQLStmt = "SELECT * FROM 2005nyheter where godkand=1 AND lang=2 order by id desc LIMIT 0,20 " Set Poster = objDBConnection.Execute(SQLStmt) do until Poster.EOF %>
<%= Poster("rubrik") %>
<%= Poster("inled")%>

<% if Poster("startsida")="3" then %> <% else %> »» Read more <% end if %>
[ Written by <%= Poster("inlagt")%>    <%=SweDate(poster("datum"))%> ]       

<% Poster.MoveNext Loop poster.Close %>
10MILA 2005
<% elseif page="fin" then %>
Uutiset
<% SQLStmt = "SELECT * FROM 2005nyheter where godkand=1 AND lang=3 order by id desc LIMIT 0,20 " Set Poster = objDBConnection.Execute(SQLStmt) do until Poster.EOF %>
<%= Poster("rubrik") %>
<%= Poster("inled")%>

<% if Poster("startsida")="3" then %> <% else %> »» Lue lisää <% end if %>
[ Kirjoittanut <%= Poster("inlagt")%>    <%=SweDate(poster("datum"))%> ]       

<% Poster.MoveNext Loop poster.Close %>
10MILA 2005
<% elseif page="search" then %>
Sök efter nyheter / Search for news

<% if sw="" then %> Skriv in ditt sökord nedan och sök efter nyhet
Put in your query for search


 
<% else %>
Searched for:  
Search results
<% SQLStmt = "SELECT id, avd, rubrik, inled, brod, linknamn1, linkurl1, linknamn2, linkurl2, inlagt, datum, startsida, lang FROM 2005nyheter where godkand = 1 " SQLStmt = SQLStmt & "AND (rubrik LIKE '%" & sw & "%' " SQLStmt = SQLStmt & "OR " SQLStmt = SQLStmt & "inled LIKE '%" & sw & "%' " SQLStmt = SQLStmt & "OR " SQLStmt = SQLStmt & "brod LIKE '%" & sw & "%' " SQLStmt = SQLStmt & "OR " SQLStmt = SQLStmt & "linknamn1 LIKE '%" & sw & "%' " SQLStmt = SQLStmt & "OR " SQLStmt = SQLStmt & "linkurl1 LIKE '%" & sw & "%' " SQLStmt = SQLStmt & "OR " SQLStmt = SQLStmt & "linknamn2 LIKE '%" & sw & "%' " SQLStmt = SQLStmt & "OR " SQLStmt = SQLStmt & "linkurl2 LIKE '%" & sw & "%' " SQLStmt = SQLStmt & ") ORDER BY id desc " Set Poster = objDBConnection.Execute(SQLStmt) do until Poster.EOF %>
<%= Poster("rubrik") %>
<%= Poster("inled")%>

<% if Poster("startsida")="3" then %> <% else %> <% if Poster("lang")="1" then %> »» Läs hela nyheten <% elseif Poster("lang")="2" then %> »» Read more <% end if %> <% end if %>
[ Inlagd av <%= Poster("inlagt")%>  <%=SweDate(poster("datum"))%> ]       

<% Poster.MoveNext Loop poster.Close %> <% end if %>


10MILA 2005
<% elseif page="nyhet" then %> <% SQLStmt = "SELECT * FROM 2005nyheter where id=" & id & " " Set RS = objDBConnection.Execute(SQLStmt) Dim id, avd, rubrik, brod, inled, linknamn1, linkurl1, linknamn2, linkurl2, datum, godkand, inlagt, startsida, timesread id = RS("id") avd= RS("avd") rubrik=RS("rubrik") inled=RS("inled") linknamn1=RS("linknamn1") linkurl1=RS("linkurl1") linknamn2=RS("linknamn2") linkurl2=RS("linkurl2") datum=RS("datum") godkand=RS("godkand") inlagt=RS("inlagt") startsida=RS("startsida") timesread = RS("timesread") if len(timesread) = 0 or isnull(timesread) then objDBConnection.execute("update 2005nyheter set timesread = " & 1 & " where id = " & Id) timesread = 1 else objDBConnection.execute("update 2005nyheter set timesread = " & timesread+1 & " where id = " & Id) timesread = timesread+1 end if %>
<%= rubrik %>
<% if lang="eng" then %> <% elseif lang="fin" then %> <%else%> <% end if %> <% if lang="eng" then %> <% elseif lang="fin" then %> <% else %> <% end if %>
[ Posted by <%= inlagt %> <%=SweDate(rs("datum"))%> ] [ Kirjoittanut <%= inlagt %> <%=SweDate(rs("datum"))%> ] [ Inlagt av <%= inlagt %> <%=SweDate(rs("datum"))%> ]This news showed <%=timesread%> timesLuettu <%=timesread%> kertaaNyheten visad <%=timesread%> gånger


<%= ConvertLinks(inled) %>

<% if RS("startsida")=1 then %> <%= ConvertLinks(Radbryt(RS("brod"))) %> <% end if %>

<% if linknamn1<>"" then %>
<% if linknamn2<>"" then %> <% end if %>
  <% if lang="eng" then %>Links<% elseif lang="fin" then %>linkkejä<%else%>Länkar<%end if%>
  <%= linknamn1 %>
  <%= linknamn2 %>


<% end if %> <% RS.Close %> <% if lang="eng" then%> << Back to news page <% else %> << Åter till nyhetssidan <% end if %>
<% if lang="eng" then %> <% elseif lang="fin" then %> <% else %> <% end if %>
<% end if %>

<% objDBConnection.Close %>