%
dim rs,sql,id,brand_name,id2,series_name
id=request("id")
brand_name=request("brand_name")
id2=request("id2")
series_name=request("series_name")
if id="" then
dim rsb2
set rsb2=server.CreateObject("adodb.recordset")
sql="select top 1 *from brand order by rank_id"
rsb2.open sql,conn,1,1
if rsb2.bof or rsb2.eof then
else
id=rsb2("id")
brand_name=rsb2("brand_name")
end if
end if
if id2="" then
dim rss2
set rss2=server.CreateObject("adodb.recordset")
sql="select top 1 *from series where brand_id="&id&" order by rank_id"
rss2.open sql,conn,1,1
if rss2.bof or rss2.eof then
id2=0
else
id2=rss2("id")
series_name=rss2("series_name")
end if
end if
%>