% dim filename, da_review %>
..::LvL - <%=realdate(NewsDate)%><%=" - " & LevelCount & " levels, last update " & round((datediff("h",LastMapDate,now()) / 24),2) &" days ago"%> | |||
|
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")%>, |
||||||||
|
<% if (isnull(tigRS("wwwsite"))) or (tigRS("wwwsite") = "") then 'does the author(s)have a web site? %> | <% else %> | " target="_blank">Authors www site |
<%
end if
%>|||||
<% 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 %>