株式会社セイフティーリサーチ

リンク

<% 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 %>

<% Next %>