<%
Option Explicit
Dim RSUser
Dim conn
If not isempty(Request.Form("Login")) Then
  set conn = server.createobject ("adodb.connection")
  conn.open "ASPBook", "sa", "twoje_haslo"
  set RSUser = conn.Execute("select * from C5Login where " _
    & "UserName = '" & Request.Form("UserName") & "' and " _
    & "Password = '" & Request.Form("Password") & "'")
  If not RSUser.EOF Then
    response.cookies("Login")("UserName") = request.form ("username")
    response.cookies("Login")("FavCat") = request.form("FavCat")
    response.cookies("Login").Expires = "2/2/2002"
    response.redirect "./welcomeback.asp"
  end if
End If
%>
