<% Sql = "SELECT * FROM highlights ORDER BY ID DESC" Set hl = Con.Execute(Sql) hlslut = 6 %> Arveter.DK - Immortal Gaming
   
 

Nyheder - Filer - Kontakt - Tagwall - Programmering - Gaming - Links - Irc

<% IF session("arveter-da-admin") = "1337" THEN %>A<% ELSE %>  <% END IF %>
 
<% IF Request.Querystring("pageID") = "1" THEN Server.Execute("nyheder.asp") ELSEIF Request.Querystring("pageID") = "2" THEN Server.Execute("nyhederall.asp") ELSEIF Request.Querystring("pageID") = "3" THEN Server.Execute("filer.asp") ELSEIF Request.Querystring("pageID") = "4" THEN Server.Execute("kontakt.asp") ELSEIF Request.Querystring("pageID") = "5" THEN Server.Execute("tagwall.asp") ELSEIF Request.Querystring("pageID") = "6" THEN Server.Execute("programmering.asp") ELSEIF Request.Querystring("pageID") = "7" THEN Server.Execute("gaming.asp") ELSEIF Request.Querystring("pageID") = "8" THEN Server.Execute("links.asp") ELSEIF Request.Querystring("pageID") = "9" THEN Server.Execute("irc.asp") ELSEIF Request.Querystring("pageID") = "10" THEN Server.Execute("faillogin.asp") ELSEIF Request.Querystring("pageID") = "11" THEN Server.Execute("hof.asp") ELSEIF Request.Querystring("pageID") = "12" THEN Server.Execute("logs.asp") ELSEIF Request.Querystring("pageID") = "13" THEN Server.Execute("vis_log.asp") ELSEIF Request.Querystring("pageID") = "14" THEN Server.Execute("kommentare.asp") ELSEIF Request.Querystring("admin") = "TRUE" THEN Server.Execute("admin.asp") ELSEIF Request.Querystring("admin") = "login" THEN Server.Execute("login.asp") ELSEIF Request.Querystring("admin") = "logout" THEN Server.Execute("logud.asp") ELSEIF Request.Querystring("admin") = "hacklog" THEN Server.Execute("hacklog.asp") ELSEIF Request.Querystring("admin") = "bans" THEN Server.Execute("bans.asp") ELSE Response.Redirect("default.asp?pageID=1") END IF %>
<% h = 1 'On Error Resume Next Do While Not Hl.eof %> ">">
<%=hl("Tekst")%>

<% IF session("arveter-da-admin") = "1337" THEN %>[ " onclick="NewWindow(this.href,'Hopla','400','360','no','center');return false" onfocus="this.blur()">Rediger | " onclick="NewWindow(this.href,'Hopla','400','360','no','center');return false" onfocus="this.blur()">Slet ]

<% END IF %>
<% h = h+1 if h > hlslut then exit do hl.MoveNext Loop %>