 |
 |
|
<%
nn = 1
kbtext=""
Set rsb = Server.CreateObject("ADODB.Recordset")
sqlb ="SELECT * From Class_1 order by sort_id"
RSb.open sqlb,Conn,3,3
do while not rsb.eof
if rsb("Class_1_Name")="Hot & New" then
rsb.MoveNext
end if
kbn = rsb.RecordCount-1
kbtext = kbtext& "scores["&nn&"]='KB"&nn&"';"
bid = rsb("ID")
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT * From Class_2 where Class_1_Name = '"&rsb("Class_1_Name")&"' order by sort_id"
RS1.open sql1,Conn,3,3
%>
<%
rs1.close
set rs1=nothing
rsb.MoveNext
nn = nn+1
Loop
rsb.close
set rsb=nothing
%>
|
 |
|
|
