Projekt

Obecné

Profil

Stáhnout (1.29 KB) Statistiky
| Větev: | Tag: | Revize:
1 6daefa8c Petr Lukašík
<HTML>
2
<HEAD>
3
<META content=text/html;charset=utf-8 http-equiv=Content-Type>
4
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
5
<TITLE>List of OB signs in the scope of OB Graphemic Analyses Project</TITLE>
6
</HEAD>
7
<body topmargin="15" leftmargin="15" bgcolor="#EFF1FF">
8
<FONT FACE=Verdana color=#3399ff>
9
<h2><center><strong>Selected variants <BR>from<BR> the Old Babylonian Graphemic Analyses</strong></center></h2>
10
</FONT>
11
<br>
12
<?
13
  @$spojeni = Pg_Connect("user=dbowner dbname=klinopis");
14
  if (! $spojeni)
15
  {
16
    echo ("<br>Nepodarilo se pripojit k datab?zi.<BR>\n");
17
    exit;
18
  }
19
?>
20
<FONT FACE='Arial Unicode' SIZE=3><BR>
21
</FONT>
22
<?  
23
	$polozky="fi.bcislo, fi.images, gr.gnazev";
24
  $vysledek = Pg_Exec ($spojeni, "SELECT $polozky FROM images fi, graf01 gr WHERE (gnazev='KA')");
25
  $pocet = Pg_NumRows ($vysledek);
26
  if ($pocet == 0)
27
	{
28
	echo ("Nothing found, try again.");
29
  } else {
30
  list ($bcislo) = Pg_Fetch_Array ($vysledek, $i);
31
  echo ("Selected Borger's number: <b>$bcislo</b>&nbsp; <BR>\n$pocet variant(s) found.<br>\n");
32
  echo ("<BR>\n");
33
  for ($i=0; $i < $pocet; $i++)
34
	  {
35
    list ($bcislo, $images) = Pg_Fetch_Array ($vysledek, $i);
36
    echo ("<img src=\"../png/$images\" WIDTH=40 HEIGHT=40 BORDER=0>");
37
  	}
38
	}
39
  Pg_FreeResult ($vysledek);
40
  Pg_Close ($spojeni);
41
?>
42
43
</table>
44
<br>
45
</FONT>
46
</BODY>
47
</HTML>