Skripti http://oppe.admin.ut.ee/ained/tulemus/komplexparing.asp 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
'Autor: Aulis Sibola
'Juhendaja: Jaanus Pöial

'Komplekspäring andmebaasis.
'Päringustring saadakse sessioonimuutujast Paring.
'Väljastatakse ainete nimekiri.
'Edasi minnakse konkreetse aine info juurde.

'Eelmisel tehel sai OK väärtuseks true. Kontroll:
if not(Session("OK")) then
  Response.Redirect "komplex.asp"
end if

'Kontrollitakse ka eelmist lehte:
if LCase(Request.ServerVariables("HTTP_REFERER")) <> "http://madu/ained/tulemus/komplexkontroll.asp" then
  Response.Redirect "komplex.asp"
end if
%>

<!--#INCLUDE  file="header.lisamine"-->
<%
'Et ei tekiks arusaamatusi, määratakse see leht kohe oma aja äraelanuks:
Response.Expires = 0%>

<html>
<head>
<title>Komplekspäring andmebaasis</title>
</head>
<!--#INCLUDE  file="body.htm"-->
<%
'Avame ühenduse andmebaasiga:
'Ühenduse loomine:
Set yhendus = Server.CreateObject("ADODB.Connection")
'Andmebaasi avamine:
yhendus.Open "Aineregister"

Set ained = yhendus.Execute(Session("Paring"))

if ained.EOF then
%>
<h2>Kahjuks ei õnnestunud nende andmetega ühtegi ainet leida.</h2>
<%
else%>

<h2><center>
Antud andmetega leiti j&auml;rgnevad ained:
</center></h2>
<!-- Ained väljastatakse tabelis -->
<table border=0>
<%
'Ainete väljastus:
Do While Not ained.EOF
eileidu = false
%>
<tr>
  <td><%=ained("teaduskond")&ained("instituut")&"."&ained("oppetool")&"."&ained("nr")%></td><%
if IsNull(ained("nimi")) then
%>
  <td><a href=aine.asp?<%=ained("teaduskond")&ained("instituut")&"."&ained("oppetool")&"."&ained("nr")%>>__</a><%
else
%>
<td><a href=aine.asp?<%=ained("teaduskond")&ained("instituut")&"."&ained("oppetool")&"."&ained("nr")%>><%=ained("nimi")%></a><%
end if
if Not(IsNull(ained("loppoppeaasta"))) then
    if ained("algoppeaasta") = ained("loppoppeaasta") then
     Response.Write " (&uuml;hekordne aine " & ained("algoppeaasta") & "/"
     Response.Write ained("algoppeaasta") + 1 & " &otilde;a.)"
    else
     Response.Write " (l&otilde;petatud " & ained("loppoppeaasta") & " a.)"
    end if
   end if%>
</td>
</tr>
<%
  ained.MoveNext
Loop
%>
</table>
<%
end if

'Korralik sulgemine:
ained.close
yhendus.close
%>
<!--#INCLUDE  file="footer.htm"-->