<% dim tigMaps, filename, da_review %> [latest] <% 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_author = 'Tigger-oN' and (bit_archived = 0) " & _ "ORDER BY datestamp DESC" set tigRS=tigCON.Execute(query) if (tigRS.EOF) Then %> There is currently no Tigger levels to list, bummer hey :[

You could try a search from what you want, if you like - try here <% else tigMaps = tigRS.getRows() end if tigRS.close tigCon.close if isarray(tigMaps) then ' Now loop through them all for i=0 to Ubound(tigMaps,2) if Cint(tigMaps(0,i)) = 0 then comments_to_date = "none" else comments_to_date = tigMaps(0,i) end if filename = tigMaps(2,i) tmp_id = tigMaps(3,i) '======== '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 = tigMaps(8,i) end if else da_review = tigMaps(8,i) end if %>
+---------------------
|  <%=tigMaps(6,i)%> by <%=tigMaps(4,i)%> (<%=tigMaps(1,i)%>, <%=dloadcounter(tmp_id)%> d/loads)
+---------------------
d/load | .au mirror <%=FileSize2(cdrom_dir & file_dir(filename) & "\" & filename & ".zip")%> - readme - comments (<%=comments_to_date%>) - <%=realdateshort(tigMaps(7,i))%>
 
<%=da_review%>
<%=filename%>


<% next end if %>