<%
fp = Server.MapPath("cgi-bin/aspcount.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.Close
Set a = fs.CreateTextFile(fp, True)
'a.WriteLine(cstr(ct))
end if
'a.Close
Set a = nothing
Set fs = nothing
'Response.Write ct
%>
Integrated Lighting Systems
Welcome
to Integrated Lighting Systems
Our
mission is to provide a professional, all-inclusive planning, engineering,
installation and aftermarket lighting equipment service to the worldwide
television, video, film and stage industries.
