<% Option Explicit %> <% Session.LCID = 1033 Dim small_pic, small_picID Dim rsNews, rsGetFile, rsIntroText Dim strNewsTitle, strNewsItem, strNewsText, strIntroText Set rsIntroText = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Intro_Nyheter From tblConfiguration;" rsIntroText.Open strSQL, strCon, 2, 3 strIntroText = rsIntroText.Fields("Intro_Nyheter") Set rsNews = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tblNews WHERE tblNews.News_ID = " & CLng(Request.QueryString("NewsID")) & ";" rsNews.Open strSQL, adoCon If NOT rsNews.EOF then If DATEDIFF("d", Date(), rsNews("News_Date")) >0 then Response.Redirect "index.asp" ' If rsNews("News_Archive") <> 0 then Response.Redirect "index.asp" Else Response.Redirect "index.asp" End If %> <% = rsNews("News_title") %>
Related
News Archive
Press Info

<% Response.Write strIntroText %>


<% = rsNews("News_title") %>
<% If rsNews("News_smallpicID") = 0 then %> <% Else %> " align="right"> <% End If %> <% = FormatDateTime(rsNews("News_Date"), vbLongDate) %>

<% = rsNews("News_item") %>


<% = rsNews("News_text") %>
Back