<%
admin=false
If len(Request.Form("login"))>0 Then
If Request.Form("login")="aisa" and Request.Form("heslo")="aisa1" Then
response.redirect("webinform_editor/objednavky.asp")
End if
%>
<%
povoleno=false
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT * from uzivatele WHERE jmeno='" & Request.Form("login") & "' AND heslo='" & Request.Form("heslo") & "';"
rs.Open sql, conn, 1, 1
If rs.RecordCount>0 Then
povoleno=true
id=rs.Fields("id").Value
nazev=rs.Fields("nazev").Value
jmeno=rs.Fields("jmeno").Value
heslo=rs.Fields("heslo").Value
email=rs.Fields("email").Value
ReDim informace(5)
informace(0) = id
informace(1) = nazev
informace(2) = jmeno
informace(3) = heslo
informace(4) = ""
informace(5) = email
Session.Contents("logon") = informace
End If
rs.close
Set rs = Nothing
If povoleno Then
%>
<% End If %>
<% End If %>
