<%@ Language=VBScript %>
<%Option Explicit%>
<%
dim tabletitle
dim colorbs,colorfs,tablebg,colorf1,colorb1,colorf2,colorb2,colorf3,colorb3,colorf4,colorb4
Dim currday,lastday 'Η αγωνιστική που θα μας καλούν να δείξουμε
Dim fs1 'To αρχείο ASCII
Dim L 'Boηθητική μεταβλητή για loops
Dim NumOfGames 'Οι αγωνιστικές του πρωταθλήματος
Dim WhichFile 'Tο όνομα του αρχείου ASCII
'Χρώματα
colorf1=Ccolorf1 'Τίτλοι
colorb1=Ccolorb1
colorf2=Ccolorf2 'Σύνολα ομάδων
colorb2=Ccolorb2
colorf3=Ccolorf3 'Στατιστικά
colorb3=Ccolorb3
colorf4=Ccolorf4 'Ονόματα παικτών
colorb4=Ccolorb4
tablebg=Ctablebg
colorfs=cColorS1
colorbs=CColorb1
tabletitle=CTableTitle 'Τίτλος του πίνακα
NumOfGames=35
Set fs1 = CreateObject("Scripting.FileSystemObject")
for L=1 to numofgames
whichfile=CFilename&"r"&cstr(pad0(L,2))&".txt"
whichfile=server.mappath(whichfile)
if (fs1.FileExists(whichfile)) then
currday=L
lastday=L
end if
next
set fs1=nothing
'session.timeout=1
%>
Galanis Sports Data
Termosteps U16 European Championship Men, Rethymnon, Ierapetra,
Iraklio -
2007
