|
Five
Stars tannery is an Egyptian company established
in 1970. We produce high quality leather and skin
products for the domestic and export markets.
Our tannery uses the highest
quality chemicals from Basf, Bayer and Icap and
the most modern machinery available to and the
most modern machinery available to finish all
kinds of leather and skin.
Five stars tannery works in cow hide, buffalo
hides and goat skin. We have many years of export
experience to the european and Middle East markets,
including France,
Italy, Spain and Tunisia.
|
|
Visitor
No.
<%Dim List , x , File,counter,fso,act, CounterFile
CounterFile = "counter.txt"
If Session("CounterFile") <> CounterFile then
Session("CounterFile") = my_country & ".txt"
file = ""
List = Split ( server.mappath("default.asp") , "\" )
for x = 0 to Ubound(list) - 2
File = File & List(x) & "\"
next
File = File & "DB\" & my_country & ".txt"
Application.Lock
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(File)
counter = clng(act.readline)
counter = counter + 1
Session("VisitorID") = counter
act.close
Set act = fso.CreateTextFile(File, true)
act.WriteLine(counter)
Application.UnLock
act.Close
Session("Entered") = TRUE
End If
Response.Write Session("VisitorID")%>
|
