<%
Dim str_bg_new
Dim rs_temp_1
sql = "select * from product_catalogs where parent_id = 0 and flag = 0 order by id"
Set rs_temp_1 = Server.CreateObject("ADODB.Recordset")
rs_temp_1.Open sql, conn, 3
%>
<%
While Not rs_temp_1.EOF
If script_name <> "/product_detail.asp" And script_name <> "/products.asp" Then
str_bg_new = "1"
Else
If rs_temp_1("id") = new_catalog_id Then
str_bg_new = "2"
Else
str_bg_new = "1"
End If
End If
%>
