<% Response.Buffer = true if Request.QueryString("order") = "new2old" then Response.Cookies("lvl")("updateorder") = "new2old" Response.Cookies("lvl").expires = dateadd("yyyy",1,now()) elseif Request.QueryString("order") = "old2new" then Response.Cookies("lvl")("updateorder") = "old2new" Response.Cookies("lvl").expires = dateadd("yyyy",1,now()) elseif Request.QueryString("order") = "a2z" then Response.Cookies("lvl")("updateorder") = "a2z" Response.Cookies("lvl").expires = dateadd("yyyy",1,now()) elseif Request.QueryString("order") = "z2a" then Response.Cookies("lvl")("updateorder") = "z2a" Response.Cookies("lvl").expires = dateadd("yyyy",1,now()) end if 'Response.Write("cookie order=[" & Request.Cookies("lvl")("updateorder") & "]") if ((Request.QueryString("add") = "y") or (Request.QueryString("upd") = "y")) and (Request.Cookies("lvl")("forumid") > 0) then 'cool, they are right to process the data, but lets check the data first call ProcessPK3data end if %> [ search ]

..::LvL PK3 updates ...... if its pk3 you can add it here
+---------------------

<% if (all_done = true) and (not error = true) then Response.Write("

Your pk3 information about " & Request.Form("new_pk3") & " has been successfully ") if Request.QueryString("add") = "y" then Response.Write("added to the ..::LvL Update database, Thanx! ") else 'we can guess its an update Response.Write("updated in the ..::LvL Update database, Thanx! ") end if Response.Write("

Click here to see the new listing

") end if if error then Response.Write("

There was a problem processing your submission;

") elseif not all_done then %>

..::LvL Updates is the place to post news of a change to your map, skinz, mod, or anything else you wish to let the world know you have improve that comes in pk3 format. Its the kind of place where you can let people know that you have added Team Arena features to that old map you made or that you finally got around to fixing that damaged .shader file and have re-released your pk3.

<% end if if (Request.Cookies("lvl")("forumid") > 0) and (not all_done) then %>

To add a PK3 fill in this form.

<% end if if (not Request.Cookies("lvl")("forumid") > 0) and (not all_done) then %>

To add a PK3 simply sign-up right here. If you have already signed up you may need to login again as your login cookie was not found. Click here to login

<% end if '========================== 'only display the follow if there is no error 'with the submission of a new pk3 if (not error) and (not all_done) then %>

How would you like to display the Update PK3 list?

  • ?order=new2old">By Date added (newest to oldest, also the defualt).
  • ?order=old2new">By Date added decending (oldest to newest).
  • ?order=a2z">By Alphanumeric (0-9,A-Z).
  • ?order=z2a">By Alphanumeric reversed (Z-A,9-0).
  • <% dim pk3_list, no_results, no_results_msg 'now grab the records from q3a_bug_fix set con = Server.CreateObject("ADODB.Connection") con.Open(DSN) 'open the connection to the DSN (SQL server) query = "SELECT q3a_bug_fix.old_pk3, q3a_bug_fix.new_pk3, " & _ " q3a_bug_fix.bugfix, q3a_bug_fix.download, " & _ " q3a_bug_fix.date_added, forum_user.user_name, " & _ " forum_user.email " & _ "FROM q3a_bug_fix LEFT OUTER JOIN " & _ " forum_user ON " & _ " q3a_bug_fix.added_by = forum_user.id " & _ "WHERE (q3a_bug_fix.hide_it = 0) " & _ "ORDER BY " if Request.Cookies("lvl")("updateorder") = "old2new" then query = query & "q3a_bug_fix.date_added" elseif Request.Cookies("lvl")("updateorder") = "a2z" then query = query & "q3a_bug_fix.old_pk3" elseif Request.Cookies("lvl")("updateorder") = "z2a" then query = query & "q3a_bug_fix.old_pk3 DESC" else query = query & "q3a_bug_fix.date_added DESC" end if 'for a quick debug of the query 'Response.Write("query = [" & query & "]
    ") set RS=con.Execute(query) if not RS.eof then 'ALWAYS check of the EOF (end of file) 'dump the entire query results into an array pk3_list = RS.getRows() else no_results = true no_results_msg = no_results_msg & "No pk3's have been listed as yet." end if RS.Close con.Close 'display the results if no_results then Response.Write("") else 'the results are stored in an array, so lets print them out if isarray(pk3_list) then 'quick check then format them results for n=0 to ubound(pk3_list,2) 'lets have pretty bar colours too! if n mod 2 = 0 then bgcolor = " bgcolor=""" & bgcolourCustom & """" else bgcolor = "" end if Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) Response.Write(" " & vbcr) if n mod 5 = 0 then Response.Flush end if next end if 'close the array check end if %>
     old pk3 | new pk3 | download | changes/fix/bug | post by | added
     +---------------------
    " & no_results_msg & "
    " & server.HTMLEncode(pk3_list(0,n)) & " " & server.HTMLEncode(pk3_list(1,n)) & " " & InsertHyperlinks(pk3_list(3,n),true) & " " & InsertHyperlinks(pk3_list(2,n),false) & " " & server.HTMLEncode(pk3_list(5,n)) & " ") if hours_from_now(pk3_list(4,n)) < 25 then Response.Write(hours_from_now(pk3_list(4,n)) & " hrs") else Response.Write(days_from_now(pk3_list(4,n)) & " days") end if Response.Write("
    <% 'close the large error check if statement end if if (not all_done) and (Request.Cookies("lvl")("forumid") > 0) then %>

    Got a pk3 to add to the list?

    ?add=y" method="post"> Old pk3 name; (The name of the original release)
    " maxlength="50" size="32">
    New pk3 name; (What the pk3 is now called, not the name of the zipfile)
    " maxlength="50" size="32">
    Whats changed; (A bug fix? Upgrade to Team Arena? etc..)

    Download links; (Paste the FULL URL in here, including ftp:// or http://)
    " maxlength="255" size="32">

    <% if (switch = 0) or (switch = 1) then Response.Write("") elseif (switch = 2) or (switch = 3) then Response.Write("") elseif (switch = 4) or (switch = 5) then Response.Write("") elseif (switch = 6) or (switch = 7) then Response.Write("") else Response.Write("") end if %>

    supported html Whats Changed field only.
    URL links are automatic, just type the full URL, including http:// or ftp://
    paragraphs are automatic, based on line returns
    <b>some bold text</b>
    <i>wow italics!</i>
    All other html tags are stripped out of posts
    Remember to close <b> and <i> tags with </b> and </i> otherwise everything will be bold or italic :]

    <% end if %>