::Welcome to TEMPUS Hotel Taichung world wide web::
<%
SQL = "Select * From News Where News_Class = '客房促銷' Order By News_Postday Desc"
Set rs = GetMdbRecordset(DB, SQL)
If rs is Nothing Then
Response.Write "開啟資料庫失敗"&SQL&DB
Response.End
End If
If Not rs.EOF Then
%>
<%
no = 0
While Not rs.EOF
If no mod 2 = 0 Then
bg= "#F5D09D"
Else
bg= "#F9DFBC"
End If
If no < 10 Then
%>
<%
End If
no = no + 1
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
%>
<%
Else
Response.Write " Now, No Data!
"
End If
%>
<%
SQL = "Select * From News Where News_Class = '餐飲促銷' Order By News_Postday Desc"
Set rs = GetMdbRecordset(DB, SQL)
If rs is Nothing Then
Response.Write "開啟資料庫失敗"&SQL&DB
Response.End
End If
If Not rs.EOF Then
%>
<%
no = 0
While Not rs.EOF
If no mod 2 = 0 Then
bg= "#D3998E"
Else
bg= "#E8C9C2"
End If
If no < 10 Then
%>
<%
End If
no = no + 1
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
%>
<%
Else
Response.Write " Now, No Data!
"
End If
%>
<%
SQL = "Select * From News Where News_Class = '永豐棧新聞' Order By News_Postday Desc"
Set rs = GetMdbRecordset(DB, SQL)
If rs is Nothing Then
Response.Write "開啟資料庫失敗"&SQL&DB
Response.End
End If
If Not rs.EOF Then
%>
<%
no = 0
While Not rs.EOF
If no mod 2 = 0 Then
bg= "#F5D09D"
Else
bg= "#F9DFBC"
End If
If no < 10 Then
%>