<%@ LANGUAGE="VBScript" %>
<% OPTION EXPLICIT %>
検索結果
<%
dim zone_id '地区ID
dim kana_shop '50音コード
Dim wagamama
dim shop_id 'CafeID
dim logo_img 'ロゴ画像
dim tel '電話番号
dim detail '詳細リンク
dim vote '投票リンク
dim fullname '正式名称
dim reccnt '
dim vote_imgname
dim detail_imgname
dim sql, objConn, objRecord,dtmDay
'==============検索SQL生成===================================
sql = "SELECT TOP 10 MONTH(cafe_news.approval_date) AS mm,DAY(cafe_news.approval_date) AS dd,cafe_master.* FROM cafe_news INNER JOIN cafe_master ON cafe_news.shop_id=cafe_master.shop_id WHERE(cafe_news.news IS NOT NULL) ORDER BY cafe_news.approval_date DESC"
Session("keyword") = "新着お知らせ"
'============================================================
%>
<%= Session("keyword") %>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRecord = Server.CreateObject("ADODB.Recordset")
objConn.Open Application("WebAccount")
objRecord.Open sql,objConn,adOpenKeyset,adLockPessimistic,adCmdText
If not objRecord.EOF then
reccnt = 1
while not objRecord.EOF
shop_id = objRecord("shop_id")
logo_img = Application("o_imgpath_s") & "logo" & shop_id & ".jpg"
tel = objRecord("tel")
zone_id = objRecord("zone_id")
detail = Application("o_htmpath_s") & objRecord("file_name") & ".php"
vote = Application("caferanking") & "?id=" & shop_id
dtmDay = objRecord("mm") & "月" & objRecord("dd") & "日 更新"
call GetShopFullName(fullname, shop_id, objRecord("shop_name"), objRecord("use_nameimage"), _
Application("o_imgpath_s") & "nameq")
vote_imgname = "VoteImage" & reccnt
detail_imgname = "DetailImage" & reccnt
Dim td_bgcolor
If reccnt mod 2 = 1 then '# 奇数の場合
td_bgcolor = "#FFCC66"
Else
td_bgcolor = "#FFFFFF" '# 偶数の場合
End If
%>
<% Select Case shop_id:Case "0216","0213","0215","0212","0210","0214","0211","0301" %>
