<% dim page_id, page_title, metak, metad, l1, l2, bcrumbs, SQL, DoAction, prd_id Dim connect set connect = server.createobject("ADODB.Connection") connect.open "sales" page_id = "ewreachcompact" page_title = "Flood / Spot LED Lighting Fixtures - eW Reach Compact Powercore" metad = "" metak = "" l1 = "Products" l2 = "EssentialWhite" bcrumbs = "" prd_id = 1002 If prd_id<>"" Then SQL = "SELECT * FROM qryPROD_Join_Tech_All WHERE PRODUCT_ID=" & prd_id Set DoAction=connect.execute(SQL) Else response.redirect("/ls/") End If %> <%connect.close connect = ""%>