<%@ Language=VBScript %> <% alphabet = trim(request.QueryString("alphabet")) product1= trim(request.form("product")) check=trim(request.querystring("check")) 'response.write(check &"
") 'response.write(product1 &"
") 'response.write(alphabet) Set Con = Server.CreateObject("ADODB.Connection" ) con.provider="Microsoft.Jet.OLEDB.4.0" Con.open server.mappath("inpha.mdb") 'Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=server.mappath(inpha.mdb) " 'Con.open "DSN=inpha" %>

Please select the Product to view the composition
(Alphabetically)
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z |

        

<% if check="c" then %> <% end if %>

Products Name  <% set rsproduct=con.execute("select products from product where products like '"&alphabet&"%' order by products asc ") %>   



The Constituent is :-     

<% set rs=con.execute("select constituents from product where products = '"& product1 &"' ") if not rs.eof then %> <%=rs(0)%> <% end if %>

<% con.close %>  

Contact us at : inpha@inphaonline.com