<% dim filename, da_review %> [latest] <% dim tmpResults set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "SELECT nmb_comments, str_type, str_filename, id, " & _ "str_author, str_author_email, str_title, datestamp, txt_review " & _ "FROM q3a_levels " & _ "WHERE (str_title like '..::LvL%') and (bit_archived = 0) " & _ "ORDER BY datestamp DESC" page=Request.QueryString("page") If page="" then page = 1 end if pagesize=Request.QueryString("pagesize") If pagesize="" then pagesize = 8 end if set tigRS = Server.CreateObject("ADODB.Recordset") tigRS.cursorlocation=3 tigRS.cachesize = 8 tigRS.open query,DSN tigRS.movefirst tigRS.pagesize = pagesize maxpages=cint(tigRS.pagecount) maxrecs=cint(tigRS.pagesize) tigRS.absolutepage=page howmanyrecs = 0 howmanyfields=tigRS.fields.count -1 if (tigRS.EOF) Then %> There is currently no levels to list for review, bummer hey :[

You could try a search from what you want, as the front page will only every show up too 2 months ago, so LvL is either out of date, or been very lazy - you could always email LvL and remind us of just how slack we are if you like <% end if ' Now loop through then all do until tigRS.eof or howmanyrecs>=maxrecs if Cint(tigRS("nmb_comments")) = 0 then comments_to_date = "none" else comments_to_date = tigRS("nmb_comments") end if filename = tigRS("str_filename") tmp_id = tigRS("id") '======== 'work out if there is a non english version of the review if Request.Cookies("lvl")("language") <> "" then if LanguageFileCHK(current_ROOT & "translation\" & Request.Cookies("lvl")("language") & "\" & tmp_id & ".txt") then da_review = LanguageFileREAD(current_ROOT & "translation\" & Request.Cookies("lvl")("language") & "\" & tmp_id & ".txt") else da_review = tigRS("txt_review") end if else da_review = tigRS("txt_review") end if %>
+---------------------
|  <%=tigRS("str_title")%> by "><%=tigRS("str_author")%> (<%=tigRS("str_type")%>, <%=dloadcounter(tmp_id)%> d/loads)
+---------------------
d/load | .au mirror <%=FileSize2(cdrom_dir & file_dir(filename) & "\" & filename & ".zip")%> - readme - comments (<%=comments_to_date%>) - <%=realdateshort(tigRS("datestamp"))%>
 
<%=da_review%>
<%=filename%>


<% tigRS.movenext howmanyrecs=howmanyrecs+1 loop ' close, destroy tigRS.close set tigRS=nothing 'close connection tigCON.close ' Now make the page _ of _ hyperlinks if maxpages > 1 then 'only if there is a need to Call PageNavBar end if sub PageNavBar() pad=" " scriptname=request.servervariables("script_name") %>
+---------------------
Summary groups -  <% if (page mod 10) = 0 then counterstart = page - 9 else counterstart = page - (page mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages end if if counterstart <> 1 then Response.Write("First : ") Response.Write("Previous : ") end if for counter = counterstart to counterend if counter >= 8 then pad="" end if 'i guess this could have been done a lot cleaner, however ... :] --19 feb 00-- if (cint(counter) < 10) or (cint(counter) > 20) then if (right(cstr(counter),1) = "1") then tmp_group = cstr(counter) & "st" elseif (right(cstr(counter),1) = "2") then tmp_group = cstr(counter) & "nd" elseif (right(cstr(counter),1) = "3") then tmp_group = cstr(counter) & "rd" else tmp_group = cstr(counter) & "th" end if else tmp_group = cstr(counter) & "th" end if if cstr(counter) <> cstr(page) then ref="" & pad & tmp_group & "" else ref="" & pad & tmp_group & "" end if response.write(ref) if counter <> counterend then response.write(" ") end if next if counterend <> maxpages then Response.Write(" : More") Response.Write(" : Last") end if %>
+---------------------

 

 

 

<% end sub %>