201, ARCADIA, Nariman Point, Mumbai - 400 021.
Tel : (022) 22851580 Fax : (022) 22042734
Headquarters
CMS Traffic Systems Ltd. 70 Lake Road, Bhandup (W), Mumbai- 400078 INDIA
Tel : (022) 30780222/333 Fax : (022) 2595 0169
Branches
<%
catrs.MoveFirst
while not catrs.EOF
%>
<%
strc=catrs("city")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("" & strc & " ")
end if
strc=catrs("add1")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add2")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add3")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add_pin")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add_tel")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("Tel: " & strc & " ")
end if
strc=catrs("add_fax")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("Fax: " & strc & " ")
end if
strc=catrs("add_email")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("E-mail: " & strc & " ")
end if
%>
<% catrs.Movenext %>
<%
if not catrs.EOF then
%>
<%
strc=catrs("city")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("" & strc & " ")
end if
strc=catrs("add1")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add2")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add3")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add_pin")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write(strc & " ")
end if
strc=catrs("add_tel")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("Tel: " & strc & " ")
end if
strc=catrs("add_fax")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("Fax: " & strc & " ")
end if
strc=catrs("add_email")
if not ((IsEmpty(strc)) or isnull(trim(strc)) or strc="") then
Response.Write("E-mail: " & strc & " ")
end if
%>
<%
end if
%>
<%
if not catrs.EOF then
catrs.Movenext
end if
wend
catrs.Close
conn1.close
set conn1 = nothing
%>
<% 'End while loop %>
