<% Function GETCR(surl,lunit) '''surl = "http://yoyotaiwan777777777777777777777777.boo.jp" '''lunit = 20 If Len(surl) > lunit then cnt = Int((Len(surl)-1) / lunit) surl2 = "" For i = 1 to cnt surl2 = surl2 & Mid(surl,(i-1)*lunit+1,lunit) & "
" Next GETCR = surl2 & Mid(surl,cnt*lunit+1) Else GETCR = surl2 End If End Function ptype = Request("ptype") Session("ptype")=ptype a_InstName = Array("","青葉","都筑","緑","港北","神奈川","鶴見") Set C = Server.CreateObject("ADODB.Connection") Set R2 = 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 %>
イベント情報イベント情報
皆さんからの情報 市民イベント情報 地区センター情報 福祉保健センターのイベント情報
福祉保健センターのイベント情報
掲載されているイベントは、直前に日時などが変更になることがあります。
必ず連絡先にお問い合わせの上、ご参加ください。
申し込み方法の記載のないものは、事前申し込みはいりません。
主催・お問合せ先の記載のないものは、開催する各施設の連絡先にお問合せください。
<% disp_cnt = 0 For ia = 1 to 6 sql2 = "SELECT ID FROM イベント情報 WHERE 種別ID = 4 AND 表示識別 = 1 AND 掲載期限 >= '" & Date() & "' AND エリアID = " & ia R2.Open sql2, C, 1, 1, 1 if Not R2.EOF then bAreaData = True else bAreaData = False end if R2.Close if bAreaData = True then disp_cnt = disp_cnt + 1 if disp_cnt > 1 then %> <% end if sql2 = "SELECT * FROM イベント情報 WHERE 種別ID = 4 AND 表示識別 = 1 AND 掲載期限 >= '" & Date() & "' AND エリアID = " & ia R2.Open sql2, C, 1, 1, 1 if Not R2.EOF then sAddInfo = "" If fukushi_center_address(ia)<>"" then sAddInfo = sAddInfo & "連絡先:" If fukushi_center_post(ia)<>"" then sAddInfo = sAddInfo & "〒" & fukushi_center_post(ia) & " " end if sAddInfo = sAddInfo & fukushi_center_address(ia) end if If fukushi_center_tel(ia)<>"" then sAddInfo = sAddInfo & " TEL:" & fukushi_center_tel(ia) end if If fukushi_center_fax(ia)<>"" then sAddInfo = sAddInfo & " FAX:" & fukushi_center_fax(ia) end if %> <% Do Until R2.EOF %> <% R2.MoveNext Loop end if R2.Close end if Next C.Close Set R2 = Nothing Set C = Nothing %>
▲福祉保健センターのイベント情報 TOPに戻る
●<%=a_InstName(ia)%>福祉保健センター
<%=sAddInfo%>
No. イベント名・内容 開催日時・場所 主催・お問合せ先 備考
<%=R2("ID")%> ●<%=R2("イベント名")%>
<%=Replace(R2("イベント内容"),vbcrlf,"
")%>
<%=R2("開催日時")%>
<%=R2("開催場所")%>
<%=R2("主催者")%> <%=R2("問合先")%> <%=GETCR(R2("問合URL"),15)%> <%=GETCR(R2("問合MAIL"),15)%> <%=R2("備考")%>

トップページに戻る