<%@ LANGUAGE = VBScript %> <% Response.Expires = 0 %> LIETUVOS KNYGNEŠIAI IR DARAKTORIAI 1864–1904. Duomenų bazė.

    

<< Lietuviškas žodis        << Atgal    

 

LIETUVOS KNYGNEŠIAI IR DARAKTORIAI 1864–1904
2004 m. Vilniuje, „Diemedžio“ leidykloje, išleisto to paties pavadinimo katalogo
papildyta ir pataisyta skaitmenizuota versija

Tekstus ir iliustracijas parengė Benjaminas Kaluškevičius ir Kazys Misius
Elektroninio leidinio projekto autorė ir kūrybinės grupės vadovė Danutė Mukienė


Visas sąrašas

Asmenvardžių rodyklė
A, Ą, B, C, Č, D, E, F, G, H, I, Y, J, K, L, M, N, O, P, R, S, Š, T, U, Ū, V, Z, Ž



Vietovė:        
Pavardė:         Vardas:         Profesija:
Knygnešys:    Daraktorius:    Platintojas:    Knygrišys:    Rėmėjas:    Bendradarbis:    Organizatorius:   
  


Ieškota: <% dim nKodas dim nRaide nRaide=Request.QueryString("raide") %> <% Ord = " ORDER BY Kodas " %> <% Yra=1 Raide1="X" %> <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DaraktoriaiDSN" %> <% if (nRaide = Empty) then Sql = "SELECT * FROM Daraktoriai_Q" %>visas sąrašas <% End If if ( nRaide <> X ) then Sql = "SELECT * FROM Daraktoriai_Q where (Raide like '" & nRaide & "')" %>asmenvardžiai, raidė <% response.write(" "& nRaide & " ") End If %> <% Sql = Sql & Ord Set rst = objConn.Execute(Sql) If rst.EOF Then %>

Informacijos nerasta

<% Yra=0 %>

<% End If %> <% If Yra=1 Then rsArray = rst.GetRows() nr = UBound(rsArray, 2) + 1 rst.Close set rst = nothing response.write("

Rasta asmenų: " & nr) Set rst = objConn.Execute(Sql) If rst.EOF Then %>


Informacijos nerasta <% Yra=0 %>

<% End If %> <% End If %>
<% If Yra=1 Then %>

<% Eil = 0 %> <% Kiek = 1 %> <% VisoKiek = 0 %> <% Do While Not rst.EOF %> <% Raide2=rst("Raide") if ( Kiek=1 ) Then Raide1=Raide2 End If if ( Kiek>1 and Raide1 <> Raide2 ) Then Raide1=Raide2 %> <% If Eil=0 Then %> <% End If %> <% If Eil=1 Then %> <% End If %> <% Eil = Eil + 1 if ( Eil>1 ) then Eil=0 End If %> <% If Eil=0 Then %> <% End If %> <% If Eil=1 Then %> <% End If %> <% Eil = Eil + 1 if ( Eil>1 ) then Eil=0 %> <% Kiek = Kiek + 1 %> <% VisoKiek = VisoKiek + 1 %> <% rst.MoveNext %> <% Loop %>
Eil. Nr.      Pavardė, vardas, tėvo vardas Gyveno      Kategorija  Profesija          
           
           
<% nKodas=rst("Kodas") response.write(Kiek) response.write(" (") response.write(nKodas) response.write(") ") %>  <% = rst("Pavarde_1")%> <% P2 = rst("Pavarde_2") if P2<> Empty Then response.write(" ("& P2 &")") End If %> <% V1 = rst("Vardas_1") Tv = rst("Tevo_vardas") if V1<> Empty Then response.write(", "& V1) End If if Tv<> Empty Then response.write(", "& Tv) End If %>  <% Gm = rst("Gimimo_metai") Mr = rst("Mirties_metai") if Gm=0 Then response.write( "* - ") End If if Gm<>0 Then response.write(Gm & " - ") End If if Mr=0 Then response.write( "*") End If if Mr<>0 Then response.write(Mr) End If %>  <% KatJau=0 Kat1= rst("Kat_Knygnesys") Kat2= rst("Kat_Daraktorius") Kat3= rst("Kat_Organizatorius") Kat4= rst("Kat_Platintojas") Kat5= rst("Kat_Bendradarbis") Kat6= rst("Kat_Knygrisys") Kat7= rst("Kat_Remejas") if Kat1<>0 Then response.write("Knygnešys") KatJau=1 End If if Kat2<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Daraktorius") KatJau=1 End If if Kat3<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Organizatorius") KatJau=1 End If if Kat4<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Platintojas") KatJau=1 End If if Kat5<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Bendradarbis") KatJau=1 End If if Kat6<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Knygrišys") KatJau=1 End If if Kat7<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Rėmėjas") KatJau=1 End If %>  <% PrJau=0 Pr = rst("Profesija") if Pr<>0 Then response.write(rst("Profesijos_pavadinimas")) PrJau=1 End If Pr = rst("Profesija_kita") if Pr<>0 Then if PrJau>0 Then response.write("; ") End If response.write(rst("Profesijos_kitos_pavadinimas")) End If %>  <% Ft = rst("Foto_1") If ( Not Ft ) Then response.write(" >>>") %> 
<% nKodas=rst("Kodas") response.write(Kiek) response.write(" (") response.write(nKodas) response.write(") ") %>   <% = rst("Pavarde_1")%> <% P2 = rst("Pavarde_2") if P2<> Empty Then response.write(" ("& P2 &")") End If %> <% V1 = rst("Vardas_1") Tv = rst("Tevo_vardas") if V1<> Empty Then response.write(", "& V1) End If if Tv<> Empty Then response.write(", "& Tv) End If %>   <% Gm = rst("Gimimo_metai") Gma = rst("Gimimas_apie") Mr = rst("Mirties_metai") Mra = rst("Mirtis_apie") if Gm=0 Then response.write( "* - ") End If if Gm<>0 Then if Gma<>0 Then response.write("*") End If response.write(Gm & " - ") End If if Mr=0 Then response.write( "*") End If if Mr<>0 Then if Mra<>0 Then response.write("*") End If response.write(Mr) End If %>   <% KatJau=0 Kat1= rst("Kat_Knygnesys") Kat2= rst("Kat_Daraktorius") Kat3= rst("Kat_Organizatorius") Kat4= rst("Kat_Platintojas") Kat5= rst("Kat_Bendradarbis") Kat6= rst("Kat_Knygrisys") Kat7= rst("Kat_Remejas") if Kat1<>0 Then response.write("Knygnešys") KatJau=1 End If if Kat2<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Daraktorius") KatJau=1 End If if Kat3<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Organizatorius") KatJau=1 End If if Kat4<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Platintojas") KatJau=1 End If if Kat5<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Bendradarbis") KatJau=1 End If if Kat6<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Knygrišys") KatJau=1 End If if Kat7<>0 Then if KatJau>0 Then response.write("; ") End If response.write("Rėmėjas") KatJau=1 End If %>  <% PrJau=0 Pr = rst("Profesija") if Pr<>0 Then response.write(rst("Profesijos_pavadinimas")) PrJau=1 End If Pr = rst("Profesija_kita") if Pr<>0 Then if PrJau>0 Then response.write("; ") End If response.write(rst("Profesijos_kitos_pavadinimas")) End If %>  <% Ft = rst("Foto_1") If ( Not Ft ) Then response.write(" >>>") %>  
<% End If %>
Programavimas ir priežiūra: Multimedijos centras humanitarams Matematikos ir informatikos institute  
<% rst.Close objConn.Close Set objConn = Nothing Set rst = Nothing Response.End %>