<% currDate = date() Set rsNewsCount=Conn.Execute("Select count(*) as totCount from news where cnc=1") Set rsExhibCount=Conn.Execute("Select count(*) as totCount from exhibitions where cnc=1 and evedatefrm > '"&currDate&"'") %> Anjani Machine Tool Division | Cutting Solution with Waterjet | CNC Water Jet Cutting Machine | Portable Measurement Arm
Anjani Machine Tool Division
Home | Machine Tool Division
Anjani is a leading Indian manufacturer of CNC water jet cutting machines, CNC Hydraulic Presses CNC Routers and Thermoforming machines. learn more
Products
CNC 3 Axis Waterjet Cutting Machine CNC 5 Axis Waterjet Cutting Machine CNC 3 Axis Machining Centre/Router CNC 5 Axis Machining Centre/Router CNC 3/5 Axis Plasma Cutting Machine Hydraulic Presses (CNC & PLC) Special Purpose Machine
  <%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 cnc=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 cnc=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 cnc=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 %>