Skripti http://oppe.admin.ut.ee/ained/tulemus/komplex.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äringu pealeht.
'Andmebaasist võetakse õppekeelte, õppekavade, astmete ja õppejõudude
'nimekiri.
'Kasutaja täidab lahtrid/valib valikutest ja suundub andmete kontrolli.
%>

<!--#INCLUDE  file="header.lisamine"-->
<html>
<head>
<title>Komplekspäring andmebaasis</title>
</head>
<!--#INCLUDE  file="body.htm"-->
<!--#INCLUDE  virtual="/Misc/table.htm"-->
<h2><center>
Kompleksp&auml;ring
</center></h2>
<font size=+2 color="#008000">T&auml;itke allpool lahtrid, tehke valikud
ja siirduge otsima. Otsingus arvestatakse k&otilde;iki &otilde;igesti
sisestatud v&auml;&auml;rtusi ja &otilde;igesti tehtud valikuid.
Loomulikult ei pea k&otilde;ik lahtrid t&auml;idetud olema ega
kõikidest valikutest valitud olema.</font><br>

<%
'Kuna Internet Exploreris on vaikimisi listidest esimene valitud,
'tuleb teatada õpetus selle valiku tühistamiseks:
if InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") > 0 then
%>
<font size=+1 color=blue>NB! Kasutades <i>Internet Explorer</i>'it saate
valikuid tühistada hoides all <code>Ctrl</code>-klahvi ja samal ajal
valitu peal klikates.</font>
<br><%
end if
%>

<form action=komplexkontroll.asp method=post>

<font size=+1 color="#800040"><li>Aine eestikeelne nimetus </font><select name=eestivalik>
<option>on
<option>sisaldab
</select><font size=+1 color="#800040">: </font><input size=30 name=eestinimi>
<br>

<font size=+1 color="#800040"><li>Aine inglisekeelne nimetus </font><select name=inglisevalik>
<option>on
<option>sisaldab
</select><font size=+1 color="#800040">: </font><input size=30 name=inglisenimi>
<br>

<font size=+1 color="#800040"><li>Aine maht </font>
<select name=mahuvalik>
<option>on
<option>on v&auml;iksem kui
<option>on suurem kui
</select><font size=+1 color="#800040">:</font> <input name=maht size=3 maxlength=3><br>
<table>
<tr>
<td>
<font size=+1 color="#800040"><li>Aine õpetamise keel on mõni järgnevatest (valige):</font></td>
<td>
<select name=keel multiple size=5>
<%
'Ühenduse loomine:
Set yhendus = Server.CreateObject("ADODB.Connection")
'Andmebaasi avamine:
yhendus.Open "Aineregister"

'Keeled:
'Päring:
Set keeled = yhendus.Execute("select nimi from Keeled order by nimi")

'Väljastus:
do while not keeled.EOF
  Response.Write "<option>"
  Response.Write keeled("nimi") & vbNewLine
  keeled.MoveNext
loop
keeled.close
%>
</select>
</td>
</tr>
</table>
<table>
<tr>
<td><font size=+1 color="#800040">
<li>Aine kuulub mõnda järgnevatest õppekavadest (valige):</font></td>
<td>
<select name=oppekava multiple size=5>
<%
'Õppekavad:
'Päring:
Set kavad = yhendus.Execute("{Call oppkavanimekiri}")

'Väljastus:
do while not kavad.EOF
  Response.Write "<option>" & kavad("oppekava") & vbNewLine
  kavad.MoveNext
loop
kavad.close
%>

</select>
</td>
</tr>
</table>
<table>
<tr>
<td><font size=+1 color="#800040">
<li>Aine kuulub mõnda järgnevatest astmetest (valige):</font>
</td>
<td>
<select name=aste multiple size=5>
<%
'Astmete leidmine andmebaasist

'Päring:
Set aste = yhendus.Execute("select nimi, kirjapilt from DBA_aste order by kood")

do while not aste.EOF
  Response.Write "<option value=" & aste("nimi") & ">"
  Response.Write aste("kirjapilt") & vbNewLine
  aste.MoveNext
loop
aste.close
%>

</SELECT>
</td>
</tr>
</table>
<table>
<tr>
<td>
<font size=+1 color="#800040">
<li>Ainet loeb mõni järgnevatest õppejõududest (valige):</font>
</td>
<td>
<select name=oppejoud multiple size=10>
<%
'Õppejõud:
'Päring:
Paring = "SELECT enimi, pnimi " & _
   "FROM DBA_lektor " & _
   "WHERE lopetamine Is Null " & _
   "GROUP BY Sort, enimi, pnimi " & _
   "ORDER BY Sort"

Set oppejoud=yhendus.Execute(Paring)

'Väljastus:
do while not oppejoud.EOF
  Response.Write "<option>" & oppejoud("pnimi") & ", " & _
   oppejoud("enimi") & vbNewLine
  oppejoud.MoveNext
loop
oppejoud.close
yhendus.close
%>

</select>
</td>
</tr>
</table>

<font size=+1 color="#800040"><li>Aine toimub sel õppeaastal: </font>
<input name=selaastal value=OK type=checkbox><br>
<br>
<input type=submit value="Otsima!"><input type=reset value="Esialgne seis">

</form>
<!--#INCLUDE  virtual="/Misc/table.htm"-->
<!--#INCLUDE  file="footer.htm"-->