<% '******* 全地区共通バナー ******** %>
<% Select GetAreaValue() %>
<% '******* 北海道地区のバナー ******* %>
<% case = "1"%>
<% '******* 東北地区のバナー ******* %>
<% case = "2" %>
<% '******* 関東地区のバナー ******* %> <% case = "3" %> <% '******* 信越・北陸区のバナー ******* %> <% case = "4" %> <% '****** 東海地区のバナー ******* %> <% case = "5" %> <% '******* 近畿地区のバナー ******* %> <% case = "6" %> <% '******* 中国・四国地区のバナー ******* %> <% case = "7" %> <% '******* 九州地区のバナー ******* %> <% case = "8" %> <% '******* 沖縄地区のバナー ******* %> <% case = "9" %> <% '******* 一般出馬地区のバナー ******* %> <% case = "10" %> <% End Select %>
<% Select GetAreaValue() %>
<% '******* 北海道地区のバナー ******* %>
<% case = "1"%>
<% '******* 東北地区のバナー ******* %>
<% case = "2" %>
<% '******* 関東地区のバナー ******* %> <% case = "3" %> <% '******* 信越・北陸区のバナー ******* %> <% case = "4" %> <% '****** 東海地区のバナー ******* %> <% case = "5" %> <% '******* 近畿地区のバナー ******* %> <% case = "6" %> <% '******* 中国・四国地区のバナー ******* %> <% case = "7" %> <% '******* 九州地区のバナー ******* %> <% case = "8" %> <% '******* 沖縄地区のバナー ******* %> <% case = "9" %> <% '******* 一般出馬地区のバナー ******* %> <% case = "10" %> <% End Select %>
<%
Dim rank As Integer
Dim point As Integer
rank = 0
point = GetPoint(0)
For i As Integer = 0 To 2
if point > GetPoint(i) Then
rank = i
End if
point = GetPoint(i)
%>
 %>)
<% Next i %>
<%= GetIdolName(i) %> 
※視聴するにはDMSプレーヤーのインストールが必要です
<% If GetRegist() = "" Then %>
<% Else %>
<% If GetAreaState() = "2" Then %>
注：
Webブラウザでポップアップ ブロックの機能が有効になっているとアイドル映像が視聴できない場合があります。
ご利用の環境をご確認頂きポップアップ ブロックを解除してご利用ください。
解除についてはこちら>>
.png);">
<%= GetButtonState(i) %>
<% Next i %>
<%= GetIdolName(i) %>
<%= GetIdolComment(i) %>