<%@LANGUAGE="VBSCRIPT"%> <% Dim NewsRecordset__MMColParam NewsRecordset__MMColParam = "No" If (Request("MM_EmptyValue") <> "") Then NewsRecordset__MMColParam = Request("MM_EmptyValue") End If %> <% Dim NewsRecordset Dim NewsRecordset_numRows Set NewsRecordset = Server.CreateObject("ADODB.Recordset") NewsRecordset.ActiveConnection = MM_EDSConnection_STRING NewsRecordset.Source = "SELECT * FROM News WHERE NArchived = " + Replace(NewsRecordset__MMColParam, "'", "''") + " ORDER BY NDate ASC" NewsRecordset.CursorType = 0 NewsRecordset.CursorLocation = 2 NewsRecordset.LockType = 1 NewsRecordset.Open() NewsRecordset_numRows = 0 %> <% Dim LinksRecordset__MMColParam LinksRecordset__MMColParam = "Yes" If (Request("MM_EmptyValue") <> "") Then LinksRecordset__MMColParam = Request("MM_EmptyValue") End If %> <% Dim LinksRecordset Dim LinksRecordset_numRows Set LinksRecordset = Server.CreateObject("ADODB.Recordset") LinksRecordset.ActiveConnection = MM_EDSConnection_STRING LinksRecordset.Source = "SELECT * FROM Links WHERE LQuick = " + Replace(LinksRecordset__MMColParam, "'", "''") + "" LinksRecordset.CursorType = 0 LinksRecordset.CursorLocation = 2 LinksRecordset.LockType = 1 LinksRecordset.Open() LinksRecordset_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 NewsRecordset_numRows = NewsRecordset_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 LinksRecordset_numRows = LinksRecordset_numRows + Repeat2__numRows %> EDS Foundation
  <%=datelong(now,"AL")%>
 
Fondacioni Veprimtari Klubi i Miqve Lidhje Arkiv
<% Dim strPath 'Path of directory to show Dim objFSO 'FileSystemObject variable Dim objFolder 'Folder variable strPath = "FrontPictures/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) a = 1 a = objFolder.Files.count randomize fpnum=1 fpnum=int(a * rnd + 1) if fpnum > 10 then snum=cstr(fpnum) else snum="0"&cstr(fpnum) end if Set objItem = Nothing Set objFolder = Nothing 'Set objFSO = Nothing %>
Organizim dhe mbështetje për realizimin e veprimtarive kulturore, sportive e shkencore në nivel lokal dhe kombëtar.
 
 

Termat e Përdorimit - Privacia


Copyright © EDS Foundation. Të gjitha të drejtat e rezervuara.
Design and Development: MOD Visual Solutions

<% While ((Repeat1__numRows <> 0) AND (NOT NewsRecordset.EOF)) if Repeat1__numRows mod 2 = 0 then colr = "#f5f5f5" else colr = "#ffffff" end if %>
<%=(NewsRecordset.Fields.Item("NTitleAL").Value)%>
<%=(NewsRecordset.Fields.Item("NTextAL").Value)%>
<%=dateshort((NewsRecordset.Fields.Item("NDate").Value),"AL")%> -"> Lexo mė shumė...
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 NewsRecordset.MoveNext() Wend %>
<% While ((Repeat2__numRows <> 0) AND (NOT LinksRecordset.EOF)) if Repeat2__numRows mod 2 = 0 then colr = "#f5f5f5" else colr = "#ffffff" end if %>
<%=(LinksRecordset.Fields.Item("LNameAL").Value)%>
<%=(LinksRecordset.Fields.Item("LDescAL").Value)%>
"><%=(LinksRecordset.Fields.Item("Llink").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 LinksRecordset.MoveNext() Wend %>

 

<% NewsRecordset.Close() Set NewsRecordset = Nothing %> <% LinksRecordset.Close() Set LinksRecordset = Nothing %>