<% if not Request.Cookies("lvlserver")("sysadminid") > 0 then 'they ain't welcomed, get them out of here Response.Redirect("login.asp") else session("server_id") = Request.QueryString("id") 'they must have logged in fine let them have the world if Request.QueryString("update") = "yes" then dim error, error_msg, nmb_comments 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 (512 character limit)" error = true end if session("moreinfo") = Trim(striphtml(Request.Form("moreinfo"))) if len(session("moreinfo")) > 512 then session("moreinfo") = left(session("moreinfo"),512) error_msg = error_msg & "
The moreinfo link is too long, max length is 512 characters." error = true end if session("website") = Trim(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 1s 160 characters." error = true end if session("ip") = Trim(Request.Form("ip")) if len(session("ip")) > 160 then session("ip") = left(session("ip"),160) error_msg = error_msg & "
The IP info is too long, max length is 160 characters." error = true end if session("specs") = Trim(server.HTMLEncode(Request.Form("specs"))) if len(session("specs")) > 190 then session("specs") = left(session("specs"),190) error_msg = error_msg & "
The server specs is too long, max length is 190 characters." error = true end if session("openhours") = Trim(server.HTMLEncode(Request.Form("openhours"))) if len(session("openhours")) > 160 then session("openhours") = left(session("openhours"),160) error_msg = error_msg & "
The Open Hours is too long, max length is 160 characters." error = true end if session("location") = Trim(server.HTMLEncode(Request.Form("location"))) if len(session("location")) > 160 then session("location") = left(session("location"),160) error_msg = error_msg & "
The Location is too long, max length is 160 characters." error = true end if session("server_name") = Trim(server.HTMLEncode(Request.Form("server_name"))) if len(session("server_name")) > 160 then session("server_name") = left(session("server_name"),160) error_msg = error_msg & "
The Server Name is too long, max length is 160 characters." error = true end if session("maps") = Trim(server.HTMLEncode(Request.Form("maps"))) if len(session("maps")) > 512 then session("maps") = left(session("maps"),512) error_msg = error_msg & "
The Map rotation is too long, max length is 512 characters." error = true end if session("shown") = cint(Request.Form("shown")) 'Response.Write("session(""active"")=[" & session("active") & "]
") 'number of comments must be 0 for a new beta map nmb_comments = 0 'do some check before going on? if session("server_name") = "" then error = true error_msg = error_msg & "
What the hell is Server name again?" & vblf end if if session("ip") = "" then error = true error_msg = error_msg & "
Whats the IP?" & vblf end if if session("maps") = "" then error = true error_msg = error_msg & "
You running any maps on this server?" & vblf end if if session("openhours") = "" then error = true error_msg = error_msg & "
When is this server running? What hours is it open?" & vblf end if if session("location") = "" then error = true error_msg = error_msg & "
Where is this server located?" & vblf end if if session("specs") = "" then error = true error_msg = error_msg & "
What sort of box you running? Whats the specs?" & vblf end if ' if not instr(1,session("website"),"http://") > 0 then ' error = true ' error_msg = error_msg & "
Make sure you start the website link with http:// - it needs to a be a full URL" & vblf ' end if if session("website") = "http://" then session("website") = "" end if if not error then 'the simple checks are done, on with the adding set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "update server_info set " & _ "info = '" & SQLSafe(replace(session("info"),chr(13),"
")) & "', " & _ "moreinfo = '" & SQLSafe(session("moreinfo")) & "', " & _ "website = '" & SQLSafe(session("website")) & "', " & _ "ip = '" & SQLSafe(session("ip")) & "', " & _ "specs = '" & SQLSafe(session("specs")) & "', " & _ "openhours = '" & SQLSafe(session("openhours")) & "', " & _ "location = '" & SQLSafe(session("location")) & "', " & _ "datestamp = getdate(), " & _ "shown = " & session("shown") & ", " & _ "server_name = '" & SQLSafe(session("server_name")) & "', " & _ "maps = '" & SQLSafe(session("maps")) & "' " & _ "where id = " & session("server_id") & " and " & _ "sysadmin_id = " & Request.Cookies("lvlserver")("sysadminid") 'Response.Write("Query = [" & query & "]
") tigCON.Execute(query) tigCON.close dim server_updated server_updated = true end if else 'ok, they just got here, so load up some sessions if session("server_id") = "" then Response.Redirect("login.asp") else set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select info as info, " & _ "moreinfo as moreinfo, website as website, " & _ "ip as ip, specs as specs, " & _ "openhours as openhours, location as location, " & _ "datestamp as datestamp, shown as shown, server_name as server_name, " & _ "maps as maps " & _ "from server_info where " & _ "(id = " & session("server_id") & ") and " & _ "(sysadmin_id =" & Request.Cookies("lvlserver")("sysadminid") & ")" '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 server info 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 session("info") = replace(tigRS("info"),"
","") session("moreinfo") = tigRS("moreinfo") session("website") = tigRS("website") session("ip") = tigRS("ip") session("specs") = tigRS("specs") session("openhours") = tigRS("openhours") session("location") = tigRS("location") session("datestamp") = tigRS("datestamp") session("server_name") = tigRS("server_name") session("maps") = tigRS("maps") 'Response.Write("session moreinfo=["& session("moreinfo") &"]
") 'Response.Write("session website=["& session("website") &"]
") 'Response.Write("session ip=["& session("ip") &"]
") end if tigRS.close tigCON.close end if end if %> <% if server_updated then %> The custom map server <%=session("server_name")%> which is currently running the following maps:
<%=session("maps")%>
has been updated on the ..::LvL's Server List.
<%=session("server_name")%> is currently marked to be <% if session("shown") = 1 then %> displayed. <% else %> not shown atm. <% end if %> <% else if error then Response.Write(error_msg & "

") end if %>

?update=yes&id=<%=session("server_id")%>" method="post">

Your website URL should be typed in full ie, make sure you include http:// at the start.

The name of the server - (it has to be called something, right?)
">

Website - (Can ppl get more info about this server? include http://)
<% if session("website") <> "" then %> "> <% else %> <% end if %>

Info text - (Some info about you server and you. limited to 255 characters)
<%=session("info")%>

Server IP - (the IP and port number, kind of important if you ppl to join :])
">

What sort of server is it? - (Give us a rundown on your set-up and network connection speed)
">

What time is the server running - (is it 24/7? Is it 9-5, mon-fri? Include the time zone too)
">

Where are you physically located - (helps to put things into perspective)
">

What maps you running? - (this is the most important bit)
<%=session("maps")%>

Is this server currently up and running? (use this to hide a server when its down)
<% if (session("shown") = 1) or session("shown") = "" then %> show it now - hide it <% else %> show it now - hide it <% end if %>

<% end if %> <% if not server_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 %>