<% Response.Buffer = true 'Response.Write("coookie=["& Request.Cookies("lvl")("forumid") &"]
") if not Request.Cookies("lvl")("forumid") > 0 then 'they ain't welcomed untill the signup up and login Response.Redirect("./") 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 '================= 'grab the current files 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.id, q3a_bug_fix.old_pk3, q3a_bug_fix.new_pk3, " & _ " q3a_bug_fix.bugfix, q3a_bug_fix.download, " & _ " q3a_bug_fix.date_added " & _ "FROM q3a_bug_fix LEFT OUTER JOIN " & _ " forum_user ON " & _ " q3a_bug_fix.added_by = forum_user.id " & _ "WHERE (forum_user.id = "& Request.Cookies("lvl")("forumid") &") " & _ "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 %> [ search ]

..::LvL PK3 updates ...... editing is fun
+---------------------

<% if (all_done) and (not error) 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 you listing

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

There was a problem processing your submission;

") elseif not all_done then '================= 'are they wanting to edit a pk3? if (not all_done) and (Request.Cookies("lvl")("forumid") > 0) and (Request.QueryString("pk3") <> "") then if error then 'ok, they tried to update but had a problem :[ %>
?upd=y&n=<%=Request.QueryString("n")%>&pk3=<%=Request.QueryString("pk3")%>" method="post" id=form1 name=form1> 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">

<% else for n=0 to ubound(pk3_list,2) if n = cint(Request.QueryString("n")) then %>
?upd=y&n=<%=Request.QueryString("n")%>&pk3=<%=Request.QueryString("pk3")%>" method="post" id=form2 name=form2> Old pk3 name; (The name of the original release)

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://)

<% end if next 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 %>

Below is a list of the PK3's you have added to ..::LvL, just click on the edit link of the one you wish to edit, change the details then hit the save button. You can also hide or remove a PK3 from being displayed by selecting the Hide this PK3 option.

<% 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 %> <% '==================== '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 | added
+---------------------
" & no_results_msg & "
edit " & server.HTMLEncode(pk3_list(1,n)) & " " & server.HTMLEncode(pk3_list(2,n)) & " " & InsertHyperlinks(pk3_list(4,n),true) & " " & InsertHyperlinks(pk3_list(3,n),false) & " ") if hours_from_now(pk3_list(5,n)) < 25 then Response.Write(hours_from_now(pk3_list(5,n)) & " hrs") else Response.Write(days_from_now(pk3_list(5,n)) & " days") end if Response.Write("
<% 'close the large error check if statement end if %>