<%@ LANGUAGE = VBSCRIPT %> <% Option Explicit %> <% Dim mCompany, mPost1, mPost2, mAddress Dim mPhone1, mPhone2, mPhone3, mFax1, mFax2, mFax3 Dim mMail, mTantou, mUrl, mQustion Dim err_msg Dim flg Session.Timeout = 20 'flgをセッションから取得 flg = Session("flg") 'flgがNULLじゃなかったら if flg = 1 then mCompany = Session("mCompany") mPost1 = Session("mPost1") mPost2 = Session("mPost2") mPost3 = Session("mPost3") mAddress = Session("mAddress") mPhone1 = Session("mPhone1") mPhone2 = Session("mPhone2") mPhone3 = Session("mPhone3") mFax1 = Session("mFax1") mFax2 = Session("mFax2") mFax3 = Session("mFax3") mMail = Session("mMail") mTantou = Session("mTantou") mUrl = Session("mUrl") mQustion = Session("mQustion") err_msg = Session("err_msg") elseif flg = 2 then mCompany = Session("mCompany") mPost1 = Session("mPost1") mPost2 = Session("mPost2") mPost3 = Session("mPost3") mAddress = Session("mAddress") mPhone1 = Session("mPhone1") mPhone2 = Session("mPhone2") mPhone3 = Session("mPhone3") mFax1 = Session("mFax1") mFax2 = Session("mFax2") mFax3 = Session("mFax3") mMail = Session("mMail") mTantou = Session("mTantou") mUrl = Session("mUrl") mQustion = Session("mQustion") err_msg = Session("err_msg") err_msg = "" else mCompany = "" mPost1 = "" mPost2 = "" mPost3 = "" mAddress = "" mPhone1 = "" mPhone2 = "" mPhone3 = "" mFax1 = "" mFax2 = "" mFax3 = "" mMail = "" mTantou = "" mUrl = "" mQustion = "" err_msg = "" end if ' mMess = Replace(mMess,"
",vbCrLf) %> 福留孝介オフィシャルウェブサイト-fukudome1.com

インフォメーション

このホームページに関するお問い合わせはこちらからどうぞ。

Information

企業スポンサー募集について

fukudome1.comではホームページを応援してくださる企業スポンサーを募集しております。
詳細は下段の入力フォームよりお問い合わせください。
折り返し事務局よりご連絡させていただきます。
なお、ご入力頂いた情報の取扱いにつきましては、プライバシーポリシーに準じます。

企業スポンサー特典

  • Ｔｏｐページにバナー掲載いたします。
  • 福留オリジナルグッズのご提供させていただきます。
  • その他企画をご用意しております。

お問い合わせフォーム

会社名
郵便番号 -
会社住所
電話番号 - -
ＦＡＸ - -
E-mail
担当者様
お名前
ＵＲＬ （ＨＰをお持ちの場合）
問合わせ
内容