<% currDate = date() Set rsNewsCount=Conn.Execute("Select count(*) as totCount from news where bad=1") Set rsExhibCount=Conn.Execute("Select count(*) as totCount from exhibitions where bad=1 and evedatefrm > '"&currDate&"'") %> Anjani Armoring Division | Bullet Proof Vest | Bullet Resistance Vest | Bullet Proof Jacket
Home | Armoring Division
Anjani has synergiesed various technologies over the last 20 years of its existence to develop a unique strength in delivering speciality products for various ballistic protection needs.  learn more
Products
Bulletproof Jacket Bulletproof Helmet Bulletproof Shield Riot Control Equipment Hard Armor Insert Plates De Mining Suit Armored Panels Vehicle Armoring Ballistic Mobile Sentry Post Bullet Proof Briefcase Light Weight Foldable
Stretcher
  <%if rsExhibCount("totCount") = 0 then%> <%else%> <%end if%>
News Updates <%if rsNewsCount("totCount") > 0 then%> view all<%end if%>
<% Set rsNews=Conn.Execute("Select top 2* from news where bad=1 order by news_date desc") x = 0 %> <% If not rsNews.Eof then While not rsNews.Eof x = x + 1 news_date=rsNews("news_date") location=rsNews("location") title=rsNews("title") introtext=rsNews("introtext") newstype=rsNews("newstype") newsday=rsNews("newsday") newsmonth=rsNews("newsmonth") newsyear=rsNews("newsyear") url=rsNews("url") image=rsNews("image") pdf=rsNews("pdf") %> <%if x = 1 then%> <%end if%> <% if x = 1 then x = 0 %> <% end if rsNews.MoveNext Wend else %> <%end if%>
<%=newsday%>.<%=Month(news_date)%>.<%=newsyear%>
<%=title%> <%if introtext <> "" then%><%=introtext%><%end if%> <%if newstype = 0 then%> "> more »

<%elseif newstype = 1 then%> more »

<%elseif newstype = 2 then%> more »

<%elseif newstype = 3 then%> more »
<%end if%>


Currently there are no updates.
Please check again soon!
Exhibitions <%'if rsExhibCount("totCount") > 0 then%> View all<%'end if%><%'if rsExhibCount("totCount") > 0 then%>  |  Archives<%'end if%>
Currently there are no updates.
Please check again soon!
<% Set rsExhib=Conn.Execute("Select top 1 * from exhibitions where bad=1 and evedatefrm > '"&currDate&"' order by evedatefrm") if not rsExhib.eof then thumbnail=rsExhib("thumbnail") title1=rsExhib("title1") evefrmday=rsExhib("evefrmday") evefrmyear=rsExhib("evefrmyear") evefrmmonth=left(rsExhib("evefrmmonth"),3) evetoday=rsExhib("evetoday") evetomonth=left(rsExhib("evetomonth"),3) evetoyear=rsExhib("evetoyear") venue=rsExhib("venue") %>
<%if thumbnail <> "" then%> <%end if%> <%=title1%>
<%if evefrmday <> "" then%><%=evefrmday%> <%=evefrmmonth%> to <%=evetoday%> <%=evetomonth%>, <%=evetoyear%><%end if%>
<%=venue%>		 <% Set rsExhib1=Conn.Execute("Select top 1 * from exhibitions where id <> "&rsExhib("id")&" and bad=1 and evedatefrm > '"&currDate&"' order by evedatefrm") if not rsExhib1.eof then while not rsExhib1.eof title2=rsExhib1("title2") %> <%=title2%> <% rsExhib1.MoveNext wend end if end if %>