[- $self=$ENV{'SCRIPT_NAME'}; -] [- $debug=0 -] [- use CONCOM; -] [$ if $debug $]Operation: [+ $fdat{op} +]

[$ endif $] [- $qstring = ( $qstring eq '' ? "id=$fdat{id}" : $ENV{QUERY_STRING} ); -] [- $remoteuser = $ENV{'REMOTE_USER'} -] [- $escmode=0; $self=$ENV{'SCRIPT_NAME'}; $gfx = $ENV{GFX_PATH}; -] [- $fileroot = "http://www.inspiral.ee/failid/"; $physicalroot = "../failid"; -] [# alamrinriigid #] [- $query = "SELECT rubriik_id, nimetus from m_rubriik WHERE parent=6 order by rubriik_id;" -] [$ if $debug $]
[+ $query +]
[$ endif $] [- $alamrub= &CONCOM::sql("$query") -] [- $whererub = "(";-] [$ foreach $i ( 0..$#{$alamrub} ) $] [- $whererub = "$whererub artiklid.rubriik=$$alamrub[$i][0] OR" -] [$ endforeach $] [- $whererub = "$whererub artiklid.rubriik=6)";-] [# EESTIKEELNE ESILEHE LUGU #] [- $query = "SELECT * from artiklid where esilehele=1 and $whererub;" -] [- $artikkel = &CONCOM::sql("$query") -] [# kas vahetame enterid br'ideks? #] [$ if $$artikkel[0][7] < 1 $] [- $lyhi = &CONCOM::web_newline($$artikkel[0][2]) -] [- $sisu = &CONCOM::web_newline($$artikkel[0][3]) -] [$ else $] [- $lyhi = $$artikkel[0][2] -] [- $sisu = $$artikkel[0][3] -] [$ endif $] [- $query = "SELECT * from failid WHERE fail_id=$$artikkel[0][18];" -] [$ if $debug $][+ $query +]
[$ endif $] [- $pilt = &CONCOM::sql("$query") -] inspiral.net
[+ $$artikkel[0][1] +]
[+ $lyhi +]
Take a look at our portfolio
References
Which are our specialities, what are the deeds to speak of and what applied technologies have we used ... Take a closer look
Our Team
Last but not least, who are the ones doing the afforementioned works, and then again why are they doing it? Take a closer look
[ eesti keeles ]