<%

	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 = """円より子ネット"" <yoriko_madoka1@sangiin.go.jp>"
	            .Subject = "「がんばれ円より子クラブ」メルマガ会員登録受付完了"
	            With .BodyPart
	                .Charset = cdoISO_2022_JP
	                .ContentTransferEncoding = cdo7bit
	            End With
	            
	            .To = Request.form("email")

				strText = strText & "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" & vbCrLf
				strText = strText & "●○●…………………………………………………………………………" & vbCrLf
				strText = strText & "　　「がんばれ円より子クラブ」　メルマガ会員登録受付完了のお知らせ" & vbCrLf
				strText = strText & "…………………………………………………………………………●○●" & vbCrLf
				strText = strText & "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" & vbCrLf
				strText = strText & "この度は、「がんばれ円より子クラブ」へメルマガ会員にご入会いただきありがとうございます。" & vbCrLf & vbCrLf
								
				strText = strText & "メルマガ会員登録の受付を完了いたしました。" & vbCrLf
				strText = strText & "後日、「がんばれ円より子クラブ」より定期的にメルマガを配信いたします。" & vbCrLf & vbCrLf
				
				strText = strText & "☆☆　　　　　☆☆　　　　　☆☆　　　　　☆☆" & vbCrLf
				strText = strText & "このメールにお心あたりがない場合は、" & vbCrLf
				strText = strText & "お手数ですが以下のメールアドレス宛てまでご連絡ください。" & vbCrLf
				strText = strText & "「がんばれ円より子クラブ」" & vbCrLf
				strText = strText & "E-mail：info@madoka-yoriko.jp" & vbCrLf
				strText = strText & "URL：http://www.madoka-yoriko.jp/ " & vbCrLf

    	        .TextBody = strText
				
        	    .Send
	    End With


    	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 = """円より子ネット"" <yoriko_madoka1@sangiin.go.jp>"
	            .Subject = "円より子メールマガジン 登録結果"
	            With .BodyPart
	                .Charset = cdoISO_2022_JP
	                .ContentTransferEncoding = cdo7bit
	            End With

				.To = "info@madoka-yoriko.jp"	            	            
'	            .To = "info@madoka-club.jp"
'	            .To = "mukai@kazoku-mondai.co.jp"
				
				strText = ""
				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

%>
<html>

	<head>
		<meta http-equiv="content-type" content="text/html;charset=x-sjis">
		<title>MADOKA YORIKO／円より子ネット</title>
		<csscriptdict>
			<script><!--
CSStopExecution = false;
CSInit = new Array;
function CSScriptInit() {
if(typeof(skipPage) != "undefined") { if(skipPage) return; }
idxArray = new Array;
for(var i=0;i<CSInit.length;i++)
	idxArray[i] = i;
CSAction2(CSInit, idxArray);
}
CSAg = window.navigator.userAgent; CSBVers = parseInt(CSAg.charAt(CSAg.indexOf("/")+1),10);
function IsIE() { return CSAg.indexOf("MSIE") > 0;}
function CSIEStyl(s) { return document.all.tags("div")[s].style; }
function CSNSStyl(s) { return CSFindElement(s,0); }
function CSFindElement(n,ly) { if (CSBVers < 4) return document[n];
	var curDoc = ly ? ly.document : document; var elem = curDoc[n];
	if (!elem) { for (var i=0;i<curDoc.layers.length;i++) {
		elem = CSFindElement(n,curDoc.layers[i]); if (elem) return elem; }}
	return elem;
}
function CSClickReturn () {
	var bAgent = window.navigator.userAgent; 
	var bAppName = window.navigator.appName;
	if ((bAppName.indexOf("Explorer") >= 0) && (bAgent.indexOf("Mozilla/3") >= 0) && (bAgent.indexOf("Mac") >= 0))
		return true; // dont follow link
	else return false; // dont follow link
}
function CSButtonReturn () {
	var bAgent = window.navigator.userAgent; 
	var bAppName = window.navigator.appName;
	if ((bAppName.indexOf("Explorer") >= 0) && (bAgent.indexOf("Mozilla/3") >= 0) && (bAgent.indexOf("Mac") >= 0))
		return false; // follow link
	else return true; // follow link
}
CSIm = new Object();
function CSIShow(n,i) {
	if (document.images) {
		if (CSIm[n]) {
			var img = (!IsIE()) ? CSFindElement(n,0) : document[n];
			if (img && typeof(CSIm[n][i].src) != "undefined") {img.src = CSIm[n][i].src;}
			if(i != 0)
				self.status = CSIm[n][3];
			else
				self.status = " ";
			return true;
		}
	}
	return false;
}
function CSILoad(action) {
	im = action[1];
	if (document.images) {
		CSIm[im] = new Object();
		for (var i=2;i<5;i++) {
			if (action[i] != '') { CSIm[im][i-2] = new Image(); CSIm[im][i-2].src = action[i]; }
			else CSIm[im][i-2] = 0;
		}
		CSIm[im][3] = action[5];
	}
}
CSStopExecution = false;

