<%
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM pw WHERE mail ='" & strUserName & "'"
rsCheckUser.Open strSQL, conn
If NOT rsCheckUser.EOF Then
If (Request.Form("Passwd")) = rsCheckUser("pass") Then
Session("blnIsUserGood") = True
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Response.Redirect"master.asp"
End If
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing