top10 <% dim group group = 45 if isnumeric(Request.QueryString("group")) and not isEmpty(Request.QueryString("group")) then if Request.QueryString("group") < 46 then group = Request.QueryString("group") end if end if set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) ' set up the query to list the news by date Desc query = "SELECT id, nmb_comments, str_type, str_filename, " & _ "ranking, votes, " & _ "str_author, str_author_email, str_title, datestamp, wwwsite, txt_review " & _ "FROM q3a_levels " & _ "WHERE bit_archived = 0 AND ranking > 1 AND votes > " & group if Request.QueryString("order") = "ctf" then query = query & " AND str_type LIKE '%CTF%' " elseif Request.QueryString("order") = "dm" then query = query & " AND str_type LIKE '%DM%' " elseif Request.QueryString("order") = "tourney" then query = query & " AND str_type LIKE '%Tourney%' " end if if Request.QueryString("order") = "votes" then query = query & " ORDER BY votes DESC, ranking DESC" else query = query & " ORDER BY (ranking / votes) DESC" end if ' SELECT ranking AS ranking, votes AS votes, txt_review, ' nmb_comments, str_author_email, str_author, str_type, ' str_filename, str_title, id ' FROM q3a_levels ' WHERE bit_archived = 0 AND votes > 1 ' ORDER BY (ranking / votes) DESC 'Response.Write("Query = [" & query & "]
") page=Request.QueryString("page") If page="" then page = 1 end if pagesize=Request.QueryString("pagesize") If pagesize="" then pagesize = 10 end if set tigRS=Server.CreateObject("ADODB.Recordset") tigRS.cursorlocation=aduseclient tigRS.cachesize=5 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 ' make sure we have see if there is no records if (tigRS.EOF) Then %> Currently there is no maps to list as Top 10, sorry

You could try a search from what you want - or you could always email LvL and remind us of just how slack we are if you like <% end if dim filename, da_review dim tmp_rank, tmp_votes dim lvl_pos, score 'i = 1 'do while not (tigRS.EOF) and (i < 11) 'this is the counter, or location of the map on the list lvl_pos = ((page * 10) - 9) do until tigRS.eof or howmanyrecs>=maxrecs tmp_id = tigRS("id") filename = tigRS("str_filename") if Cint(tigRS("nmb_comments")) = 0 then comments_to_date = "none yet" else comments_to_date = tigRS("nmb_comments") end if '======== '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 tmp_rank = tigRS("ranking") tmp_votes = tigRS("votes") if not IsNull(tmp_rank) or not IsNull(tmp_votes) then score = Cint(tmp_rank) / Cint(tmp_votes) else score = 0 tmp_votes = "no" end if %> <% if (isnull(tigRS("wwwsite"))) or (tigRS("wwwsite") = "") then 'does the author(s)have a web site? %> <% else %> <% end if %>
+---------------------
|  <%=(lvl_pos + howmanyrecs)%> - <%=tigRS("str_title")%> by "><%=tigRS("str_author")%> (<%=tigRS("str_type")%>, <%=dloadcounter(tmp_id)%> d/loads)
+---------------------
score: <%=Round(score,2)%>/10 after <%=tmp_votes%> votes - download <%=FileSize2(cdrom_dir & file_dir(filename) & "\" & filename & ".zip")%> - readme.txt - ">comments (<%=comments_to_date%>)
 
<%=da_review%>
<%=filename%><%=filename%>
" target="_blank">Authors www site


<% 'i = i + 1 tigRS.MoveNext howmanyrecs=howmanyrecs+1 loop tigRS.close set tigRS=nothing tigCON.close 'call the *next nav thingy* call PageNavBar %> <% sub PageNavBar() dim tmp_GetQString tmp_GetQString = GetQString() 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 ref="First : " Response.Write(ref) ref="Previous : " Response.Write(ref) end if 'Response.Write "[" for counter = counterstart to counterend if counter >= 8 then pad="" end if 'DEBUG 'Response.Write("page=[" & page & "]
") 'Response.Write("tig debug counter=[" & counter & "]
") 'Response.Write("right(cstr(counter),1)=[" & right(cstr(counter),1) & "]
") '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 'Response.Write "]" if counterend <> maxpages then ref=" : More" Response.Write(ref) ref=" : Last" Response.Write(ref) end if %>
+---------------------
about the ranking the ranked score is an *average* of all of the votes for a map
highest possible score is 10
for each map you can only vote once per week, up to a total of 3 times
<% end sub function GetQString dim gqs, item gqs = 0 for each item in Request.QueryString() 'only want group and order if (lcase(item) = "group") or (lcase(item) = "order") then GetQString = GetQString & "&" & item & "=" & Request.QueryString(item) end if next end function %>