<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open "DBQ=" & Server.MapPath("db3.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" sql_libra="SELECT * FROM botime WHERE id > 0 ORDER BY id DESC" set RS = conn.execute(sql_libra) Dim Repeat1__numRows Repeat1__numRows = 300 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Fondacioni Shoqeria e Hapur per Shqiperine
 
 

Programi i artit dhe i kulturës

Programi i librit dhe informacionit

Programi i shoqërisë civile

Programi fellowship

Programi i administratës publike

Programi i drejtësisë

Programi i gruas

Programi i reformës ekonomike

 
 
 
 
 
   
  <% While ((Repeat1__numRows <> 0) AND (NOT RS.EOF)) %> <% ISBN = RS("ISBN") %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS.MoveNext() Wend %>


<%=(RS("titulli"))%>

Nga: <%=(RS("autori"))%> Përktheu: <%=(RS("perktheu"))%>
Botoi:<%=(RS("botoi"))%>
Viti:<%=(RS("viti"))%>