ユーザーが初めて私のサイトにアクセスしたことを検知し、フレンドリーなメッセージを表示するにはどうすればよいですか？

< %@ LANGUAGE="VBscript" % >
< %.
RequestName = Request.Form("名前")
RequestLeaveMeAlone = Request.Form("LeaveMeAlone")です。
If RequestName < >"" or RequestLeaveMeAlone < >"" then <未定義

' 同一ページ内でフォーム変数をチェックする .
  Response.Cookies("MySiteVisitorName") = RequestName
  Response.Cookies("MySiteVisitorName").Expires = #January 01, 2008#.
  Response.Cookies("MySiteLeaveMeAlone") = RequestLeaveMeAlone
  Response.Cookies("MySiteLeaveMeAlone").Expires = #January 01, 2008# のようになります。

' フォーム変数が存在する場合 , 作成するだけ クッキーを と有効期限を設定します。 .
終了する場合   

VisitorName = request.Cookies("MySiteVisitorName")
リーブミーアローン = request.Cookies("MySiteLeaveMeAlone")

' <スパン 読む <スパン クッキー

VisitorName ="" かつ LeaveMeAlone ="" の場合。

' もし クッキーを についての情報を求めるフォームを作成するだけです。 .
% >
  < html >
  < head >

<title> 風と共に去りぬ」があなたをお迎えします !</title>

  < /head >
  < body bgcolor="#ccffff" text="black" link="navy" vlink="purple" >
  < DIV ALIGN="CENTER" >
  < form action="index.asp" method="POST" >
  < H2 > ようこそ、ワンダフル春風へ < /H2 >
<スパン あなたのオンラインニックネームは <スパン < input type="text" name="name" > ( <スパン 回答しないことを選択し、そのままクリックすることもできます "です。 <スパン 送信 "

<スパン ボタン )
 < br >< br >
  < input type="hidden" name="LeaveMeAlone" value="x" >
  < input type="submit" value=" <スパン 送信 " >
  < /FORM >
  < /DIV >
  < /body >
< %.
終了する場合
If VisitorName < > "" then
  Response.write " ようこそ 訪問者名 & "訪問者名 & "！？ <スパン ここはあなたの家です <スパン !"

' <スパン もし クッキー とユーザー名はすでに存在しています , をクリックすると、ウェルカムページが表示されます。 .
終了する場合
' 残りのコードを終了する .

% >

[1]