<% Dim objRS, strSQL,actionImg Dim iCount, strTemp %> Flycan - 輪播式廣告
<% '活動訊息 strSQL = "select * from ( Select Top 6 ActionClass_Img,C.ActionClass_Name, N.* From " & SetuptremaTablePrefix & "Action N, " & SetuptremaTablePrefix & "ActionClass C Where " strSQL = strSQL & "(C.ActionClass_UP = 'Y') And " strSQL = strSQL & "((N.Action_StartDate <= '" & Vrhouse.DateToStr(Date) & "') And (N.Action_CloseDate >= '" & Vrhouse.DateToStr(Date) & "')) And " strSQL = strSQL & "(N.ActionClass_No = C.ActionClass_No)" strSQL = strSQL & " Order By Action_StartDate desc) tab Order By Action_StartDate desc" 'response.write(strSQL) Set objRS = Vrhouse.QuireExecute(strSQL) For iCount = 1 To objRS.RecordCount IF (Isnull(objRS("Action_Img1")) = False And objRS("Action_Img1") <> "") Then actionImg="/Upfile/Action/"& objRS("Action_Img1") ElseIF (Isnull(objRS("ActionClass_Img")) = False And objRS("ActionClass_Img") <> "") Then actionImg="/Upfile/ActionClass/"& objRS("ActionClass_Img") Else actionImg="/images/pic02.jpg" End IF %>

&Sno=<%=objRS("Action_No")%>" target="_parent"><%=objRS(" width="470" height="300" border="0">

<% objRS.MoveNext If objRS.EOF Then Exit For Next %>