リンク
<% FOR i = 0 to 2 %>
<% = LINKS(i) %>
-
<%
SET RS = Conn.Execute("select * from tb_Links where CLASS = '0' AND LINKCLASS = '" & i & "'")
DO Until RS.Eof
SITE_NAME = RS("SITE_NAME")
URL = RS("URL")
%>
- <% = SITE_NAME %> <% RS.MoveNext Loop %>