<%@ Language="VBScript" CodePage=65001%> <% Option Explicit %> <% '★★★★★★★★★★★★★★★★★★★★★本番用★★★★★★★★★★★★★★★★★★★★★★★★ Const CONNECTION_STRING = "Provider=MSDASQL.1; Data Source=zama_akamatsu; User ID=sa; Password=lccL44" 'テーブルプレフィックス Const tbPrfx = "" Const UpNumber = "3" '新着情報表示数 Const cstwwwRoot = "C:\wRoot\www.zama-akamatsu.l44.jp\src" Const cstDocFld = "C:\wRoot\www.zama-akamatsu.l44.jp\sDoc" 'Const FromMailAdr = "t_ura@lcc.jp" 'Const FromMailAuth = "t_ura_lcc:91GFD7fh" 'Const FromMailSvr = "mail.lcc.jp:587" 'Const WebmasterAddr = "t_ura@lcc.jp" Const FromMailAdr = "info@zama-akamatsu.l44.jp" Const FromMailAuth = "info_zama-akamatsu:u9y54dzq" Const FromMailSvr = "mail.zama-akamatsu.l44.jp:587" Const WebmasterAddr = "info@zama-akamatsu.l44.jp" %> <% '===========================================================================Close DB Connection sub OpenDBcon Set cn = Server.CreateObject("ADODB.Connection") ' コネクション生成 cn.ConnectionString=CONNECTION_STRING cn.Open Set cm = Server.CreateObject("ADODB.Command") ' コマンドオブジェクト生成 Set cm.ActiveConnection = cn Set qr01 = CreateObject("ADODB.RecordSet") ' レコードセットオブジェクト生成 Set qr02 = CreateObject("ADODB.RecordSet") Set qr03 = CreateObject("ADODB.RecordSet") Set qr04 = CreateObject("ADODB.RecordSet") Set qr05 = CreateObject("ADODB.RecordSet") Set qr06 = CreateObject("ADODB.RecordSet") Set qr07 = CreateObject("ADODB.RecordSet") Set qr08 = CreateObject("ADODB.RecordSet") Set qr09 = CreateObject("ADODB.RecordSet") Set qr10 = CreateObject("ADODB.RecordSet") Set qr11 = CreateObject("ADODB.RecordSet") Set qr12 = CreateObject("ADODB.RecordSet") Set qr13 = CreateObject("ADODB.RecordSet") Set qr14 = CreateObject("ADODB.RecordSet") Set qr15 = CreateObject("ADODB.RecordSet") Set qr16 = CreateObject("ADODB.RecordSet") Set qr17 = CreateObject("ADODB.RecordSet") Set qr18 = CreateObject("ADODB.RecordSet") Set qr19 = CreateObject("ADODB.RecordSet") End Sub '===========================================================================Close DB Connection sub ClsDBcon if qr01.State then qr01.close if qr02.State then qr02.close if qr03.State then qr03.close if qr04.State then qr04.close if qr05.State then qr05.close if qr06.State then qr06.close if qr07.State then qr07.close if qr08.State then qr08.close if qr09.State then qr09.close if qr10.State then qr10.close if qr11.State then qr11.close if qr12.State then qr12.close if qr13.State then qr13.close if qr14.State then qr14.close if qr15.State then qr15.close if qr16.State then qr16.close if qr17.State then qr17.close if qr18.State then qr18.close if qr19.State then qr19.close set qr01=nothing set qr02=nothing set qr03=nothing set qr04=nothing set qr05=nothing set qr06=nothing set qr07=nothing set qr08=nothing set qr09=nothing set qr10=nothing set qr11=nothing set qr12=nothing set qr13=nothing set qr14=nothing set qr15=nothing set qr16=nothing set qr17=nothing set qr18=nothing set qr19=nothing set cm =nothing cn.close : set cn =nothing End Sub '===========================================================================Close DB Query Only sub ClsDBqr if qr01.State then qr01.close if qr02.State then qr02.close if qr03.State then qr03.close if qr04.State then qr04.close if qr05.State then qr05.close if qr06.State then qr06.close if qr07.State then qr07.close if qr08.State then qr08.close if qr09.State then qr09.close if qr10.State then qr10.close if qr11.State then qr11.close if qr12.State then qr12.close if qr13.State then qr13.close if qr14.State then qr14.close if qr15.State then qr15.close if qr16.State then qr16.close if qr17.State then qr17.close if qr18.State then qr18.close if qr19.State then qr19.close End Sub Sub RaiseError(Number, Source, Description) Session("ErrDescription") = Description Session("ErrSource") = Source Session("ErrNumber") = Number Response.Redirect("Error.asp") Response.End End Sub %> <% dim incCss,incJs Dim sSql, cm, cn Dim qr01, qr02, qr03, qr04, qr05, qr06, qr07, qr08, qr09, qr10, qr11, qr12, qr13, qr14, qr15, qr16, qr17, qr18, qr19 Dim rcd,rcd1,rcd2,rcd3 Dim src Response.Charset = "utf-8" %> 座間市から友好と復興ののろしを須賀川市へ | 座間あかまつ会

座間あかまつ会

座間あかまつ会について

座間あかまつ会　設立趣意書

2010年3月11日に発生した東日本大震災は我々日本国民に多大なる被害と衝撃を与えました。
それにより否が応でも自然に対する畏敬の念を再認識すると同時に当たり前に暮らしてきた普段の生活がいかに大事で尊いものであるかを思い知らされた出来事でありました。

震災直後の混乱の中で幸いにも被災されなかった方々は映像等で映し出される東北の方々の余りも甚大な被害の状況に胸を痛め、自分たちが今できることは何かを考え焦燥感にかられながら被災された方々の為に行動を起こしている姿を見て、日本人としての連帯感や主体性の高さを感じたのではないでしょうか。

発災から1年が過ぎその歩幅は狭いながらも被災地の方々は前を向いてかつての当たり前のような生活を取り戻すための歩みを始めております。
その姿に少なからず安堵をし、すでに平静な生活が戻った我々にとって時に震災の記憶や被災された方の気持ちをどこかに置き忘れてしまうことがあります。

被災された方々の思いはこの震災を風化させてもらいたくないことです。

さらには東北被災三県といわれる中で福島県は津波や建物崩壊等のみならず原発事故による放射能被害の中心とされて故郷を追われる方や福島産の農工業品に対するいわれのない風評被害に悩まされております。

我々の活動はすべての被災された方々への総花的な支援や活動はできませんが、できる範囲で出来うる限りをスタンスに座間と友好都市交流を続けている福島県須賀川市で毎年開催されている「松明あかし」に参加することにより風評被害の払しょくと復興へののろしを挙げていく所存であります。

この座間あかまつ会の趣旨に賛同し、被災地支援と人との絆を深める有志を募ります。

平成24年8月
座間あかまつ会
会　長　濱野真一
副会長　須藤真行

座間あかまつ会　沿革

座間あかまつ会　会員

 <%=incJs%>