如何在主類別下顯示子類別

Question

我需要一些經典ASP幫助。 目前，輸出節目，如：

cat 
south 
cat 
south 
cat2 
east 
cat2 
west 

我不希望看到的主要類別重複這樣的。 如何將主類別合併爲一個，並在主類別下方顯示子類別？ 像：

cat 
south 
south 
cat2 
east 
west 

Category table 
ID Category 
------------ 
01 cat 
02 cat2 
03 cat3 

Subcat table 
ID Subcat Category_id 
------------------------- 
1 south  01 
2 north  01 
3 east  02 
4 west  02 
5 line  03 

代碼：

<% 
sSQL = " SELECT s.*, c.* FROM Category c, Subcat s WHERE s.Subcat_id =  c.Subcat_id " 
    objRS.Open sSQL, objCon 
    response.Write sSQL 
    Do Until objRS.EOF 
    sCategory = objRS("Category") 
    sSubcat = objRS("Subcat") 
%> 
<input type="text" name="CategoryN" size="40" maxlength="50" value="<%= sCategory %>"><br /> 
<input type="text" name="SubcatN" size="40" maxlength="50" value="<%= sSubcat %>"><br /> 
<% 
objRS.MoveNext 
Loop 
objRS.Close 
%> 

非常感謝！

Answer 1

事情是這樣的：

<% 
    currCat = "~~~~~~" 
    sSQL = "SELECT s.*, c.* FROM Category c, Subcat s WHERE s.Subcat_id = c.Subcat_id " 
    objRS.Open sSQL, objCon 
    response.Write sSQL 
    Do Until objRS.EOF 
    sCategory = objRS("Category") 
    sSubcat = objRS("Subcat") 

    if currCat <> sCategory Then 
     currCat = sCategory 
     <% 
     <input type="text" name="CategoryN" size="40" 
     maxlength="50" value="<%=sCategory%>"><br /> 
     %> 
    End If 
    %> 
     <input type="text" name="SubcatN" size="40" 
     maxlength="50" value="<%= sSubcat %>"><br /> 
<% 
    objRS.MoveNext 
    Loop 

    objRS.Close 
%>