<%siteHead(" ")%>

<%DisplayBoardList%>

<% Function DisplayBoardList OpenDatabase Dim Rs,GetData,BoardNum Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select BoardID,BoardAssort,BoardName,LeadBBS_Assort.AssortName from LeadBBS_Boards inner join LeadBBS_Assort on LeadBBS_Assort.AssortID=LeadBBS_Boards.BoardAssort where LeadBBS_Boards.HiddenFlag = 0 order by LeadBBS_Assort.AssortID,LeadBBS_Boards.OrderID ASC",con,1,1 GBL_DBNum = GBL_DBNum + 1 If Not Rs.Eof Then GetData = Rs.GetRows(-1) BoardNum = Ubound(GetData,2) Else BoardNum = -1 End If Rs.Close Set Rs = Nothing If BoardNum = -1 Then Else Dim CurrentAssosrt,N CurrentAssosrt = -1183 Dim LastAssosrt,WriteStr LastAssosrt = cCur(GetData(1,BoardNum)) Dim LastFlag For N = 0 to BoardNum If CurrentAssosrt<>cCur(GetData(1,N)) Then CurrentAssosrt = cCur(GetData(1,N)) If LastAssosrt = CurrentAssosrt Then Response.Write "" Else Response.Write "" End If %> i height=9 src="images/<%=GBL_DefineImage%>frame/plus.gif" width=9 border=0> target="b"><%=WriteStr & GetData(3,N)%>
<% End If %> <% Next Response.Write "" End If CloseDatabase End Function%>