Корисничко име Лозинка <% session("user")="" korisnik=Request.Form("pole1") lozinka=Request.Form("pole2") korisnik=Replace(korisnik, "'", "''") lozinka=Replace(lozinka, "'", "''") if not isempty(Request.form("login")) then SQL="SELECT username FROM korisnici WHERE username='" & korisnik & "' AND password='" & lozinka & "'" set objRS=objConn.Execute(SQL) if objRS.EOF then 'response.write ("Таков корисник не постои или грешна лозинка") else session("user")=Request.Form("pole1") if session("user")="admin" then response.redirect("admin.asp") else response.redirect("forum.asp") end if end if else 'response.write ("Vnesi user i password") end if %>