<%@ Language=VBScript %>
<%
if not isempty(Request.Form("LogIn")) then
  set conn = server.createobject ("adodb.connection")
  conn.open "ASPBook", "sa", "yourpassword"
  set RSUser = conn.Execute("select UserName from C1Login " _
    & "where UserName = '" & Request.Form("UserName") _
    & "' and Password = '" & Request.Form("Password") _
    & "'")
  if RSUser.EOF then
    TheMessage = "Wprowadzone dane s niepoprawne. " _
      & "Sprbuj jeszcze raz."
  else
    TheMessage = "Zostae zalogowany!"
  end if
else
  TheMessage = "Prosz poda nazw uytkownika i haso."
end if
%>