<% Dim strHeadLine strHeadLine = PageText("Rubrik") Sub AddExtraJavaScript End Sub Sub PrintPageSpecific Dim objRS Dim strSQL strSQL = "SELECT * " & _ "FROM News " & _ "WHERE blnShow = 1 " & _ "AND blnMemberNews = 0 " & _ "AND blnArchive = 0 " & _ "ORDER BY dtmPublished DESC " & _ "LIMIT 0, 3" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objDatabase, adOpenStatic %>

<%=strHeadLine%>

<% If (LoadPageText("Bild 340", "/dynamic/" & strCurrentPage & ".asp")) <> "" Then %>
<%=PageText("Bild 340")%>
<% End If %>
<%=PageText("Text")%>



<% If objRS.EOF = False Then %> " class="newsheadline"><%=objRS("strHeadLine")%>

<% If objRS("strImage1") <> "" Then %> 2 Then %>right<% Else %>left<% End If %>">
">" height="75"<% If CBool(objRS("blnImage1Border")) = True Then %> class="blackborder"<% Else %> border="0"<% End If %>>
<% End If %>
<%=Year(objRS("dtmPublished"))%>-<%=ReturnTwo(Month(objRS("dtmPublished")))%>-<%=ReturnTwo(Day(objRS("dtmPublished")))%>
" class="newsintro"><%=CreatePDFLinks(Replace(ReturnDec(objRS.Fields("strIntro").Value), vbCrLf, "
" & vbCrLf))%>
<% If objRS("strText") <> "" Then %>">Läs mer<% End If %>
<% objRS.MoveNext Do Until objRS.EOF %>


" class="newsheadline2"><%=objRS("strHeadLine")%>

<% If objRS("strImage1") <> "" Then %> 1 Then %>right<% Else %>left<% End If %>">
">" height="75"<% If CBool(objRS("blnImage1Border")) = True Then %> class="blackborder"<% Else %> border="0"<% End If %>>
<% End If %>
<%=Year(objRS("dtmPublished"))%>-<%=ReturnTwo(Month(objRS("dtmPublished")))%>-<%=ReturnTwo(Day(objRS("dtmPublished")))%>
" class="newsintro"><%=CreatePDFLinks(Replace(ReturnDec(objRS.Fields("strIntro").Value), vbCrLf, "
" & vbCrLf))%>
<% If objRS("strText") <> "" Then %>">Läs mer<% End If %>
<% objRS.MoveNext Loop %> <% End If %>

<%ShowAds()%>
<% End Sub %> <% PrintPage "Välkommen till STAF" %>