%@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