<% dim txt_comment, nmb_comments if not Request.Cookies("lvlbeta")("mapperid") > 0 then 'they ain't welcomed, get them out of here Response.Redirect("login.asp") end if session("level_id") = Request.QueryString("id") 'they must have logged in fine let them have the world if Request.QueryString("addone") = "yes" then session("level_id") = Request.form("id") dim error, error_msg error = false error_msg = "Some things need to be fixed before this level can be added - check out the details below

The info entered is too long, plz shorten it. (1000 character limit)" end if session("moreinfo") = Trim(no_tags(Request.Form("moreinfo"))) if len(session("moreinfo")) > 160 then session("moreinfo") = left(session("moreinfo"),160) error_msg = error_msg & "
The moreinfo link is too long, max length is 160 characters." end if session("download") = Trim(no_tags(Request.Form("download"))) if len(session("download")) > 160 then session("download") = left(session("download"),160) error_msg = error_msg & "
The download link is too long, max length is 160 characters." end if session("str_type") = Trim(no_tags(Request.Form("str_type"))) if len(session("str_type")) > 32 then session("str_type") = left(session("str_type"),32) error_msg = error_msg & "
The gametype is too long, max length is 32 characters." end if session("title") = Trim(no_tags(Request.Form("title"))) if len(session("title")) > 48 then session("title") = left(session("title"),48) error_msg = error_msg & "
The title is too long, max length is 48 characters." end if session("active") = cint(Request.Form("active")) 'Response.Write("session(""active"")=[" & session("active") & "]
") 'number of comments must be 0 for a new beta map nmb_comments = 0 'do some checks before going on? if session("level_id") = "" then 'Response.Write("session 1=[" & session("level_id") & "]
") Response.Redirect("login.asp") else set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select title, info from beta_levels where" query = query & "((info like '" & SQLSafe(session("info")) & "') or " query = query & "(title ='" & SQLSafe(session("title")) & "')) and " query = query & "(author =" & Request.Cookies("lvlbeta")("mapperid") & ") and " query = query & "(id <> " & session("level_id") & ")" 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) if not tigRS.EOF then if (tigRS("title") = session("title")) then 'there be a problem here, the level has already been addded :[ error = true error_msg = error_msg & "
A level with the title " & session("title") & " already exists" & vblf end if if (tigRS("info") = session("info")) then 'there be a problem here, the level has already been addded :[ error = true error_msg = error_msg & "
The info you are trying to add has already been added." & vblf end if end if tigRS.close tigCON.close end if 'check for uploaded files if session("title") = "" then error = true error_msg = error_msg & "
What the hell was this level called?" & vblf end if if session("str_type") = "" then error = true error_msg = error_msg & "
What type of level is it? (eg. DM/Tourney (2-5 player))" & vblf end if if session("download") = "" then error = true error_msg = error_msg & "
Where can ppl get this level from again? - include a download link" & vblf end if if not instr(1,session("download"),"http://") > 0 then if not instr(1,session("download"),"ftp://") > 0 then 'Response.Write("this is no good!!!!!!!!") error = true error_msg = error_msg & "
Make sure you start the download link with http:// or ftp:// - it needs to a be a full URL" & vblf end if end if if session("moreinfo") <> "" then if not instr(1,session("moreinfo"),"http://") > 0 then if not instr(1,session("moreinfo"),"ftp://") > 0 then 'Response.Write("this is no good!!!!!!!!") error = true error_msg = error_msg & "
Make sure you start the moreinfo link with http:// or ftp:// - it needs to a be a full URL" & vblf end if end if end if if session("info") = "" then error = true error_msg = error_msg & "
You mean there is no info about this map?" & vblf end if if not error then 'the simple checks are done, on with the adding if session("level_id") = "" then 'Response.Write("session 2") Response.Redirect("login.asp") else set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) 'ok, update the level query = "update beta_levels set " query = query & "title = '" & SQLsafe(no_tags(session("title"))) & "', " query = query & "download = '" & SQLsafe(no_tags(session("download"))) & "', " query = query & "moreinfo = '" & SQLsafe(no_tags(session("moreinfo"))) & "', " query = query & "str_type = '" & SQLsafe(no_tags(session("str_type"))) & "', " query = query & "active = " & session("active") & ", " query = query & "datestamp = '" & SQLDate(now()) & "', " query = query & "info = '" & SQLsafe(session("info")) & "' " query = query & "where id = " & session("level_id") 'Response.Write("Query = [" & query & "]
") tigCON.Execute(query) tigCON.close dim map_updated map_updated = true end if end if else 'ok, they just got here, so find out the info for the map if session("level_id") = "" then Response.Redirect("login.asp") else set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select info as info, active as active, " & _ "download as download, moreinfo as moreinfo, " & _ "str_type as str_type, title as title " & _ "from beta_levels where " & _ "(id =" & session("level_id") & ") and " & _ "(author =" & Request.Cookies("lvlbeta")("mapperid") & ")" 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) if tigRS.EOF then 'there be a problem here, the level has allready been addded :[ error = true error_msg = error_msg & "
The map you have requested doesn't seem to exist. Plz email tigger@ebom.org if you think there is problem" & vblf end if if not tigRS.EOF then '====debug==== 'Response.Write("info?["& tigRS("info") &"]
") 'session("info") = tigRS("info") 'session("info") = insert_vblf(striphtml(session("info"))) 'session("info") = insert_vblf(striphtml(tigRS("info"))) session("info") = tigRS("info") session("active") = no_tags(tigRS("active")) session("download") = no_tags(tigRS("download")) session("moreinfo") = no_tags(tigRS("moreinfo")) session("str_type") = no_tags(tigRS("str_type")) session("title") = no_tags(tigRS("title")) 'Response.Write("moreinfo = [" & tigRS("info") & "]
") 'Response.Write("moreinfo = [" & tigRS("active") & "]
") 'Response.Write("moreinfo = [" & tigRS("download") & "]
") 'Response.Write("moreinfo = [" & tigRS("moreinfo") & "]
") 'Response.Write("moreinfo = [" & tigRS("str_type") & "]
") 'Response.Write("moreinfo = [" & tigRS("title") & "]
") end if tigRS.close tigCON.close end if end if %> <% if map_updated then %> <%=session("title")%> which can be d/load from " target="_blank"><%=session("download")%> has been updated.
<%=session("title")%> is currently marked to be <% if session("active") then %> shown. <% else %> not shown. <% end if %>
A number of people have had a lot of problems downloading levels from free web housing services, please check " target="_blank">your download link and make sure it works correct - its kind of important :] <% else if error then Response.Write(error_msg & "

") end if %>

?addone=yes" method="post"> "> Before you add a level you need to have your map housed on your own site, set up (where possible) so that you can use the Download URL to link directly to the file, and the Map Info URL (if you want one) links to a page with anything else you want to say or show about the map, eg. screen shots, log of updates etc. Check that your links are working correctly.
All URL's should be typed in full ie, make sure you include http:// or ftp:// at the start.

Level title - (its has to be called something, right?)
">

Type of map - (DM, Tourney, DM/Tourney, CTF, RocketArena, Railgun, etc....)
">

Download URL - (Link straight to the source)
">

Map Info URL - (Link to more info about your map.)
">

Give us a rundown of the map - (Don't bore ppl, keep it short and sweet, trust me :])
<%=session("info")%>

Show this beta map? (use this to hide finished beta maps)
<% if session("active") then %> show it now - hide it <% else %> show it now - hide it <% end if %>

<% 'end map_added end if %> <% if not map_updated then %>

supported html

paragraphs ( ) are automatic, based on line returns
some bold text
wow italics!
All other html tags are stripped out of comments posted - Remember to close and tags with and otherwise everything will be bold or italic :]

<% end if %>