<% Global oevent Dim i, j, f, artists, nkat, artlist if request.item("newband") = "yes" then Sendmail "jim@twwt.com", "jim@twwt.com", "New idole artist request", "My favorite idole artist is: " & request.item("ujband") else f = FileOpen("photo/kepek/artists") ParseString artists, FileRead(f), "\n" nkat = Ubound(artists) end if %>
フォトサービス・タイトル (TEST VERSION)
 
キャッチコピー

ページの案内


  注目のアーティスト
   
<% artlist = artists for i=1 to 7 j = rnd(ubound(artlist)) %> <% remove artlist(j) next %>
  取扱いアーティスト 
   

あ・か・さ・た・な・・・行を選んで [GO] をクリック!
 
<% For i = 1 to nkat/3+1%> <% next %>
", 2) %>"> <% = NthField(artists(3*i-2), "<***>", 1) %> ", 2) %>"> <% = NthField(artists(3*i-1), "<***>", 1) %> ", 2) %>"> <% = NthField(artists(3*i), "<***>", 1) %>

 
   
  あなたが注目するアーティスト名が取扱いリストになかったら・・・リクエストをお受けします。
下のフォームにアーティスト名を書き込んで送信してください。



Copyright © 2005 Japanese Internet Marketing Inc. All rights reserved. I I I