<%@ LANGUAGE="VBScript" %> <% DSN_Name = Session("DSN_Name") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open DSN_Name SQL = "SELECT Distinct CATEGORY from Product" Set RSSrchCategory = Connection.Execute(SQL) SQL = "SELECT Distinct MFG from Product" Set RSSrchManufacturer = Connection.Execute(SQL) %>
> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> bgcolor=<%=TableBG%>> <% If Request("ERROR") = "1" Then %>
<% End If %>
<%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>>Please choose only a <%If lblCategoryActive = "1" Then%><%=lblCategory%><%Else%>Category<%End If%> or a <%If lblManufacturerActive = "1" Then%><%=lblManufacturer%><%Else%>Manufacturer<%End If%>
<%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%If lblCategoryActive = "1" Then%><%=lblCategory%>:<%Else%>Category:<%End If%>  
<%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%If lblManufacturerActive = "1" Then%>Merchant:<%Else%>Merchant:<%End If%>  
 
 
<%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%If lblDescriptionActive = "1" Then%><%=lblDescription%>:<%Else%>Description:<%End If%>  
<%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%If lblProductIDActive = "1" Then%><%=lblProductID%>:<%Else%>Product ID:<%End If%>  

 

<% Connection.Close Set Connection = Nothing %>