% Response.Buffer = true %> <% dim level_ID dim str_title dim str_filename dim str_type dim str_author dim str_author_email dim map_after dim map_before dim nmb_comments dim ranking dim votes dim err_msg dim noConditionsFound dim where_stmt dim nowM dim nowY dim nowMonth dim condition dim maps dim num_results dim order_results dim sortedBy dim detailed dim lvl_pos 'dim page 'dim pagesize 'dim howmanyrecs 'dim howmanyfields 'dim maxpages 'dim maxrecs dim score dim page_end dim totalResults dim downloads 'format todays date nowM = DatePart("m", date) nowMonth = monthname(NowM,true) nowY = DatePart("yyyy",date) 'clear err messages err_msg = "" if Request.QueryString("submitted") then if Request.QueryString("listby") = "" and Request.QueryString("page") = "" then 'not a resort or next page of previous search pullFromForm end if if Request.form("details") = "Search Details" or Request.queryString("detailed") then 'now with pictures and paging detailed = true end if formatQuery 'determine the WHERE conditions for search query formatOrder 'determine the order to be listed in if err_msg = "" then searchLevels 'query DB and write results into an array end if elseif not Request.QueryString("refine") then clearSessions end if %>
title | file | filesize | author | type - d/load | added | posts | rank | votes | d/loads |
<%=searchButtons%><%=aboutSearch%> |
search tips : search definitions
|
<%=i+1%> - <%=str_title%> by <%=str_author%>
(<%=str_type%>, |
|||||||
|
<% if (isnull(maps(12,i))) or (maps(12,i) = "") then 'does the author(s)have a web site? %> | <% else %> | Authors www site |
<%
end if
%>||||
<%=searchButtons%> | |
<%
dim counterend, remainder
remainder = totalResults mod 10
counterend = fix(totalResults/10)
if remainder <> 0 then
counterend = counterend + 1
end if
'Response.Write(" counterend [" & counterend & "]") for counter = 1 to counterend 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 'Response.Write(" counter [" & counter & "] page [" & page & "]") 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 %> |
about the score |
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 |
<%if detailed then%>* Search List: Results displayed as text which can be resorted by column headings.
<%else%>* Search Details: Results displayed with screen shots and review. Can page through results using summary groups.
<%end if%> * New Search: Clears all fields * Refine Search: Go back and add to or alter your entered fields. |
Total Results: <%=totalResults + 1%> Sorted by: <%=session("order_results")%> | <%if detailed then%><%else%> | <%end if%> |