<%@ LANGUAGE="VBSCRIPT" %> <% 'フォームデータをセッション変数に格納 For Each x In Request.Form Session(x) = Request.Form(x) Next '------------------------------------------------------------------------------------- ' パスワードが入力されているかどうか確認する '------------------------------------------------------------------------------------- If Session("Pass") <> Password Then If Request("Pass") <> "" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.End Else Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "パスワードの取得には下記へメールで申請ください。" Response.Write "
" Response.Write "
" Response.Write "パスワードを当方よりご連絡申し上げます。" Response.Write "
" Response.Write "
" Response.Write "メール宛て先:info@drifters.ne.jp" Response.Write "" Response.End End If End If '------------------------------------------------------------------------------------- ' パスワードが正しい時の処理（以下にあなたが作成したHTMLをあてはめてください） '------------------------------------------------------------------------------------- %>

ビーチポイント ボートポイント Special　小岩戸 Special　青ヶ島 謎のポイント？

Diving Point 情報

謎のポイント情報

このページでは密かに計画される豆南諸島への旅情報などを掲出する予定です。

ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、

ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、

ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、ネタ募集中、

パスワードが違います。

このページを見るにはパスワードが必要です。