<%@ Language=VBScript %> <% 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= Application("ConnectionString") 'cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;Password=;Persist Security Info=True;User ID=;Data Source=f:\virtualdir\finalshiballoy\databases\shiballoy.mdb" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("..\..\db\Shiballoy.mdb") cn.Open set rs=server.CreateObject("ADODB.Recordset") rs.Open "select * from ProductCategories",cn %>

Please Seleact A Tool For Searching <% Response.Write " " 'populate different types of tools Response.Write "" while not rs.EOF Response.Write "" & rs.Fields("ProductCategory") rs.MoveNext wend Response.Write "" & Request.Form("prodname")& "" 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") 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 " " 'Response.Write "" Response.Write "" Response.Write "
Select Burr Category" Response.Write "
" 'Response.Write rs1.Fields(0) while not rs11.EOF Response.Write "" & rs11.Fields("Category") rs11.MoveNext wend Response.Write "All" Response.Write " " 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 "" 'Response.Write "" 'Response.Write "" '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 "
" Response.Write "" end function '************************************************************************************** ' To Display Different Search Criterias of Diffrent products '************************************************************************************** function asksubtype(pname) dim cnTool set cnTool=server.CreateObject("ADODB.Connection") 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.MoveFirst while not rsBurr.EOF Response.Write "" & rsBurr("TipShape") rsBurr.MoveNext wend Response.Write "All" Response.Write "" 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.MoveFirst while not rsBurr.EOF Response.Write "" & rsburr("Slno") & "." & rsBurr("CutStyle") rsBurr.MoveNext wend Response.Write "All" 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 "" Response.Write " Flutes Tip Shape Helix Angle Helix Cut " rsEndMill.MoveFirst while not rsEndMill.EOF Response.Write "" & rsEndMill("noofflutes") rsEndMill.MoveNext wend Response.Write "All" Response.Write "" 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 " " while not rsendmill.EOF Response.Write "" & rsendmill("tooltipshape") rsendmill.MoveNext wend Response.Write "All" 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 " " rsendmill.MoveFirst while not rsendmill.EOF Response.Write "" & rsendmill("helixangle") rsendmill.MoveNext wend Response.Write "All" Response.Write "" end if rsendmill.Close '*********** Populate all HelixCut rsendmill.Open "Select distinct helixcut from endmill",cnTool if not rsEndMill.EOF or not rsEndMill.BOF then Response.Write " " rsendmill.MoveFirst while not rsendmill.EOF Response.Write "" & rsendmill("helixcut") rsendmill.MoveNext wend Response.Write "All" 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 Raw Material " rsCounterSink.MoveFirst '***************Populate all Flutes while not rsCounterSink.EOF Response.Write "" & rsCounterSink("noofflute") rsCounterSink.MoveNext wend Response.Write "All" Response.Write "" 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 " " while not rsCounterSink.EOF Response.Write "" & rsCounterSink("Angle") rsCounterSink.MoveNext wend Response.Write "All" 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 " " rsCounterSink.MoveFirst while not rsCounterSink.EOF Response.Write "" & rsCounterSink("RawMaterial") rsCounterSink.MoveNext wend Response.Write "All" 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 " rsDrill.MoveFirst '***************Populate all Flutes while not rsDrill.EOF Response.Write "" & rsDrill("noofflutes") rsDrill.MoveNext wend Response.Write "All" Response.Write "" 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 " " while not rsDrill.EOF Response.Write "" & rsDrill("IncludedAngle") rsDrill.MoveNext wend Response.Write "All" Response.Write "" end if rsDrill.Close set rsDrill=nothing Response.Write " " end if 'Response.Write " " end function '************************************************************************************** %>