<% 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
 
Fondacioni Veprimtari Klubi i Miqve Lidhje Arkiv
Organizim dhe mbështetje për realizimin e veprimtarive kulturore, sportive e shkencore në nivel lokal dhe kombëtar, mbështetje për individë, grupe individësh apo shoqata jo fitimprurëse që veprojnë në këto fusha.
Arkivi i eds-foundation.org
Kërko Arkivin
Shiko gjithë hyrjet

Termat e Pėrdorimit - Privacia

Copyright © EDS Foundation.
Të gjitha të drejtat e rezervuara.
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("NTitleAL").Value)%>
<%=(ARecordset.Fields.Item("NTextAL").Value)%>
<%=dateshort((ARecordset.Fields.Item("NDate").Value),"AL")%> - ">Lexo mė shumė...
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Arecordset.MoveNext() Wend %>

 

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