STORES

    <% If IsArray(ds_area) Then For i = 0 To Ubound(ds_area, 2) area_eng_name = ds_area(1, i) Response.Write "
  • " & area_eng_name & "
  • " Next End If %>
    <% temp_code = "" If IsArray(ds_detail1) Then For i = 0 To Ubound(ds_detail1, 2) area_code = ds_detail1(0, i) area_name = ds_detail1(1, i) shop_name = ds_detail1(2, i) address = ds_detail1(3, i) tel = ds_detail1(4, i) map = ds_detail1(5, i) area_eng_name = ds_detail1(6, i) If StrComp(temp_code, area_code) <> 0 Then If StrComp(temp_code, "") <> 0 Then Response.Write "" & Chr(10) End If Response.Write "
  • " & Chr(10) Response.Write "
    " & area_eng_name & "
    " & Chr(10) temp_code = area_code End If Response.Write "

    " & shop_name & "" & tel & "" & address & "

    " & Chr(10) Next Response.Write "
  • " & Chr(10) End If temp_code = "" If IsArray(ds_detail2) Then For i = 0 To Ubound(ds_detail2, 2) shop_type_code = ds_detail2(0, i) shop_type_name = ds_detail2(1, i) shop_name = ds_detail2(2, i) address = ds_detail2(3, i) tel = ds_detail2(4, i) map = ds_detail2(5, i) shop_type_eng_name = ds_detail2(6, i) If StrComp(temp_code, shop_type_code) <> 0 Then If StrComp(temp_code, "") <> 0 Then Response.Write "" & Chr(10) End If Response.Write "
  • " & Chr(10) Response.Write "
    " & shop_type_eng_name & "
    " & Chr(10) temp_code = shop_type_code End If Response.Write "

    " & shop_name & "" & tel & "" & address & "

    " & Chr(10) Next Response.Write "
  • " & Chr(10) End If %>