<% @language="vbscript" %> <% option explicit %> <% '------------------------------------------------------------------------------- '作成日付:2006/01/06 '編集日付: '作 成 者:和泉 '名  称:list.asp '機  能:新潟見聞楽一覧画面 '備  考: '------------------------------------------------------------------------------- %> <% dim db dim rs dim sql dim eventArea dim eventJunl dim eventDay eventArea = request("eventArea") if get_IsNull(eventArea) then eventArea = 1 if not get_IsNumeric(eventArea) then eventArea = 1 if Not IsObject(db) then Set db = Server.CreateObject("ADODB.Connection") end if db.Open Connect if Not IsObject(rs) then Set rs = Server.CreateObject("ADODB.Recordset") end if %> 公益財団法人 新潟県文化振興財団|ニイガタ見聞楽
公益財団法人 新潟県文化振興財団
沿革、組織等 当財団主催事業案内 各種団体が行う文化活動に対する助成金 県内催物情報 各種助成制度の仕組み等相談の受付 音楽関係の図書や雑誌類の閲覧 県内公立文化施設等
ホーム > ニイガタ見聞楽

ニイガタ見聞楽

(!)各催物につきましては主催者等の都合により日時会場等が変更、延期、又は中止等になる場合がございます。
詳細につきましては主催者側にお問い合わせ下さい。
−エリア切り替え:
〔<%= areaValue(1) %>〕 〔<%= areaValue(2) %>〕 〔<%= areaValue(3) %>〕 〔<%= areaValue(4) %>〕
−ジャンル選択:
〔<%= junlValue(1) %>〕 〔<%= junlValue(2) %>〕 〔<%= junlValue(3) %>〕
表示エリア: <%= areaValue(cint(eventArea)) %>
…新潟県文化振興財団主催事業・助成事業
…保育ルームあり
<% for eventJunl = 1 to junlCount response.write("") response.write(" ") response.write(" ") response.write(" ") response.write("
") response.write("▼ジャンル: " & junlValue(cint(eventJunl)) & "
") response.write("
") response.write("") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write(" ") sql = "select * from tbl_Event" &_ " where eventApproval = 1" &_ " and eventOpenStartDay <= #" & year(now()) & "/" & month(now()) & "/" & day(now()) & "#" &_ " and #" & year(now()) & "/" & month(now()) & "/" & day(now()) & "# <= eventOpenEndDay" &_ " and eventArea = " & eventArea &_ " and eventJunl = " & eventJunl &_ " order by eventStartDay asc" rs.Open sql, db, adOpenStatic, adLockReadOnly if not rs.eof then do while not rs.eof eventDay = "" if strcomp(rs("eventStartDay"), rs("eventEndDay")) = 0 then if IsDate(rs("eventStartDay")) then eventDay = month(rs("eventStartDay")) & "月" & day(rs("eventStartDay")) & "日(" & left(weekdayname(weekday(rs("eventStartDay"))), 1) & ")" end if else if IsDate(rs("eventStartDay")) and IsDate(rs("eventEndDay")) then eventDay = month(rs("eventStartDay")) & "月" & day(rs("eventStartDay")) & "日(" & left(weekdayname(weekday(rs("eventStartDay"))), 1) & ")
" &_ "〜" & month(rs("eventEndDay")) & "月" & day(rs("eventEndDay")) & "日(" & left(weekdayname(weekday(rs("eventEndDay"))), 1) & ")" end if end if 'テーブルの色の設定 (財団主催=FFCC66)(それ以外=FFFFFF)) Dim td_color Dim Business_code ' Business_code = get_nullData(rn2br(get_HTMLEncode(rs("eventBusiness")))) if get_IsNull(rs("eventBusiness")) then Business_code = 0 else Business_code = get_nullData(rn2br(get_HTMLEncode(rs("eventBusiness")))) ' if (Business_code = 1) then ' td_color = "FFCC66" ' else ' td_color = "FFFFFF" ' end if '保育ルームの有無 Dim room Dim Room_code if get_IsNull(rs("eventRoom")) then Room_code = 0 else Room_code = get_nullData(rn2br(get_HTMLEncode(rs("eventRoom")))) if (Room_code = 1) then room = "" else room = "" end if response.write(" ") response.write(" ") 'リンクが存在する場合はリンクを貼る if isnull(rs("eventURL")) or ((rs("eventURL"))="") then response.write(" ") else response.write(" ") end if response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write(" ") rs.movenext loop end if rs.close response.write("
日程催し物時間会場料金主催連絡先
" & get_nullData(eventDay) & "" & get_nullData(rn2br(get_HTMLEncode(rs("eventName")))) & "" & get_nullData(rn2br(get_HTMLEncode(rs("eventName")))) & "" & get_nullData(rn2br(get_HTMLEncode(rs("eventTime")))) & "" & get_nullData(rn2br(get_HTMLEncode(rs("eventHall")))) & room &"" & get_nullData(rn2br(get_HTMLEncode(rs("eventPrice")))) & "" & get_nullData(rn2br(get_HTMLEncode(rs("eventSponsoring")))) & "" & get_nullData(rn2br(get_HTMLEncode(rs("eventReport")))) & "
" & vbcrlf) next %>


▲ページのトップへ

ホームへ 戻る  


Copyright (C) 2006 Niigata Cultural Foundation. All Rights Reserved.
ホームへ戻る
<% set rs = nothing db.close set db = nothing %>