<% @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) { %> たびふぁんクラブ Eメールニュース
Please visit our sponsor.
たびふぁん Eメールニュース プレゼント たびんふぉボード たびチャット
Eメールニュース

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

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

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

T.

氏名:

(全角:姓と名の間は全角空白)

U.

メールアドレス:

(例:info@tabifan.com)

V.

『たびふぁん』からのEメールニュース(無料)の購読を希望されますか? 
Yes No


W.

ハンドル名(ユーザーID):

(全角16文字、半角32文字まで)
*クラブをご利用されるときに必要です

D.

パスワード:

(英数8文字まで、大文字、小文字に注意)
パスワードを再入力:
プライバシーポリシーに関してはこちらをご覧ください。

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

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

ここをクリックしてください。

ご意見、ご質問は、info@tabifan.comまで

copyright 2000 KENNEDY INTERNATIONAL
<% } 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); } %>