 |
 |
<%
sql="select * from Table_Product_Type where TypeName='Minisplit Products' order by TypeID"
set rsh=conn.execute(sql)
Set RS = Server.CreateObject("ADODB.Recordset")
do while not(rsh.eof)
%>
 |
<%=rsh("SubTypeName")%> |
| |
<%
sql="select * from Table_Product where Online=true AND Type=" & rsh("TypeID") & " order by Product_ID"
set RS=conn.execute(sql)
do while not(RS.eof)
%>
 |
<%if trim(rs("filedownload"))<>"" then response.write("" & RS("Topic") & "") else response.write(rs("topic")) end if%> |
<%
rs.movenext
loop
rs.close
%>
|
<%
rsh.movenext
loop
rsh.close
set rsh=nothing
%>
|
|