function CSAction(array) { 
	return CSAction2(CSAct, array);
}
function CSAction2(fct, array) { 
	var result;
	for (var i=0;i<array.length;i++) {
		if(CSStopExecution) return false; 
		var actArray = fct[array[i]];
		if(actArray == null) return false; 
		var tempArray = new Array;
		for(var j=1;j<actArray.length;j++) {
			if((actArray[j] != null) && (typeof(actArray[j]) == "object") && (actArray[j].length == 2)) {
				if(actArray[j][0] == "VAR") {
					tempArray[j] = CSStateArray[actArray[j][1]];
				}
				else {
					if(actArray[j][0] == "ACT") {
						tempArray[j] = CSAction(new Array(new String(actArray[j][1])));
					}
				else
					tempArray[j] = actArray[j];
				}
			}
			else
				tempArray[j] = actArray[j];
		}			
		result = actArray[0](tempArray);
	}
	return result;
}
CSAct = new Object;

// --></script>
		</csscriptdict>
		<csactiondict>
			<script><!--
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'button2',/*URL*/'../menu_img/m7_off.gif',/*URL*/'../menu_img/m7_off.gif',/*URL*/'../menu_img/m7_off.gif','');

// --></script>
		</csactiondict>

	</head>

	<body bgcolor="white" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" onload="CSScriptInit();">
		<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.email.value == "")
  {
    alert("\"メールアドレス\" フィールドに値を入力してください。");
    theForm.email.focus();
    return (false);
  }

  if (theForm.email.value.length > 50)
  {
    alert("\"メールアドレス\" フィールドには 50 文字以下の文字を入力してください。");
    theForm.email.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="magazine_contents.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" language="JavaScript">
		<table border="0" cellpadding="0" cellspacing="0" width="600">
			<tr>
				<td width="15"></td>
				<td width="570">
					<table border="0" cellpadding="0" cellspacing="0" width="570">
						<tr height="25">
							<td width="45" height="25"></td>
							<td width="525" height="25"><b>大好評！！<br>
							「円より子のメールニュース」をお送りします。</b><p><a href="back.htm">
                            メルマガバックナンバーはこちら</a></td>
						</tr>
					</table>
					<p>
					<p>
					</p>
					<p>
					<table border="0" cellpadding="0" cellspacing="0" width="570">
						<tr>
							<td width="44" align="right" valign="top"><font size="2">●</font></td>
							<td width="455" valign="top"><font size="2">
							メールニュース（メルマガ）に登録された方には、円より子の耳寄り情報や国会の裏話、はたまたあんな事やらこんな事まで（！？）教えちゃいます！期待を裏切りませんよ！</font></td>
							<td width="71" valign="top">　</td>
						</tr>
						<tr>
							<td width="44" align="right" valign="top"><font size="2">●</font></td>
							<td width="455" valign="top"><font size="2">
							入会金・会費はありません。無料でご利用になれます。退会も自由にできますので、奮ってご登録下さい。</font></td>
							<td width="71" valign="top">　</td>
						</tr>
						<tr>
							<td width="44" align="right" valign="top"><font size="2">●</font></td>
							<td width="455" valign="top"><font size="2">
							以下にメールアドレスをご記入の上、登録ボタンをクリックしてください。</font></td>
							<td width="71" valign="top">　</td>
						</tr>
						<tr>
							<td width="44" align="right" valign="top">　</td>
							<td width="455" valign="top"><font size="1"><br>
							※がんばれ円より子クラブ・メルマガ会員への登録となります。</font></td>
							<td width="71" valign="top">　</td>
						</tr>
						<tr>
							<td width="44" align="right" valign="top">　</td>
							<td width="526" valign="top" colspan="2">

    <table border="1" width="400" cellspacing="0" bordercolor="#00A886" cellpadding="0">
      <tr>
        <td nowrap height="21" bordercolor="#00A886"><font size="2">■E-mail</font></td>
        <td nowrap height="21" bordercolor="#00A886">
        &nbsp;<!--webbot bot="Validation" s-display-name="メールアドレス" b-value-required="TRUE" i-maximum-length="50" --><input type="text" name="email" size="48" maxlength="50"></td>
      </tr>
    </table>
                    <p><input type="submit" value="  登録  " name="submit">　<input type="reset" value="リセット" name="reset"><font size="2">（リセットをクリックすると、入力をやり直すことができます）</font></p>
                    <p><a href="quit.asp">「円より子のメールニュース」配信停止・メルマガ会員退会はこちら</a></td>
						</tr>
						</table>
					</p>

                    </td>
				<td width="15"></td>
			</tr>
		</table>
		<table border="0" cellpadding="0" cellspacing="0" width="600">
			<tr>
				<td width="300" valign="bottom"><csobj w="211" h="42" t="Button" ht="menu_img/m7_off.gif" cl="menu_img/m7_off.gif">
                                                    <a onmouseover="return CSIShow(/*CMP*/'',1)" onmouseout="return CSIShow(/*CMP*/'',0)" onclick="CSIShow(/*CMP*/'',2);return CSButtonReturn()" target="_top" href="http://www.gendai-kazoku.jp/">
                <img src="../menu_img/hand-logo.jpg" width="185" height="45" name="" border="0"></a></csobj></td>
				<td width="300" align="right" valign="bottom">
                <a href="../top.html" target="top"><font size="2">TOPへもどる</font></a></td>
			</tr>
			<tr>
				<td colspan="2" align="center" valign="bottom"><font size="1">
					<hr size="1">
					このホームページの全ての著作権は円より子事務所に属しています。<br>
					Copyright &copy YORIKO MADOKA All Rights Reserved.</font></td>
			</tr>
		</table>
		</form>
	</body>

</html>