<%
u_file="counter.txt"
set nib = createobject("scripting.filesystemobject")
Set FS=Server.CreateObject("Scripting.FileSystemObject")
if nib.FileExists (server.mappath(u_file)) then
Set RS=FS.OpenTextFile(Server.MapPath(u_file), 1, False)
count=RS.ReadLine
RS.Close
count=count+1
Set RS=FS.OpenTextFile(Server.MapPath(u_file), 2, False)
RS.Write count
RS.Close
Set RS=Nothing
Set FS=Nothing
else
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.CreateTextFile(u_file, true, false)
file.WriteLine("0")
file.Close
Response.Redirect(Request.ServerVariables ("URL"))
end if
%>
INDE -- Manufacturing and assembling of units for different kind of vehicles
Manufacturing and assembling of units for different
kind of vehicles
Our
Mission:
Meet customer
demands according to quality standards Commitment to
Quality Technical and professional competence Empowerment
of staff Information based management Improved social
environment Shared decision making One step to the future
Transfer of technology
Rescue Vehicle
It
is a multi purpose rescue vehicle. Capable of dealing
with road accidents (car accidents, tree collapsing…etc.). ........
