<%@LCID = 1033%> <% Dim iIDCategory ' As Integer Dim rsPrograms ' As ADODB.Recordset Dim iPageToDisplay ' As Integer Dim szOrderBy ' As String Dim bOrderDesc ' As Boolean gSessionTitle="Free Recreation software downloads" ' Get parameters iIDCategory = 910 ' Set variable to -1 if empty (all categories list) If iIDCategory = "" Then iIDCategory = -1 iPageToDisplay = Request.QueryString("page") ' Set variable to default value if empty If iPageToDisplay = "" Then iPageToDisplay = 1 szOrderBy = Request.QueryString("sortby") ' Set variable to default value if empty If szOrderBy = "" Then szOrderBy = "Released" bOrderDesc = True End If If bOrderDesc = "" Then bOrderDesc = Request.QueryString("desc") ' Set variable to default value if empty If bOrderDesc = "" Then bOrderDesc = False ' Validate 'If Not IsNumeric(iIDCategory) Then Response.Redirect("index.asp") 'If Not IsNumeric(iPageToDisplay) Then Response.Redirect("index.asp") %>
<% ' Display the category page If iIDCategory <> -1 Then ' Get offers list for this category Dim iRowCount ' As Integer Set rsPrograms = Programs_GetListByCategoryID(iIDCategory, iPageToDisplay, SEARCH_PAGE_SIZE, szOrderBy, bOrderDesc, iRowCount) If Not rsPrograms.BOF Then %> <% End If %> <% If Not rsPrograms.BOF Then rsPrograms.MoveFirst %> <% Set rsPrograms = Nothing End If %>
<% Dim iPage ' As Integer Dim iStartPage, iEndPage ' As Integer iStartPage = CInt(iPageToDisplay) - 8 If CInt(iStartPage) < 1 Then iStartPage = 1 iEndPage = CInt(iPageToDisplay) + 8 If iEndPage > CInt(iRowCount / SEARCH_PAGE_SIZE) - 1 Then iEndPage = CInt(iRowCount / SEARCH_PAGE_SIZE) - 1 If CInt(iPageToDisplay) > 1 Then %> << Previous | <% End If For iPage = (iStartPage - 1) * SEARCH_PAGE_SIZE To CInt(iEndPage * SEARCH_PAGE_SIZE) Step SEARCH_PAGE_SIZE If CInt((iPage \ SEARCH_PAGE_SIZE) + 1) = CInt(iPageToDisplay) Then %> [<%=(iPage \ SEARCH_PAGE_SIZE) + 1%>] <%If iPage \ SEARCH_PAGE_SIZE < CInt(iRowCount) \ SEARCH_PAGE_SIZE Then%>|<%End If%> <% Else %> <%=(iPage \ SEARCH_PAGE_SIZE) + 1%> | <% End If Next If CInt(iPageToDisplay) < (CInt(iRowCount) / SEARCH_PAGE_SIZE) Then %> Next >> <% End If %>

<% Dim iLp ' As Integer If Not rsPrograms.BOF Then %> <% iLp = 1 Do While Not rsPrograms.EOF %> <% ' Show google ads If iLp = 1 Or iLp = 5 Then %> <% End If %> CLASS="search_odd" <%End If%>> <% iLp = iLp + 1 rsPrograms.MoveNext If Not rsPrograms.EOF Then %> <% End If Loop Else %> <% End If %>
<%=FormatNumber(iRowCount, 0)%> files Order by: ?cid=<%=iIDCategory%>&sortby=Name&desc=<%=IIf(bOrderDesc, "0", "1")%>" CLASS="search_header"> Name<%If szOrderBy = "Name" Then%>.gif" BORDER="0" STYLE="margin-left: 1px;" ALIGN=bottom><%End If%> :: ?cid=<%=iIDCategory%>&sortby=Released&desc=<%=IIf(bOrderDesc, "0", "1")%>" CLASS="search_header"> Date<%If szOrderBy = "Released" Then%>.gif" BORDER="0" STYLE="margin-left: 1px;" ALIGN=bottom><%End If%> :: ?cid=<%=iIDCategory%>&sortby=Cost&desc=<%=IIf(bOrderDesc, "0", "1")%>" CLASS="search_header"> Price<%If szOrderBy = "Cost" Then%>.gif" BORDER="0" STYLE="margin-left: 1px;" ALIGN=bottom><%End If%>
<%=MyFormatDate(Now)%>
"> &width=100" WIDTH="100" ALT BORDER="0"> ">
<%=rsPrograms("Name")%> <%=rsPrograms("Version")%>" TARGET=_blank>Open in a New Window
<%=rsPrograms("Description_80")%>

License: <%=rsPrograms("Type")%><% If rsPrograms("Type") <> "Freeware" Then%>, $<%=rsPrograms("Cost")%> to buy <% End If %> 		<%=MyFormatDate(rsPrograms("Released"))%>
<%=rsPrograms("Size_KB")%>KB
">Download  ">download
There are no software titles in this category. Please choose other category.

<% If CInt(iPageToDisplay) > 1 Then %> << Previous | <% End If For iPage = (iStartPage - 1) * SEARCH_PAGE_SIZE To CInt(iEndPage * SEARCH_PAGE_SIZE) Step SEARCH_PAGE_SIZE If CInt((iPage \ SEARCH_PAGE_SIZE) + 1) = CInt(iPageToDisplay) Then %> [<%=(iPage \ SEARCH_PAGE_SIZE) + 1%>] <%If iPage \ SEARCH_PAGE_SIZE < CInt(iRowCount) \ SEARCH_PAGE_SIZE Then%>|<%End If%> <% Else %> <%=(iPage \ SEARCH_PAGE_SIZE) + 1%> | <% End If Next If CInt(iPageToDisplay) < (CInt(iRowCount) / SEARCH_PAGE_SIZE) Then %> Next >> <% End If %>
<% ' Display all categories Else %>
<% 'Dim rsRootCat ' As ADODB.Recordset 'Dim rsChildCat ' As ADODB.Recordset Set rsRootCat = Categories_GetList(-1) If Not rsRootCat.BOF Then Do While Not rsRootCat.EOF %> <% rsRootCat.MoveNext %> <% rsRootCat.MoveNext Loop End If ' Cleanup Set rsRootCat = Nothing %>
"><%=rsRootCat("Name")%>
<% Set rsChildCat = Categories_GetList(rsRootCat("ID_Category")) If Not rsChildCat.BOF Then Do While Not rsChildCat.EOF %> "><%=Categories_ExtractChildName(rsChildCat("Name"))%> <% rsChildCat.MoveNext If Not rsChildCat.EOF Then Response.Write(",") Loop End If ' Cleanup Set rsChildCat = Nothing %>

"><%=rsRootCat("Name")%>
<% Set rsChildCat = Categories_GetList(rsRootCat("ID_Category")) If Not rsChildCat.BOF Then Do While Not rsChildCat.EOF %> "><%=Categories_ExtractChildName(rsChildCat("Name"))%><% rsChildCat.MoveNext If Not rsChildCat.EOF Then Response.Write(",") Loop End If ' Cleanup Set rsChildCat = Nothing %>


<% End If %>