<% dim filename, da_review %> [latest] <% dim NewsDate, LevelCount, CurrentNews, LastMapDate dim PimpLink, PimpLinkTitle, PimpLinkCopy, PimpLinkURL 'call the main news XML call ReadXMLMainNews("xml\mainnews.xml") call ReadXMLPimpLink("xml\pimplink.xml") %>
+---------------------
|  ..::LvL - <%=realdate(NewsDate)%><%=" - " & LevelCount & " levels, last update " & round((datediff("h",LastMapDate,now()) / 24),2) &" days ago"%>
+---------------------
 
<%=CurrentNews%> <% if PimpLink <> "nopimplink" then 'just a quick safey catch so we can switch it off %>

<%=PimpLink%> - <%=PimpLinkTitle%>: <%=PimpLinkCopy%>


<% else Response.Write("
") end if %>
<% 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, wwwsite, txt_review " & _ "FROM q3a_levels " & _ "WHERE (bit_archived = 0) and (str_type like 'RA3%')" & _ "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=aduseclient 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 %> <% if (isnull(tigRS("wwwsite"))) or (tigRS("wwwsite") = "") then 'does the author(s)have a web site? %> <% else %> <% 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%><%=filename%>
" target="_blank">Authors www site


<% 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 %>