パスワードをかける

質問

初めまして。初心者です。

社員番号、パスワードを入力し、個人のページに飛ぶような仕組みを作りたい
のですが、
かなり苦労しています。

Requestの社員番号と、データベースの社員番号を比較し、
間違っていれば、エラーが出るようにし、
あっていれば、次のページに進むようにしたいのです。

見よう見まねで、↓のように作ってみたのですが・・・
これでは全然ダメだという事は分かるのですが、
どうしたらいいのか分かりません。

どうかお教えください。

データベース名：career_web
テーブル：pass　（社員番号とパスワードのテーブル）
テーブル：plan　（社員番号と、個人ページに載せたい情報（所属部署等）
のテーブル）

<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "career_web"
sql = "SELECT *"
sql = sql & " FROM pass"
sql = sql & " WHERE (社員番号 = '" & Request("社員番号"))"
On Error Resume Next
Set rs1 = cn.Execute(sql)

If (rs1("パスワード") <> (rs1(" & Request("パスワード")) Then
Response.Write "<tr><td><font size='2'>正しいパスワードを入力し
てください</font></td></tr>"
　　Else

End If
rs1.Close
%>

データベースの社員番号と、Requestの社員番号が
一致しない場合に、
”正しいパスワードを入力してください”
と出し、
一致した場合は
blankのページに飛ぶような設定にしたいのですが、
ルールの定義の仕方がまったく分からないのです。

回答No.1

ape5

rs1にCountのプロパティなかったでしたっけ？
あれば、
if rs1.Count = 0 then
Response.Write "<tr><td><font size='2'>正しい社員番号を入力してください</font></td></tr>"
end if
とパスワードチェックの前に書けるとおもいます。
もしCountプロパティがなければ、ヒットするデータがあれば社員番号が""ではないので、それを利用して、
if rs1("社員番号") = "" then
Response.Write "<tr><td><font size='2'>正しい社員番号を入力してください</font></td></tr>"
end if
と書けると思います。