<% Dim Arecordset__MMColParam Arecordset__MMColParam = "Yes" If (Request("MM_EmptyValue") <> "") Then Arecordset__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Arecordset Dim Arecordset_numRows Set Arecordset = Server.CreateObject("ADODB.Recordset") Arecordset.ActiveConnection = MM_EDSConnection_STRING if request.QueryString("s") = "" then Arecordset.Source = "SELECT * FROM News WHERE NArchived = " + Replace(Arecordset__MMColParam, "'", "''") + " ORDER BY NDate DESC" else dim sqlstr sqlstr = "SELECT * FROM News WHERE NArchived = " + Replace(Arecordset__MMColParam, "'", "''") + " AND " sqlstr = sqlstr + "NTitleAL LIKE '%" + Replace(request.QueryString("s"), "'", "''") + "%' OR " sqlstr = sqlstr + "NtextAL LIKE '%" + Replace(request.QueryString("s"), "'", "''") + "%' OR " sqlstr = sqlstr + "NTitleEN LIKE '%" + Replace(request.QueryString("s"), "'", "''") + "%' OR " sqlstr = sqlstr + "NTextEN LIKE '%" + Replace(request.QueryString("s"), "'", "''") + "%' ORDER BY NDate DESC" Arecordset.Source = sqlstr end if Arecordset.CursorType = 0 Arecordset.CursorLocation = 2 Arecordset.LockType = 1 Arecordset.Open() Arecordset_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Arecordset_numRows = Arecordset_numRows + Repeat1__numRows %> EDS Foundation - Arkivi
 
<%dim NewURL NewURL = "http://" & Request.ServerVariables("SERVER_NAME") & replace(Request.ServerVariables("URL"),"_EN","_AL") & "?" & Request.ServerVariables("QUERY_STRING") %>
Fondacioni Veprimtari Klubi i Miqve Lidhje Arkiv

Organizes and supports national and local cultural, sports, and science activities. In addition EDS Foundation aims to support individuals, groups, and non-profit associations that operate in these fields.

Eds-foundation.org archive
Search the Archive
View all Entries

Terms of use - Privcay Policy

Copyright © EDS Foundation.
All rights Reserved.
Design and Development: MOD

<% While ((Repeat1__numRows <> 0) AND (NOT Arecordset.EOF)) if Repeat1__numRows mod 2 = 0 then colr = "#ffffff" else colr = "#f5f5f5" end if %>
<%=(ARecordset.Fields.Item("NTitleEN").Value)%>
<%=(ARecordset.Fields.Item("NTextEN").Value)%>
<%=dateshort((ARecordset.Fields.Item("NDate").Value),"EN")%> - ">Read more...
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Arecordset.MoveNext() Wend %>

 

<% Arecordset.Close() Set Arecordset = Nothing %>