<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rs_news_index__MMColParam rs_news_index__MMColParam = "Yes" If (Request.QueryString("Yes") <> "") Then rs_news_index__MMColParam = Request.QueryString("Yes") End If %> <% Dim rs_news_index Dim rs_news_index_numRows Set rs_news_index = Server.CreateObject("ADODB.Recordset") rs_news_index.ActiveConnection = MM_ghawgood_STRING rs_news_index.Source = "SELECT * FROM tbl_article WHERE show_index = '" + Replace(rs_news_index__MMColParam, "'", "''") + "' ORDER BY articleID DESC" rs_news_index.CursorType = 0 rs_news_index.CursorLocation = 2 rs_news_index.LockType = 1 rs_news_index.Open() rs_news_index_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_news_index_numRows = rs_news_index_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rs_news_index_total Dim rs_news_index_first Dim rs_news_index_last ' set the record count rs_news_index_total = rs_news_index.RecordCount ' set the number of rows displayed on this page If (rs_news_index_numRows < 0) Then rs_news_index_numRows = rs_news_index_total Elseif (rs_news_index_numRows = 0) Then rs_news_index_numRows = 1 End If ' set the first and last displayed record rs_news_index_first = 1 rs_news_index_last = rs_news_index_first + rs_news_index_numRows - 1 ' if we have the correct record count, check the other stats If (rs_news_index_total <> -1) Then If (rs_news_index_first > rs_news_index_total) Then rs_news_index_first = rs_news_index_total End If If (rs_news_index_last > rs_news_index_total) Then rs_news_index_last = rs_news_index_total End If If (rs_news_index_numRows > rs_news_index_total) Then rs_news_index_numRows = rs_news_index_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rs_news_index_total = -1) Then ' count the total records by iterating through the recordset rs_news_index_total=0 While (Not rs_news_index.EOF) rs_news_index_total = rs_news_index_total + 1 rs_news_index.MoveNext Wend ' reset the cursor to the beginning If (rs_news_index.CursorType > 0) Then rs_news_index.MoveFirst Else rs_news_index.Requery End If ' set the number of rows displayed on this page If (rs_news_index_numRows < 0 Or rs_news_index_numRows > rs_news_index_total) Then rs_news_index_numRows = rs_news_index_total End If ' set the first and last displayed record rs_news_index_first = 1 rs_news_index_last = rs_news_index_first + rs_news_index_numRows - 1 If (rs_news_index_first > rs_news_index_total) Then rs_news_index_first = rs_news_index_total End If If (rs_news_index_last > rs_news_index_total) Then rs_news_index_last = rs_news_index_total End If End If %> G HAWGOOD and Associates
menu frame
HomeLight bars and Lighting ProductsVideo ProductsServicesContact
menu frame

News

 

The number of news:   <%=(rs_news_index_total)%> 

 

<% While ((Repeat1__numRows <> 0) AND (NOT rs_news_index.EOF)) %>

<%=(rs_news_index.Fields.Item("article_title").Value)%>     <%=(rs_news_index.Fields.Item("the_date").Value)%>

<%=(rs_news_index.Fields.Item("article_summary").Value)%>

 

">Read more...

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_news_index.MoveNext() Wend %>

 

 

Quick Link

 

NEWS
- What's New?
LIGHTBARS AND LIGHTING
- Galaxy™ & Galaxy Elite™
VIDEO SYSTEMS
- Digital In-Car Video System (DVM)
- Digital Video Flashlight (DVF)

New variants are to be released later during 2006.
divider
<% rs_news_index.Close() Set rs_news_index = Nothing %>