Shiballoy Multiflex Pvt. Ltd. (Products)

<%@ Language=VBScript %> Shiballoy Multiflex Pvt. Ltd. (Products)

[Company Logo Image] [Company Name Image]

<% 'Response.Write Application("ConnectionString") & "ghfhgfghfh" Session("ProductSelected")="" Session("ProductQtyArr")="" Session("OrderItems")="" 'Session("OrderItems")="0" Session("CheckCount")="0" Session("NORECS")="0" Session("LastRec")="0" Session("PrevLastRec")="0" dim cn dim rs SET cn=Server.CreateObject("ADODB.Connection") cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("/Shiballoy.mdb") 'set cn=server.CreateObject("ADODB.Connection") 'cn.ConnectionString= Application("ConnectionString") 'the below line was commented 'cn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Databases\Shiballoy.mdb" cn.Open set rs=server.CreateObject("ADODB.Recordset") rs.Open "select * from ProductCategories",cn %>

Burr	CounterSink	EndMill	Maintainance Tool Kit

<% Response.Write "

Select Product Category" Response.Write "	Industrial Tools" Response.Write "	Medical & Dental Tools" Response.Write "	Jewelry Tools" 'Response.Write "	CounterSink" Response.Write "
" 'populate different types of tools Response.Write "" 'show different types of tools 'Response.Write "	Indutrial Burrs EndMills Drill Reamer" Response.Write "	Industrial Burrs EndMills Drill Reamer Counter Sink" Response.Write "	Surgical Burrs Dental Lab" Response.Write "	Jewelry Burrs Stone Sett" 'Response.Write "	Counter Sink" 'Response.Write "	Counter Sink" rs.Close cn.Close set rs=nothing set cn= nothing %>

<% 'if product name is not null then disply the detail 'When selected from the droop down if Request.Form("prodname")<>"" then if Request.Form("prodname") = "Burr" then dispdetail(Request.Form("prodname")) else Session("ProductSelected")=Request.Form("prodname") asksubtype(Request.Form("prodname")) setgo(Request.Form("prodname")) end if end if 'if industrial burr hyperlink clicked if Request.QueryString("toolType")="AllBurr" then Session("ProductSelected")="Burr" Session("BurrType")="All" asksubtype("AllBurr") setgo("Burr") elseif Request.QueryString("toolType")="IndustrialBurr" then Session("ProductSelected")="Burr" Session("BurrType")="Industrial" asksubtype("IndustrialBurr") SetGo("Burr") elseif Request.QueryString("toolType")="SurgicalBurr" then Session("ProductSelected")="Burr" Session("BurrType")="Surgical" asksubtype("SurgicalBurr") setgo("Burr") elseif Request.QueryString("toolType")="JewelryBurr" then Session("ProductSelected")="Burr" Session("BurrType")="Jewelry" asksubtype("JewelryBurr") setgo("Burr") elseif Request.QueryString("toolType")="EndMill" then Session("ProductSelected")="EndMill" asksubtype("EndMill") setgo("EndMill") elseif Request.QueryString("toolType")="CounterSink" then Session("ProductSelected")="CounterSink" asksubtype("CounterSink") setgo("CounterSink") elseif Request.QueryString("toolType")="Drill" then Session("ProductSelected")="Drill" asksubtype("Drill") setgo("Drill") end if %> <% '****************************************************************************************** ' ALL FUNCTIONS '****************************************************************************************** '****************************************************************************************** ' To Display Sub Catagories if present and then To show the Criteria for search '****************************************************************************************** function dispdetail(pname) dim cn1 dim rs11 set cn1=server.CreateObject("ADODB.Connection") '**************** 'the below line was commented cn1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;Password=;Persist Security Info=True;User ID=;Data Source=" & _ Server.MapPath("..\..\db\Shiballoy.mdb") '**************** 'the below line was not commented and remove the above lines cn1.ConnectionString=Application("ConnectionString") cn1.Open 'if tool selected is burr then if pname="Burr" then '************call setburrtype asp file which will redirect to this page after burr sub type set set rs11=server.CreateObject("ADODB.Recordset") rs11.Open "select distinct category from Burr" ,cn1 'Response.Write "

Select Burr Category

" Response.Write "

" 'Response.Write "" 'Response.Write "

" Response.Write "" rs11.Close set rs11=nothing else '*******call the asksubtype function with the selected tool asksubtype(Request.Form("prodname")) setgo(Request.Form("prodname")) 'Response.Write "

