<%@ Language=VBScript %>
<%
Dim CnnStr, Qry
CnnStr= "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("/Razred_IVb.mdb")
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 CnnStr
'conn.Open "Razred_IVb"
Qry = "SELECT UcenikID FROM Ucenici where Prezime = '" _
& Request.Form("Prezime") & "' and Zaporka = '" _
& Request.Form("Zaporka") & "'"
Response.Write(qry) ' ovo samo privremeno da bi se videlo kako izgleda SQL upit
set rsUcenik = conn.execute (Qry)
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