<% 'if session("uname")="" then ' Response.Redirect "\asp\notlogin.asp" 'end if %>

>> back to home

...APC Directory   <% dim rsSql,sql set rsSql=server.CreateObject("ADODB.recordset") dim rsUser,uname,pwd uname=Request.Form("uname") pwd=Request.Form("password") %> ... ...

Search Criteria
Search By Company	<% sql="" sql="select compname from company_details where compname is not null order by compname" rsSql.Open sql,maindb,3,3 if rsSql.RecordCount>0 then %> All <% while not rsSql.EOF %> "><%=replace(rsSql.Fields.Item("compname"),"0","'")%> <% rsSql.MoveNext wend end if %>
Search By Trade	<% sql="" sql="select distinct(trade) from company_details where trade is not null order by Trade" if rsSql.State=1 then rsSql.Close rsSql.Open sql,maindb,3,3 if rsSql.RecordCount>0 then %> All <% while not rsSql.EOF %> "><%=rsSql.Fields.Item("trade")%> <% rsSql.MoveNext wend end if %>
Search By Product	<% sql="" sql="select distinct(product) from company_details where product is not null order by product" if rsSql.State=1 then rsSql.Close rsSql.Open sql,maindb,3,3 if rsSql.RecordCount>0 then %> All <% while not rsSql.EOF %> "><%=rsSql.Fields.Item("product")%> <% rsSql.MoveNext wend end if %>
Search By Application	<% sql="" sql="select distinct(application) from company_details where application is not null order by application" if rsSql.State=1 then rsSql.Close rsSql.Open sql,maindb,3,3 if rsSql.RecordCount>0 then %> All <% while not rsSql.EOF %> "><%=rsSql.Fields.Item("application")%> <% rsSql.MoveNext wend end if %>

... ...about APC | about Aerosol | APC Directory | new & events | trade boards | information desk ... ... Best viewed in 1024 x 768 resolution © Copyright 2002 AEROSOL PROMOTION COUNCIL