<%@ Language=VBScript %>
<%
if isempty (Request.Form("Zaporka")) then
Obavijest= "Unesite tražene podatke kako biste mogli pogledati sadržaj našeg site-a, te kliknite na sliku lijevo."
else
set conn = server.createobject ("adodb.connection")
conn.open "Razred_IVb"
set rsUcenik = conn.execute ("SELECT UcenikID FROM Ucenici where Prezime = '"_
& Request.Form("Prezime") & "' and Zaporka = '" _
& Request.Form("Zaporka") & "'")
if rsUcenik.EOF then
Obavijest= "Vi niste u našoj bazi podataka, pa vas molimo da se registrirate."
else
Session("UcenikID") = rsUcenik("UcenikID")
Response.Redirect "sadrzaj.asp"
end if
end if
%>
HTT-IVb