|
|
| <% = curCatName %> |
<% = curSectName %> |
<%
DBConnectA
Set rs = Server.CreateObject("ADODB.Recordset")
If curSect = "0" Then
rs.Open "SELECT * FROM viewSnippets WHERE snippetCategory = " & curCat, connA
Else
rs.Open "SELECT * FROM viewSnippets WHERE snippetSection = " & curSect, connA
End If
If Not rs.EOF Then
%>
| Title |
Description |
Category |
<%
rs.MoveFirst
While Not rs.EOF
%>
| &cat=<% = curCat %>&s=<% = curSect %>"><% = rs("snippetName") %> |
<% = rs("snippetDescription") %> |
<% = rs("sectionName") %> |
<%
rs.MoveNext
Wend
Else
%>
| This section is currently empty |
|---|
<%
End If
rs.Close
Set rs = Nothing
DBDisconnectA
%>
|