%@LANGUAGE="VBSCRIPT"%> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_golden_STRING news.Source = "SELECT * FROM news ORDER BY newsid DESC" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> <% Dim goodp__MMColParam goodp__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then goodp__MMColParam = Request("MM_EmptyValue") End If %> <% Dim goodp Dim goodp_numRows Set goodp = Server.CreateObject("ADODB.Recordset") goodp.ActiveConnection = MM_golden_STRING goodp.Source = "SELECT * FROM product WHERE ptop = '" + Replace(goodp__MMColParam, "'", "''") + "' ORDER BY pid ASC" goodp.CursorType = 0 goodp.CursorLocation = 2 goodp.LockType = 1 goodp.Open() goodp_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 news_numRows = news_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 goodp_numRows = goodp_numRows + Repeat2__numRows %>
<% news.Close() Set news = Nothing %> <% goodp.Close() Set goodp = Nothing %>