<% v_BrandID = request("cbobrand") v_State = request("txtstate") Set DBConn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") DBConn.Open Session("DSN") %>

Brand: --None Selected-- <% Rs.open "p_get_all_brand_categories",DBConn%> <%Do until Rs.EOF %> selected<%end if%> value="<%=Rs.Fields("brand_id")%>"> <%=ucase(Rs.fields("brand_n") & " - " & Rs.fields("categorie_n"))%> <%Rs.Movenext Loop Rs.Close %> <% if v_State = 1 then 'Select from this table to get the data SQL = "p_get_model_keywords " & v_BrandID RS.Open SQL,DBConn %> <% 'Loop the Popular Database Do until Rs.EOF = true Response.write replace(rs.Fields(0),"BLANK","") & " " Rs.movenext Loop set DBConn = nothing set Rs = nothing End if %>