<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsArticle,sID
Dim rsArticle_numRows
sID = request.QueryString("ID")
Set rsArticle = Server.CreateObject("ADODB.Recordset")
rsArticle.ActiveConnection = MM_connBlend_STRING
If request.QueryString("ID") <> "" Then
rsArticle.Source = "SELECT * FROM article Where ID= " + replace(sID, "'", "''") +" AND SubCatID=6 AND Active = 1 AND StartDate <= NOW() ORDER BY Priority ASC, StartDate DESC, ID DESC"
Else
rsArticle.Source = "SELECT * FROM article Where SubCatID=6 AND Active = 1 AND StartDate <= NOW() ORDER BY Priority ASC, StartDate DESC, ID DESC"
End If
rsArticle.CursorType = 0
rsArticle.CursorLocation = 2
rsArticle.LockType = 1
rsArticle.Open()
rsArticle_numRows = 0
%>
Folk & Fe
<% If Not rsArticle.EOF Or Not rsArticle.BOF Then %>
(Sist
oppdatert: <%= rsArticle("StartDate")%>)
<%= rsArticle("Heading")%>
<%= rsArticle("Btext")%>
<% Else %>
Ingen artikler publisert
<% End If 'Not rsArticle.EOF Or Not rsArticle.BOF %>
