<% ptype = Request("ptype") admin = Request("admin") if Trim(admin)>"" then cAdmin = "&admin=" & admin else cAdmin = "" end if a_Genre = Array("","手芸・クラフト・アート","スポーツ","音楽","教育・育児","健康","IT・コンピュータ","地域情報","料理・グルメ","語学","ダンス","その他") Set C = Server.CreateObject("ADODB.Connection") Set R = Server.CreateObject("ADODB.Recordset") path = GetPath() C.Open path %>
<% if ptype <> "asn" then %> <% end if %> <% if ptype <> "asn" then %> <% end if %>
Yoppiファンとあなたをつなぐコミュニケーションサイト・・・Yoppi club・・・
トップページに戻る
<% if ptype <> "asn" then %> サークル紹介 <% else %> サークル紹介 <% end if %>
<% if ptype <> "asn" then %> 登録はこちら <% else %> 登録はこちら <% end if %>
●ジャンル:

<% disp_cnt = 0 Dim a_Id(200) Dim a_Circle(200) Dim a_Catch(200) Dim a_Image(200) Dim a_Kids(200) For ig = 1 to 11 Erase a_Id Erase a_Circle Erase a_Catch Erase a_Image circle_cnt = 0 if admin = "all" then sDisp = "" else sDisp = " 表示識別 = 1 AND" end if sql = "SELECT * FROM サークル情報 WHERE" & sDisp & " ジャンルID = " & ig & " ORDER BY ID DESC" R.Open sql, C, 1, 1, 1 if Not R.EOF then disp_cnt = disp_cnt + 1 Do Until R.EOF circle_cnt = circle_cnt + 1 a_Id(circle_cnt) = R("ID") a_Circle(circle_cnt)= R("サークル名") a_Catch(circle_cnt) = R("キャッチ文") a_Image(circle_cnt) = R("画像名") a_Kids(circle_cnt) = R("子供識別") R.MoveNext Loop end if R.Close %> <% if (circle_cnt > 0) and (disp_cnt > 1) then %>
▲サークル紹介情報 TOPに戻る
<% end if %> <% if circle_cnt > 0 then %>
●<%=a_Genre(ig)%>
<% end if %>
<% For ic = 1 to circle_cnt step 2 %> <% if ic > 1 then %> <% end if %> <% if ic < circle_cnt then %> <% else %> <% end if %> <% Next %>
<% if a_Kids(ic) then %>
<%=a_Circle(ic)%>子供向けサークル
<% else %> <%=a_Circle(ic)%> <% end if %>
<% if a_Kids(ic+1) then %>
<%=a_Circle(ic+1)%>子供向けサークル
<% else %> <%=a_Circle(ic+1)%> <% end if %>
<%=a_Circle(ic)%><%=a_Circle(ic+1)%> 
<%=a_Catch(ic)%> <%=a_Catch(ic+1)%>
<% Next %>
トップページに戻る
<% C.Close Set R = Nothing Set C = Nothing %>