<% Option Explicit Dim login, heslo, intPristup, intNum Dim i, kod, strPass, strPartPass Dim intUpper, intLower, intRand login = Request.Form("login") heslo = Request.Form("heslo") Randomize If login = "aeg" and heslo = "aeg" Then 'Autorizace probehla intPristup = 1 End If 'Zde je mozne vlozit dalsi uzivatele 'jakoz podminku IF ... THEN 'nebo pro pripad vice 'uzivatelu doporucuji 'vyuzit prikaz CASE If intPristup = 1 Then For i = 1 to 15 intNum = Int(10 * Rnd + 48) intUpper = Int(26 * Rnd + 65) intLower = Int(26 * Rnd + 97) intRand = Int(3 * Rnd + 1) Select Case intRand Case 1 strPartPass = Chr(intNum) Case 2 strPartPass = Chr(intUpper) Case 3 strPartPass = Chr(intLower) End Select Kod = Kod & strPartPass Next Session("ad_kod") = kod Session("ad_login") = login Response.Redirect("pwd_download.html?login=" & login & "&kod=" & kod) Else Response.Write("Přístup odmítnut.") End If %>