<% set conn1 = Server.CreateObject("adodb.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tsl.mdb") conn1.open connstr Conn_Flag=true %>

<% name=Request.QueryString("name") if not trim(name)="" then set prodrs=server.createobject("adodb.recordset") strsql="select distinct * from product_mast where prod_name like '%"&trim(name)&"%' or prod_introduction like '%"&trim(name)&"%' or prod_feature like '%"&trim(name)&"%'" prodrs.Open strsql,conn1,3,3 a=1 if prodrs.RecordCount > 0 then prodrs.MoveFirst %> <% while not prodrs.EOF %> <% a=a+1 prodrs.MoveNext wend Response.Write(" &prod_id=<%=prodrs("prod_id")%>"><%=prodrs("prod_name")%> ") else Response.Write("Sorry no record found") end if prodrs.Close conn1.Close else Response.Write("Sorry no record found") end if %>