台灣25新食尚運動‧25縣市長‧75家私房餐廳‧首度曝光！

<% Set cn=Server.CreateObject("ADODB.Connection") cn.Open("Driver={SQL Server};Server=Server08;UID=user_web;PWD=724;Database=bookzone") sql="Select * From Event_Category Where event=122" set rs=cn.execute(sql) if rs("EndTime")" & vbcrlf response.write "alert(""很抱歉，這個活動已結束，謝謝！"");" & vbcrlf response.write "location.href='http://www.gvm.com.tw/event/2008taiwanfood/index.asp'" & vbcrlf response.write "" & vbcrlf response.End() end if rs.close() set rs = nothing cn.close() set cn = nothing Set cn_gvm=Server.CreateObject("ADODB.Connection") cn_gvm.Open("Driver={SQL Server};Server=Server08;UID=user_web;PWD=724;Database=gvm") sql_gvm = "SELECT * FROM taiwan_trip_20080718 WHERE Candidate LIKE 'F%'" Set rs_gvm=cn_gvm.execute(sql_gvm) F01=0:F02=0:F03=0:F04=0:F05=0:F06=0:F07=0:F08=0:F09=0:F10=0:F11=0:F12=0:F13=0:F14=0:F15=0:F16=0:F17=0:F18=0:F19=0:F20=0:F21=0:F22=0:F23=0:F24=0:F25=0 FFFF = "" Do While not rs_gvm.eof FFFF = trim(rs_gvm("Candidate")) if (instr(FFFF,"F01") <> 0) then F01 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F02") <> 0) then F02 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F03") <> 0) then F03 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F04") <> 0) then F04 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F05") <> 0) then F05 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F06") <> 0) then F06 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F07") <> 0) then F07 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F08") <> 0) then F08 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F09") <> 0) then F09 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F10") <> 0) then F10 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F11") <> 0) then F11 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F12") <> 0) then F12 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F13") <> 0) then F13 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F14") <> 0) then F14 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F15") <> 0) then F15 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F16") <> 0) then F16 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F17") <> 0) then F17 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F18") <> 0) then F18 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F19") <> 0) then F19 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F20") <> 0) then F20 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F21") <> 0) then F21 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F22") <> 0) then F22 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F23") <> 0) then F23 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F24") <> 0) then F24 = rs_gvm("Candidate_Count") end if if (instr(FFFF,"F25") <> 0) then F25 = rs_gvm("Candidate_Count") end if rs_gvm.movenext loop rs_gvm.close() set rs_gvm = nothing %> 台灣25新食尚運動‧25縣市長‧75家私房餐廳‧首度曝光！

活動期間：2008年12月12日~2009年2月27日PM6：00止

每位網友可複選三個縣市

PK開始！

基隆市

<%=F25%>票

台北縣

<%=F01%>票

台北市

<%=F02%>票

桃園縣

<%=F03%>票

新竹縣

<%=F04%>票

新竹市

<%=F05%>票

苗栗縣

<%=F06%>票

臺中縣

<%=F07%>票

臺中市

<%=F08%>票

南投縣

<%=F10%>票

彰化縣

<%=F09%>票

嘉義縣

<%=F11%>票

嘉義市

<%=F14%>票

臺南縣

<%=F12%>票

臺南市

<%=F15%>票

雲林縣

<%=F13%>票

高雄縣

<%=F16%>票

高雄市

<%=F17%>票

屏東縣

<%=F18%>票

宜蘭縣

<%=F19%>票

花蓮縣

<%=F20%>票

臺東縣

<%=F21%>票

澎湖縣

<%=F22%>票

金門縣

<%=F23%>票

連江縣

<%=F24%>票

<% sql_top = "SELECT TOP 10 * FROM taiwan_trip_20080718 WHERE Candidate LIKE 'F%' ORDER BY Candidate_Count DESC" Set rs_top = cn_gvm.execute(sql_top) i = 0 Do While not rs_top.eof i = i+1 %> <% rs_top.movenext loop rs_top.close() set rs_top = nothing cn_gvm.close() set cn_gvm = nothing %>

<% if i = 1 then %>

<% end if %>

<%=i%>

<% if rs_top("Candidate") = "F01" then Response.Write("台北縣") end if if rs_top("Candidate") = "F02" then Response.Write("台北市") end if if rs_top("Candidate") = "F03" then Response.Write("桃園縣") end if if rs_top("Candidate") = "F04" then Response.Write("新竹縣") end if if rs_top("Candidate") = "F05" then Response.Write("新竹市") end if if rs_top("Candidate") = "F06" then Response.Write("苗栗縣") end if if rs_top("Candidate") = "F07" then Response.Write("臺中縣") end if if rs_top("Candidate") = "F08" then Response.Write("臺中市") end if if rs_top("Candidate") = "F09" then Response.Write("彰化縣") end if if rs_top("Candidate") = "F10" then Response.Write("南投縣") end if if rs_top("Candidate") = "F11" then Response.Write("嘉義縣") end if if rs_top("Candidate") = "F12" then Response.Write("臺南縣") end if if rs_top("Candidate") = "F13" then Response.Write("雲林縣") end if if rs_top("Candidate") = "F14" then Response.Write("嘉義市") end if if rs_top("Candidate") = "F15" then Response.Write("臺南市") end if if rs_top("Candidate") = "F16" then Response.Write("高雄縣") end if if rs_top("Candidate") = "F17" then Response.Write("高雄市") end if if rs_top("Candidate") = "F18" then Response.Write("屏東縣") end if if rs_top("Candidate") = "F19" then Response.Write("宜蘭縣") end if if rs_top("Candidate") = "F20" then Response.Write("花蓮縣") end if if rs_top("Candidate") = "F21" then Response.Write("臺東縣") end if if rs_top("Candidate") = "F22" then Response.Write("澎湖縣") end if if rs_top("Candidate") = "F23" then Response.Write("金門縣") end if if rs_top("Candidate") = "F24" then Response.Write("連江縣") end if if rs_top("Candidate") = "F25" then Response.Write("基隆市") end if %>

<%=rs_top("Candidate_Count")%>票

定價：198元
特價：129元