% 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 %>
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 |