NLC
offers packages of intensive language tution...
NLC
is the foremost English language school in North Cyprus, located
in the heart of Nicosia.We teach communicative English to the highest standards,
being convined that the ability to speak comes before all else; and
that this should mean the ability to
speak the genuine living language.
NLC strongly favours
external examinations for its learners of English...
You can
find here detailed information about prices and a timetable of our
courses.
Cyprus is an excellent
destination for learners of English who do not wish to travel to England
or the United States...
NLC has highly qualified
native speaker teachers
NLC permits no language
but English to be used in class
No
of Our Visitors:
<%Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Dim FixedDigitCount
Dim DigitCount
Dim DigitCountLength
Dim DigitZerosToAdd
Dim DigitZeroCount
Dim ShowDigits
Dim DigitPath
FixedDigitCount = 5
DigitPath = "digits/green_on_white"
On Error Resume Next
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath ("counter.txt")
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
DigitCountLength = Len(CounterHits)
If DigitCountLength < FixedDigitCount Then
DigitZerosToAdd= FixedDigitCount - DigitCountLength
DigitZeroCount = 1
For DigitZeroCount = DigitZeroCount to DigitZerosToAdd
ShowDigits = ShowDigits & ""
Next
End If
DigitCount = 1
For DigitCount = DigitCount to DigitCountLength
ShowDigits = ShowDigits & ""
Next
%>
<%=ShowDigits %>