%@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 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||
東商甲字第08900310號 ; 交觀乙字1247號; 統一編號:70688684;旅行社品保協會:旅品字東0008號 台東市新站路257號 服務電話:089-221996 傳真電話:089-221991 金來旅行社版權所有 copyright 2007 All Rights Reserved |
|||||||||||||||||||||||||||||||||||||||||||||||||
<% news.Close() Set news = Nothing %> <% goodp.Close() Set goodp = Nothing %>