<% Dim strHeadLine strHeadLine = PageText("Rubrik") Sub AddExtraJavaScript End Sub Sub PrintPageSpecific Const lngLimitLen = 100 Dim objNewsRS Dim strSQL Dim blnFirst Dim strTemp Dim lngSelected Dim objRS Dim strImgAlign If Request.QueryString("id").Count = 1 Then lngSelected = ReturnOnlyNumbers(Request.QueryString("id")) Else lngSelected = 0 End If If lngSelected <> 0 Then strSQL = "SELECT * " & _ "FROM News " & _ "WHERE lngNewsID = " & lngSelected & " " & _ "AND blnMemberNews = 0 " & _ "AND blnShow = 1 " & _ "ORDER BY dtmPublished DESC" Else strSQL = "SELECT * " & _ "FROM News " & _ "WHERE blnShow = 1 " & _ "AND blnMemberNews = 0 " & _ "ORDER BY dtmPublished DESC" End If Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objDatabase, adOpenStatic %>

<% If objRS.EOF = False Then lngSelected = objRS("lngNewsID") %>
<%=objRS.Fields("strHeadLine").Value%>
<%=Year(objRS("dtmPublished"))%>-<%=ReturnTwo(Month(objRS("dtmPublished")))%>-<%=ReturnTwo(Day(objRS("dtmPublished")))%>

<% If objRS.Fields("strImage1").Value <> "" Then %> <% Select Case objRS("lngImage1Pos") Case 1 strImgAlign = "left" Case 2 strImgAlign = "center" Case 3 strImgAlign = "right" End Select %> class="blackborder"<% Else %> border="0"<% End If %>><%=ResizeImage(objRS.Fields("strImage1").Value, 336)%>
<% End If %> <%=CreatePDFLinks(Replace(ReturnDec(objRS.Fields("strIntro").Value), vbCrLf, "
" & vbCrLf))%>


<%=CreatePDFLinks(Replace(ReturnDec(objRS.Fields("strText").Value), vbCrLf, "
" & vbCrLf))%>
<% If objRS.Fields("strImage2").Value <> "" Then %>
class="blackborder"<% End If %>><%=ResizeImage(objRS.Fields("strImage2").Value, 336)%>
<% End If %> <% Else %>
<%=strHeadLine%>

<% If (LoadPageText("Bild 340", "/dynamic/" & strCurrentPage & ".asp")) <> "" Then %>
<%=PageText("Bild 340")%>
<% End If %> För tillfället har vi inga nyheter.
<% End If objRS.Close Set objRS = Nothing strSQL = "SELECT * " & _ "FROM News " & _ "WHERE blnShow = 1 " & _ "AND blnMemberNews = 0 " & _ "AND blnArchive = 0 " & _ "ORDER BY dtmPublished DESC" Set objNewsRS = Server.CreateObject("ADODB.Recordset") objNewsRS.Open strSQL, objDatabase, adOpenStatic If objNewsRS.EOF = False Then %>



ÖVRIGA NYHETER


<% Do Until objNewsRS.EOF If objNewsRS("lngNewsID") <> lngSelected Then %> " class="newsheadline2"><%=objNewsRS.Fields("strHeadLine").Value%>
<%=Year(objNewsRS("dtmPublished"))%>-<%=ReturnTwo(Month(objNewsRS("dtmPublished")))%>-<%=ReturnTwo(Day(objNewsRS("dtmPublished")))%>

<% End If objNewsRS.MoveNext Loop End If objNewsRS.Close Set objNewsRS = Nothing %>

<%ShowAds()%>
<% End Sub %> <% PrintPage strHeadLine %>