<%
set news_news_letter = Server.CreateObject("ADODB.Recordset")
news_news_letter.ActiveConnection = MM_cprimanews_STRING
news_news_letter.Source = "SELECT * FROM q_news_newsletter ORDER BY news_date DESC"
news_news_letter.CursorType = 0
news_news_letter.CursorLocation = 2
news_news_letter.LockType = 3
news_news_letter.Open()
news_news_letter_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 10
Dim Repeat1__index
Repeat1__index = 0
news_news_letter_numRows = news_news_letter_numRows + Repeat1__numRows
%>
Newsletter
<%
While ((Repeat1__numRows <> 0) AND (NOT news_news_letter.EOF))
%>
<%=(news_news_letter.Fields.Item("news_header").Value)%>
<%=(news_news_letter.Fields.Item("news_text").Value)%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
news_news_letter.MoveNext()
Wend
%>
|
