LED, CFL, Halogen Bulbs, Hid Lights, Flourescent Lights, Flourescent Bulbs

<%@ Language=VBScript %> <%Response.Expires= -1%> <% set conn2=Server.CreateObject("ADODB.Connection") conn2.ConnectionTimeout = 0 conn2.Open Application("FundConnString") set rs2 = Server.CreateObject("ADODB.Recordset") %> LED, CFL, Halogen Bulbs, Hid Lights, Flourescent Lights, Flourescent Bulbs

<%If Request.QueryString("page") <> "" Then strsql2="Select c.ID, c.Descr_Long as desc1, p.Descr_Long as desc2, p.Img_Name, p.ID as pid From catalog c, product p where c.ID = p.Catalog_ID " strsql2 = strsql2 + " and c.class = '" + Request.QueryString("page") + "'" if Request.QueryString("product") <> "" then strsql2 = strsql2 + " and c.ID = '" strsql2 = strsql2 + Request.QueryString("product") + "'" end if strsql2 = strsql2 + " order by c.ID" rs2.open strsql2,conn2,adOpenForwardOnly,adLockReadOnly, adCmdText catID = "" while not rs2.eof if catID <> rs2("ID") then catID = rs2("ID") counter = 0 else counter = counter + 1 end if if counter = 0 then %> <% end if NewLine = counter mod 2 if NewLine = 0 then %> <% else %> <% end if rs2.movenext() wend rs2.close() end if set rs2 = Nothing conn2.Close() set conn2 = Nothing %>

<%=rs2("desc1")%>

<%=rs2("desc2")%>