%
set conn=server.createobject("adodb.connection")
conn.open connstr
bid=replace(request.QueryString("b_id"),"'","")
set big=conn.execute ("select * from big where b_id=" & bid)
btype=big("b_type")
set big=nothing
set rsn=server.CreateObject("adodb.recordset")
sql="select * from news where b_id=" & bid & " order by n_id desc "
rsn.open sql,conn,1,1
%>