" 'Response.Write "" end if cn1.Close set cn1=nothing end function '*************************************************************************************** ' Modification By Nihar ' To Get the submit Button Go '*************************************************************************************** function SetGo(pname) 'Response.Write "

" Response.Write "

" 'Response.Write "

" Response.Write "" end function '************************************************************************************** ' To Display Different Search Criterias of Diffrent products '************************************************************************************** function asksubtype(pname) dim cnTool set cnTool=server.CreateObject("ADODB.Connection") '**************** 'the below line was commented cnTool.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("Shiballoy.mdb") '**************** 'the below line was not commented and remove the above lines cnTool.ConnectionString=Application("ConnectionString") cnTool.Open '****Check for type of tool selected Response.Write "

" '****If product selected is burr then fetch the cuttype and tip shape if pname="AllBurr" or pname="IndustrialBurr" or pname="SurgicalBurr" or pname="JewelryBurr" then dim rsBurr set rsBurr=server.CreateObject("ADODB.recordset") '***********Populate all tip shape rsBurr.Open "Select distinct(TipShape) from Burr",cnTool if not rsBurr.EOF or not rsBurr.BOF then Response.Write "Please Specify The Following Detais." Response.Write "" Response.Write "" Response.Write "

Tip Shape	Cut Type
" rsBurr.Close end if '***********Populate all cut types rsBurr.Open "Select Slno,CutStyle from CutType where SlNo in(Select distinct(CutType) from Burr)",cnTool if not rsBurr.EOF or not rsBurr.BOF then Response.Write "	" rsBurr.Close end if Response.Write "

" set rsBurr=nothing '**********If the Product is EndMill elseif pname="EndMill" then dim rsEndMill set rsEndMill=server.CreateObject("ADODB.Recordset") '***********Populate all Flute rsEndMill.Open "select distinct noofflutes from endmill" ,cnTool if not rsEndMill.EOF or not rsEndMill.BOF then Response.Write "Please Specify The Following Detais." Response.Write "" 'Response.Write "" 'to undo the changes of heading part, uncomment the above line and comment the below line Response.Write "" Response.Write "

Flutes	Tip Shape	Helix Angle	Helix Cut
# Of Flute	EndMill Type	Helix Angle	Coatings
" end if rsEndMill.Close '**********Populate all Tool Tip Shape rsendmill.Open "Select distinct tooltipshape from endmill",cnTool if not rsEndMill.EOF or not rsEndMill.BOF then Response.Write "	" end if rsendmill.Close '***********Populate all Helix Angle rsendmill.Open "Select distinct helixangle from endmill",cnTool if not rsEndMill.EOF or not rsEndMill.BOF then Response.Write "	" end if rsendmill.Close '*********** Populate all HelixCut rsendmill.Open "Select distinct coatings from endmill",cnTool'skm helix cut if not rsEndMill.EOF or not rsEndMill.BOF then Response.Write "	" end if rsendmill.Close set rsendmill=nothing Response.Write "

" '***********Populate all If the Product is Counter Sink elseif pname="CounterSink" then dim rsCounterSink set rsCounterSink=server.CreateObject("ADODB.Recordset") rsCounterSink.Open "select distinct noofflute from CounterSink" ,cnTool if not rsCounterSink.EOF or not rsCounterSink.BOF then Response.Write "Please Specify The Following Detais." Response.Write "" Response.Write "" Response.Write "

Flutes	Tip Angle	Material Type
" end if rsCounterSink.Close '***************Populate all Angle rsCounterSink.Open "Select distinct Angle from CounterSink",cnTool if not rsCounterSink.EOF or not rsCounterSink.BOF then Response.Write "	" end if rsCounterSink.Close rsCounterSink.Open "Select distinct RawMaterial from CounterSink",cnTool '************Populate all RawMaterial if not rsCounterSink.EOF or not rsCounterSink.BOF then Response.Write "	" end if rsCounterSink.Close set rsCounterSink=nothing Response.Write "

" '************If the Product is Drill elseif pname="Drill" then dim rsDrill set rsDrill=server.CreateObject("ADODB.Recordset") rsDrill.Open "select distinct noofflutes from Drill" ,cnTool if not rsDrill.EOF or not rsDrill.BOF then Response.Write "Please Specify The Following Detais." Response.Write "" Response.Write "" Response.Write "

Flutes	Angle
" end if rsDrill.Close '************Populate all Included Angle rsDrill.Open "Select distinct includedAngle from Drill",cnTool if not rsDrill.EOF or not rsDrill.BOF then Response.Write "	" end if rsDrill.Close set rsDrill=nothing Response.Write "

" end if 'Response.Write "

" end function '************************************************************************************** %>