<%@ LANGUAGE="VBSCRIPT" %> <% set conn = server.createobject("adodb.connection") strconn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("aifidb_media.mdb") & ";" strconn = strconn & "uid=aifi;pwd=aifi;" conn.open strconn %> Association of Indian Forging Industry : Production/Sales Figures
 
 
 
 
o About AIFI
o Managing Committees
o Members List
o Membership
o The Mission
o Download Logo
o Forging Associations
o Contact AIFI
o Site Map
o Home Page
  production/sales figures
 
<% strq="select * from duration" set objrs=server.createobject ("adodb.recordset") objrs.CursorLocation = aduseclient objrs.CursorType = adopenstatic objrs.open strq, conn, , , adcmdtext year1=objrs("previous") year2=objrs("current") mon=objrs("month") objrs.close set objrs=nothing strq="select * from totalpro" set objrs=server.createobject ("adodb.recordset") objrs.CursorLocation = aduseclient objrs.CursorType = adopenstatic objrs.open strq, conn, , , adcmdtext do while not objrs.eof %>
Report of motor vehicle production & sales for the month of <%=mon %>

PRODUCTION
   <%=year1 %> <%=year2 %> % Change
CARS <%=objrs("cars1")%> <%=objrs("cars2")%> <%=objrs("cars3")%>
Multi Utility Vehicle <%=objrs("muv1")%> <%=objrs("muv2")%> <%=objrs("muv3")%>
LCV's <%=objrs("lcv1")%> <%=objrs("lcv2")%> <%=objrs("lcv3")%>
M & HCV's <%=objrs("mcv1")%> <%=objrs("mcv2")%> <%=objrs("mcv3")%>
SCOOTERS <%=objrs("scooters1")%> <%=objrs("scooters2")%> <%=objrs("scooters3")%>
MOTORCYCLES <%=objrs("motorcycles1")%> <%=objrs("motorcycles2")%> <%=objrs("motorcycles3")%>
MOPEDS <%=objrs("mopeds1")%> <%=objrs("mopeds2")%> <%=objrs("mopeds3")%>
3-WHEELERS <%=objrs("3wheelers1")%> <%=objrs("3wheelers2")%> <%=objrs("3wheelers3")%>
TRACTORS <%=objrs("tractors1")%> <%=objrs("tractors2")%> <%=objrs("tractors3")%>
Total 4 Wheelers <%=objrs("4wheelers1")%> <%=objrs("4wheelers2")%> <%=objrs("4wheelers3")%>
Total 2/3 Wheelers <%=objrs("5wheelers1")%> <%=objrs("5wheelers2")%> <%=objrs("5wheelers3")%>
TOTAL ALL VEHICLE <%=objrs("all1")%> <%=objrs("all2")%> <%=objrs("all3")%>
<% objrs.movenext loop objrs.close strq="select * from totalsales" set objrs=server.createobject ("adodb.recordset") objrs.CursorLocation = aduseclient objrs.CursorType = adopenstatic objrs.open strq, conn, , , adcmdtext do while not objrs.eof %>
SALES
   <%=year1 %> <%=year2 %> % Change
CARS <%=objrs("cars1")%> <%=objrs("cars2")%> <%=objrs("cars3")%>
Multi Utility Vehicle <%=objrs("muv1")%> <%=objrs("muv2")%> <%=objrs("muv3")%>
LCV's <%=objrs("lcv1")%> <%=objrs("lcv2")%> <%=objrs("lcv3")%>
M & HCV's <%=objrs("mcv1")%> <%=objrs("mcv2")%> <%=objrs("mcv3")%>
SCOOTERS <%=objrs("scooters1")%> <%=objrs("scooters2")%> <%=objrs("scooters3")%>
MOTORCYCLES <%=objrs("motorcycles1")%> <%=objrs("motorcycles2")%> <%=objrs("motorcycles3")%>
MOPEDS <%=objrs("mopeds1")%> <%=objrs("mopeds2")%> <%=objrs("mopeds3")%>
3-WHEELERS <%=objrs("3wheelers1")%> <%=objrs("3wheelers2")%> <%=objrs("3wheelers3")%>
TRACTORS <%=objrs("tractors1")%> <%=objrs("tractors2")%> <%=objrs("tractors3")%>
Total 4 Wheelers <%=objrs("4wheelers1")%> <%=objrs("4wheelers2")%> <%=objrs("4wheelers3")%>
Total 2/3 Wheelers <%=objrs("5wheelers1")%> <%=objrs("5wheelers2")%> <%=objrs("5wheelers3")%>
TOTAL ALL VEHICLE <%=objrs("all1")%> <%=objrs("all2")%> <%=objrs("all3")%>

 

                                                                                

   <% objrs.movenext loop %>
© Copyright 2002. AIFI.
<% objrs.close set objrs=nothing conn.close set conn=nothing %>