たびふぁんクラブ　Ｅメールニュース

<% @LANGUAGE = "JScript" %> <% var TabifanID, TabifanHD, TabifanPS, Name, Email, Lastlogin; var sdat; var Zip1,Zip2; var Password, RePassword; var DBC, SQL, RS; var Message, Flag; var Date = new Date(); TabifanHD = new String(Request.Form("tabifanHD")); if (TabifanHD == "undefined") TabifanHD = ""; Password = new String(Request.Form("password")); RePassword = new String(Request.Form("repassword")); Name = new String(Request.Form("name")); if (Name == "undefined") Name = ""; Email = new String(Request.Form("email")); if (Email == "undefined") Email = ""; if (TabifanHD.length == 0 && Name.length == 0 && Email.length == 0){ Flag = 1; } else if (TabifanHD.length == 0 || Name.length == 0 || Password.length == 0 || RePassword.length == 0 || Email.length == 0 ){ Message = "必須項目を全て入力して[送信]をクリックして下さい。"; Flag = 2; } else if (Password.indexOf(RePassword) == -1) { Message = "パスワードが一致していません。"; Flag = 2; } else { DBC = Server.CreateObject("ADODB.Connection"); DBC.Open("TabiFanUser"); SQL = "SELECT * FROM PERSONAL WHERE tabifanHD ='" + TabifanHD + "'"; RS = DBC.Execute(SQL); if (!RS.EOF) { Message = "ご希望のハンドル名はすでに登録されています。再度入力して下さい。"; RS.Close(); DBC.Close(); Flag = 2; } else { SQL = "SELECT * FROM PERSONAL WHERE email ='" + Email + "'"; RS = DBC.Execute(SQL); if (!RS.EOF) { Message = "メールアドレスがすでに登録されています。"; RS.Close(); DBC.Close(); Flag = 2; } else { TabifanID = Date.getTime(); TabifanPS = Password; Lastlogin = 0; SQL = "INSERT INTO PERSONAL VALUES (" + TabifanID + "," + "'" + TabifanHD + "'," + "'" + TabifanPS + "'," + "'" + Name + "'," + "'" + Email + "'," + 0 +"," + "' '," + "' '," + 0 +"," + 0 +"," + 0 +"," + 0 +"," + 0 +"," + 0 +"," + 0 +"," + "' '," + "' '," + "' '," + Lastlogin + ",1)" DBC.Execute(SQL); DBC.Close(); Flag = 3; } } } if (Flag == 1) { %> たびふぁんクラブ　Ｅメールニュース

『Ｅメールニュース』

たびふぁんクラブ『Ｅメールニュース』で、たびふぁん最新情報をお届けします！

政府観光局から届いたばかりのトラベルニュースやテーマ別の記事、たびふぁんプレゼント情報、都市・国の情報、定期おもしろコラムなどなど、知っていて得する情報ばかりです。発行は、月に2回。これであなたも最新旅行通になれること間違い無し（？！）です。

ご希望の方は下記フォームへご記入ください。
また、メンバーの方は「メンテナンスメニュー」のパーソナル情報修正より購読を選択してください。

Ⅰ.	氏名： (全角：姓と名の間は全角空白)
Ⅱ.	メールアドレス： (例：info@tabifan.com)
Ⅲ.	『たびふぁん』からのＥメールニュース（無料）の購読を希望されますか？　 Yes　No

Ⅳ.	ハンドル名(ユーザーＩＤ)： (全角１６文字、半角３２文字まで) *クラブをご利用されるときに必要です
ⅴ.	パスワード： (英数８文字まで、大文字、小文字に注意）
	パスワードを再入力：

プライバシーポリシーに関してはこちらをご覧ください。

登録されますと、確認のメールが届きます。
必ず受け取ることができるメールアドレスを正しく半角で記入してください。

もし、24時間以内に『たびふぁん』からメールが届かない場合は、メンテナンスページより、入力されたメールアドレスをご確認＆修正してください。

<% } else if ( Flag =="2" ) { %> <% } else { %> <% ssdat = "http://www.tabifan.com/cgi-bin/automail.cgi?"+ "---TabiFanCLUB--------------------------------------------&"+ "ご登録ありがとうございました。以下の様に登録されました。&"+ "ハンドル名　"+TabifanHD +"&"+ "パスワード　"+TabifanPS +"&"+ "登録氏名　　"+Name +"&"+ "メール　　　"+Email +"&"+ "--------------------------------------------TabiFanCLUB---&"+ "subject=AUTOMAIL&mailadd=<"+Email+">&jumpadd=http://www.tabifan.com/tabifanclub/thanks.asp"; Response.Redirect(ssdat); } %>