<% Global oevent Dim i, j, f, artists, nkat, artlist if request.item("newband") = "yes" then Sendmail "jim@twwt.com", "jim@twwt.com", "New indies artist request", "My favorite indies artist is: " & request.item("ujband") else f = FileOpen("photo/kepek/artists") ParseString artists, FileRead(f), "\n" nkat = Ubound(artists) end if %>
Indies
インディーズ・フォトワールド (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 © 2004 Japanese Internet Marketing Inc. All rights reserved. I I I