<%@LANGUAGE="VBSCRIPT"%> <% Dim num if Session("num") <> "" then num = Session("num")+1 else num = 1 end if %> <% Dim RSshop_Aiu Dim RSshop_Cate Dim Query_Aiu Dim Query_Cate RSshop_Aiu = "%" RSshop_Cate = "%" Query_Aiu = Request.QueryString("shopAiu") Query_Cate = Request.QueryString("shopCate") if (Query_Aiu <> "") then RSshop_Aiu = Query_Aiu if (Query_Cate <> "") then RSshop_Cate = Query_Cate %> <% set RSshop = Server.CreateObject("ADODB.Recordset") RSshop.ActiveConnection = MM_connInterview_Cweb_STRING RSshop.Source = "SELECT shopID, shopNameJ, shopCoupon, shopAdv, shopEdit, mapName, mapX, mapY FROM dbo.DBshop WHERE shopAiu LIKE '" & RSshop_Aiu & "' AND shopCate LIKE '" & RSshop_Cate & "' AND mapName = 'kahala' ORDER BY shopNameJ ASC" RSshop.CursorType = 0 RSshop.CursorLocation = 2 RSshop.LockType = 3 RSshop.Open() RSshop_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RSshop_numRows = RSshop_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT RSshop.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RSshop.MoveNext() Wend %> <%if RSshop.Fields.Item("shopAdv").Value <>"" then %> " target="_blank"><% else %>　<%end if if RSshop.Fields.Item("shopCoupon").Value <> "" then %>" target="_blank"> <%else %>　<%end if %> ','<%=(RSshop.Fields.Item("mapY"))%>')"><%=(RSshop.Fields.Item("shopNameJ").Value)%>

<% RSshop.Close() %>