Skripti http://oppe.admin.ut.ee/ained/tulemus/eelmkontr.inc kood

VÄRVIDE TÄHENDUSED

	Serveripoolne skript
	Kliendipoolne skript
	Link
	Include-lause
	Freimid
	Kommentaarid
	Objekti link
	HTML ja tavaline tekst

---

<%
'Tartu Ülikooli õppeaineregistri WWW-liides
'Kontrollleht
'Autor: Aulis Sibola
'Juhendaja: Jaanus Pöial

'Kontrollitakse, et dokumendile eelnev dokument oleks õige.
'Et ei tekiks vastuolusid, lõigatakse alates '?' kõik ära.
eelmine = LCase(Request.ServerVariables("HTTP_REFERER"))
eelmine1 = Left(eelmine,34)
eelmine2 = Left(eelmine,35)
skript = "http://madu" & LCase(Request.ServerVariables("SCRIPT_NAME"))
asub = InStr(eelmine,"?")
if asub then
  skript2 = skript & Mid(eelmine,asub)
else
  skript2 = skript
end if

if eelmine <> "http://madu/ained/tulemus/algus.asp" then
  if eelmine1 <> "http://madu/ained/tulemus/aine.asp" then
   if eelmine2 <> "http://madu/ained/tulemus/ained.asp" then
    if eelmine <> skript then
     if eelmine <> skript2 then
      Response.Redirect "http://madu/ained/tulemus/algus.asp"
     end if
    end if
   end if
  end if
end if
%>