<%
set rsTypes = Server.CreateObject("ADODB.Recordset")
rsTypes.ActiveConnection = MM_connDUclassified_STRING
rsTypes.Source = "SELECT *, (SELECT COUNT(*) FROM ADS WHERE AD_APPROVED=1 AND AD_EXPIRED > DATE() AND AD_TYPE = TYPE_ID) AS AD_COUNT FROM TYPES ORDER BY TYPE_NAME ASC"
rsTypes.CursorType = 0
rsTypes.CursorLocation = 2
rsTypes.LockType = 3
rsTypes.Open()
rsTypes_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -2
Dim HLooper1__index
HLooper1__index = 0
rsTypes_numRows = rsTypes_numRows + HLooper1__numRows
%>
<link href="assets/DUclassified.css" rel="stylesheet" type="text/css">
<div class = "links">
<table border="0" cellspacing="2" cellpadding="2" width="100%">
<tr>
<td align="center" valign="middle"> <table width="98%" cellpadding="2" cellspacing="2">
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 2
numrows = -1
while((numrows <> 0) AND (Not rsTypes.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not rsTypes.EOF))
%>
<td> <table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr align="left" valign="middle">
<td width="22">[img]assets/folderIcon.gif[/img]</td>
<td class="textBold"><font face="Verdana, Arial, Helvetica, sans-serif" size="3">
"><%=(rsTypes.Fields.Item("TYPE_NAME").Value)% ></font> (<%=(rsTypes.Fields.Item("AD_COUNT").Value)%>)</td>
</tr>
<tr align="left" valign="middle">
<td></td>
<td class="textGray">
<%=(rsTypes.Fields.Item("TYPE_DESCRIPTION").Value) %></td>
</tr>
</table></td>
<%
startrw = startrw + 1
rsTypes.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table></td>
</tr>
<tr>
<td align="right" valign="middle" class="text"><a href="http://www.duware.com">Powered
by DUclassified</a></td>
</tr>
</table>
</div>
<%
rsTypes.Close()
%>