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

The info entered is too long, plz shorten it. (1000 character limit)" end if session("website") = Trim(no_tags(Request.Form("website"))) if len(session("website")) > 160 then session("website") = left(session("website"),160) error_msg = error_msg & "
The website link is too long, max length is 160 characters." end if session("game_type") = Trim(no_tags(Request.Form("game_type"))) if len(session("game_type")) > 48 then session("game_type") = left(session("game_type"),48) error_msg = error_msg & "
The game type is too long, max length is 48 characters." end if session("name") = Trim(no_tags(Request.Form("name"))) if len(session("name")) > 48 then session("name") = left(session("name"),48) error_msg = error_msg & "
The name of the mod is too long, max length is 48 characters." end if session("active") = cint(Request.Form("active")) 'Response.Write("session(""active"")=[" & session("active") & "]
") 'do some checks before going on? if session("mod_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 name, info from mods_list where" & _ "((info like '" & SQLSafe(insert_br(session("info"))) & "') or " & _ "(name ='" & SQLSafe(session("name")) & "')) and " & _ "(id_login =" & Request.Cookies("lvlmods")("id") & ") and " & _ "(id <> " & session("mod_id") & ")" 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) if not tigRS.EOF then if (tigRS("name") = session("name")) then 'there be a problem here, the level has already been addded :[ error = true error_msg = error_msg & "
A mod with the name " & session("name") & " 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("name") = "" then error = true error_msg = error_msg & "
What the hell was this mod called?" & vblf end if if session("game_type") = "" then error = true error_msg = error_msg & "
What type of mod is it? (eg. Q3Fortress, Rocket Arena)" & vblf end if if session("website") <> "" then if not instr(1,session("website"),"http://") > 0 then if not instr(1,session("website"),"ftp://") > 0 then 'Response.Write("this is no good!!!!!!!!") error = true error_msg = error_msg & "
Make sure you start the website 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 mod?" & vblf end if if not error then 'the simple checks are done, on with the adding if session("mod_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 mods_list set " & _ "name = '" & SQLsafe(no_tags(session("name"))) & "', " & _ "website = '" & SQLsafe(no_tags(session("website"))) & "', " & _ "game_type = '" & SQLsafe(no_tags(session("game_type"))) & "', " & _ "active = " & session("active") & ", " & _ "datestamp = getdate(), " & _ "info = '" & SQLsafe(insert_br(session("info"))) & "' " & _ "where id = " & session("mod_id") 'Response.Write("Query = [" & query & "]
") tigCON.Execute(query) tigCON.close dim mod_updated mod_updated = true end if end if else 'ok, they just got here, so find out the info for the map if session("mod_id") = "" then Response.Redirect("login.asp") else set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select info as info, active as active, " & _ "website as website, " & _ "name as name, " & _ "game_type as game_type " & _ "from mods_list where " & _ "(id =" & session("mod_id") & ") and " & _ "(id_login =" & Request.Cookies("lvlmods")("id") & ")" '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 mod 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") = insert_vblf(tigRS("info")) session("active") = no_tags(tigRS("active")) session("website") = no_tags(tigRS("website")) session("name") = no_tags(tigRS("name")) session("game_type") = no_tags(tigRS("game_type")) 'Response.Write("name = [" & tigRS("name") & "]
") end if tigRS.close tigCON.close end if end if %> <% if mod_updated then %> <%=session("name")%> has been updated sucessfully.
<%=session("name")%> is currently marked to be <% if session("active") then %> shown. <% else %> not shown. <% end if %>
<% else if error then Response.Write(error_msg & "

") end if %> <% 'end mod_added end if %> <% if not mod_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 %> <% end if %>