<% Option Explicit Dim cn Dim rs Dim sql Dim EMail Dim DatabaseFileName Dim ConnString Dim Conn Dim Rec Dim Value If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set cn = Application("DatabaseConnection") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "会員", cn, adOpenKeyset, adLockOptimistic, adCmdTable rs.AddNew ' Value = Request.form("name") ' rs("名前").Value = Value ' Value = Request.form("tel") ' rs("電話").Value = Value Value = Request.form("email") rs("メール").Value = Value 'rs("DATE_TIME").Value = FormatDateTime(rs("DATE_TIME").Value, vbShortDate) & " " & FormatDateTime(rs("DATE_TIME").Value, vbShortTime) rs("DATE_TIME") = Year(Now()) & "/" & Month(Now()) & "/" & Day(Now()) & " " & Hour(Time) & ":" & Minute(Time) rs("HOST").Value = request("REMOTE_HOST") rs.Update rs.Close Dim cdoConfig Dim cdoMessage Dim adoFields dim strText Set cdoConfig = Server.CreateObject("CDO.Configuration") Set cdoMessage = Server.CreateObject("CDO.Message") ' CDO.Configration Set adoFields = cdoConfig.Fields adoFields(cdoSendUsingMethod) = cdoSendUsingPort adoFields(cdoSMTPServer) = "127.0.0.1" adoFields(cdoSMTPServerPort) = 25 adoFields(cdoSMTPConnectionTimeout) = 30 adoFields.Update ' CDO.Message Set adoFields = cdoMessage.Fields adoFields(cdoContentTransferEncoding) = cdo7bit adoFields.Update With cdoMessage Set .Configuration = cdoConfig .From = """円より子ネット"" " .Subject = "円より子メールマガジン 登録結果" With .BodyPart .Charset = cdoISO_2022_JP .ContentTransferEncoding = cdo7bit End With .To = "info@madoka-club.jp" ' .To = "mukai@kazoku-mondai.co.jp" ' .To = "nishi-k@systemsoft.co.jp" .BCC = "nishi-k@systemsoft.co.jp" strText = strText & "円より子メールマガジン 登録結果" & vbCrLf strText = strText & "*********************************************************" & vbCrLf strText = strText & "■内容■" & vbCrLf & vbCrLf strText = strText & "●E-mail： " & Request.form("email") & vbCrLf strText = strText & "*********************************************************" & vbCrLf & vbCrLf .TextBody = strText .Send End With Response.Redirect "thankyou.htm" Response.end End If %> MADOKA YORIKO／円より子ネット
母と子支援議員連盟

経済的に厳しい状況にある母子家庭の自立支援をねらいとした超党派の議員連盟「母と子支援議員連盟」がこのほど発足いたしました。長年に亘ってこの問題に熱心に取り組んできた円より子らの呼びかけで、この問題について関心のある国会議員に集まって頂き、今後この問題の支援の輪を拡げていくことがねらいです。そこで今回、議員連盟誕生の背景や今後の活動について、議員連盟初代会長丹羽雄哉衆議院議員（自民・元厚生大臣）と事務局長の円が熱い議論を交わしました。

なお、この対談の模様は丹羽、円両氏のホームページに連載されます。また、この議員連盟のメンバーは８０名で、役員は顧問が森山眞弓（衆・自民）、坂口力（衆・公明）、会長が丹羽雄哉、副会長が金田勝年（参・自民）、福島豊（衆・公明）、五島正規（衆・民主）、吉川春子（参・共産）、福島みずほ（参・社民）の各氏と１４名の幹事、事務局長の円より子によって構成されています。

　
１．何故、父親が子どもを引き取らないのか？（親権について）

２．別れた父親は、子どもに会いたくないのか？　養育費を支払わないのか？（面接交渉や養育費について）

３．厳しい生活実態−就労支援について

TOPへもどる
このホームページの全ての著作権は円より子事務所に属しています。
Copyright © YORIKO MADOKA All Rights Reserved.