www.HighRiseTimes.dk

<% strFarve = "FFFFFF" %>

| figurer: |

<% if request.QueryString("hrt") = "ja" then response.write "

tilføj figur | start

" else response.write "

" end if %>

<% MyDay = Day(Now) MyMonth = Month(Now) MyHour = Hour(Now) MyMinute = Minute(Now) MySecond = Second(Now) If len(MyDay) < 2 then strD = "0" else strD = "" end if If len(MyMonth) < 2 then strM = "0" else strM = "" end if If len(MyHour) < 2 then strH = "0" else strH = "" end if If len(MyMinute) < 2 then strMi = "0" else strMi = "" end if If len(MySecond) < 2 then strS = "0" else strS = "" end if strLigeNu = strD & Day(Now) & "-" & strM & Month(Now) & "-" & Year(Now) & " " & strH & Hour(Now) & ":" & strMi & Minute(Now) & ":" & strS & Second(Now) strMode = Request.QueryString("side") Select Case strMode Case "skriv" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If %> Navn:
Beskrivelse:
IRL navn:
Lejligheds-nummer:
Figur (f.eks. viceveart.gif):
Baggrund (f.eks. ../baggrunde/penthouse.gif):

| tilføj |

<% Case "opret" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/figurer.mdb") Conn.Open DSN If len(Request.Form("beskrivelse")) > 2500 Then Response.Write "OBS: Din beskrivelse må højest fylde 2500 tegn." ElseIf Request.Form("navn") = "" Then Response.Write "OBS: Du mangler at skrive navnet på tingen." Else strSQL = "Insert into figurer (" strSQL = strSQL & "navn, " strSQL = strSQL & "beskrivelse, " strSQL = strSQL & "irl, " strSQL = strSQL & "lejlighed, " strSQL = strSQL & "figur, " strSQL = strSQL & "baggrund) " strSQL = strSQL & "values( " strSQL = strSQL & "'" & Server.HTMLEncode(Request("navn")) & "', " strSQL = strSQL & "'" & Request.Form("beskrivelse") & "', " strSQL = strSQL & "'" & Server.HTMLEncode(Request("irl")) & "', " strSQL = strSQL & "'" & Server.HTMLEncode(Request("lejlighed")) & "', " strSQL = strSQL & "'" & Server.HTMLEncode(Request("figur")) & "', " strSQL = strSQL & "'" & Server.HTMLEncode(Request("baggrund")) & "')" Conn.Execute(strSQL) Conn.Close Set Conn = Nothing Response.Redirect "figurer.asp?side=adminlist&hrt=ja" End If %> <% Case "slet" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/figurer.mdb") Conn.Open DSN strSQL = "Delete * From figurer Where Id = " & Request.Querystring("id") Conn.Execute(strSQL) Conn.Close Set Conn = Nothing Response.Redirect "figurer.asp?side=adminlist&hrt=ja" %> <% Case "rediger" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/figurer.mdb") Conn.Open DSN strSQL = "Select * from figurer Where Id = " & Request.Querystring("id") Set rs = Conn.Execute(strSQL) Response.Write " " Response.Write "Navn:
Beskrivelse:
" & rs("beskrivelse") & "
IRL Navn:
Lejligheds-nummer:
Figur (f.eks. viceveart.gif):
Baggrund (f.eks. ../baggrunde/penthouse.gif):
" %>

| opdater |

<% Conn.Close Set Conn = Nothing Case "opdater" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/figurer.mdb") Conn.Open DSN If len(Request.Form("beskrivelse")) > 2500 Then Response.Write "OBS: Din beskrivelse må højest fylde 2500 tegn." ElseIf Request.Form("navn") = "" Then Response.Write "OBS: Du mangler at skrive navnet på tingen." Else strSQL = "Update figurer set " strSQL = strSQL & "navn = '" & Server.HTMLEncode(Request("navn")) & "', " strSQL = strSQL & "beskrivelse = '" & Request.Form("beskrivelse") & "', " strSQL = strSQL & "irl = '" & Server.HTMLEncode(Request("irl")) & "', " strSQL = strSQL & "lejlighed = '" & Server.HTMLEncode(Request("lejlighed")) & "', " strSQL = strSQL & "figur = '" & Server.HTMLEncode(Request("figur")) & "', " strSQL = strSQL & "baggrund = '" & Server.HTMLEncode(Request("baggrund")) & "', " strSQL = strSQL & "dato = '" & strLigeNu & "'" strSQL = strSQL & " Where Id = " & Request.Querystring("id") & "" Conn.Execute(strSQL) Conn.Close Set Conn = Nothing Response.Redirect "figurer.asp?side=adminlist&hrt=ja" end if %> <% Case "info" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/figurer.mdb") Conn.Open DSN strSQL = "Select * from figurer Where Id = " & Request.Querystring("id") Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then baggrunde = rs("baggrund") Response.Write "" & rs("navn") & "
" & rs("beskrivelse") & "
IRL navn: " & rs("irl") & "
Lejlighed: " & rs("lejlighed") & "
Figur:
" if baggrunde = "" then else Response.Write "Baggrund:
" end if else Response.Write "OBS: Figuren findes ikke." end if Conn.Close Set Conn = Nothing %> <% Case "sog" %> Søg efter
som
:

| søg |

<% Case "figurres" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/figurer.mdb") Conn.Open DSN If Request.Form("navn") = "" Then Response.Redirect "figurer.asp?side=sog" Else Response.write "Fandt du hvad du ledte efter? ny søgning
" if request.form("select") = "ligmed" then strSQL = "Select * From figurer Where " & Server.HTMLEncode(request.form("slags")) & " = '" & request.form("navn") & "'" elseif request.form("select") = "startermed" then strSQL = "SELECT * FROM figurer WHERE (" & Server.HTMLEncode(request.form("slags")) & " LIKE '" & request.form("navn") & "%')" elseif request.form("select") = "indeholder" then strSQL = "Select * From figurer where (" & Server.HTMLEncode(request.form("slags")) & " like '%" & request.form("navn") & "%')" end if Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Response.Write "

| Søgeresultat:

" Do grafik = rs("figur") Response.Write "
| " & rs("navn") & " " & left(Server.HTMLEncode(rs("beskrivelse")),50) & ".. se info
" rs.MoveNext Loop While Not rs.EOF Response.write "

Fandt du hvad du ledte efter? ny søgning
" Else Response.Write "OBS: Intet søgeresultat." End if end if %> <% Case "adminlist" If session ("login") <> "adminlogin" then Response.Redirect "../nyhed/nyheder.asp?side=adminlogin" End If Response.Write "Slet eller rediger figur-informationer:
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/figurer.mdb") Conn.Open DSN strSQL = "Select * from figurer" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do id = rs("id") Response.Write "

|  | " & rs("navn") & " " & left(rs("beskrivelse"),100) & "...

" Response.Write "

| slet |  |  |  | rediger |

" rs.MoveNext Loop until rs.EOF else Response.Write "OBS: Der findes ingen figurer." end if Conn.Close Set Conn = Nothing %> <% Case "blanede" strDu = Request.QueryString("du") Select Case strDu Case "geaster" Response.Write "Gæster
Gæsterne er ikke brugere, der skal ikke bruges koder for at logge på med dem. Hver gang der logges på med en gæst, får Gæsten et nummer, fks. Gæst 465.
Gæsternes look har ændret sig meget igennem tiderne." Case "avisbude" Response.write "Avisbude
Alle brugere med avislook ejer en sidde der omhandler NetStationen. For at tilmelde ens avis, skal der svares på nogle spørgsmål i rum 25, og avisen skal godkendes af NetStationen.
Net Expresen var den første pige med et pige-avislook nogensinde." Case "celeb" Response.Write "Celeb figurer
Alle kendte personer, der har været inde og chatte i HøjHuset, har haft deres ejet look. Her er nogle af dem.
eyeQ
Outlandish
Nik og Jay
C21
DJ Aligator
Razz kickflipper
TriGirlz
Malk De Koijn
Misteeq
eyeQ
Britta Spids (Sofie Lasse Kahlken)
Mark Barry
Burns og Mc Nally
" Response.Write "
Bikini Kamilla og Bikini Christine
Carsten L
En celeb-chat er når en kendte, så som kendte, personer kommer ind og snakker med HøjHuset's befolkning i et bestemt rum på et bestemt tidspunkt! Personerne der chatter kan være sangere, sportsudøvere m.m.. De kendte chattende vil besøge NetStationen's hus i København, hvor de derfra vil komme online i ledelse af forskellige superbrugere. Hvis en ny Celeb-chat vil finde sted vil det stå som nyhed på NetStationen's forside." Case "supporter" Response.Write "Supporter
Supporterne blev ansat til at vejlede nybegyndere og være mellemmand. Deres supporter funktion blev slettet, da HøjHuset fik Byttemaskinen.
De sidste 6 Supportere var: Kozz, Villevarn, The WedgeMaster, Aphasia, Hayes og Talker. De har muligvis alle sammen beholdt Supporter Baggrunden." Case "toj" Response.Write "Tøj
I lang tid har man kunne tage forskelligt tøj på i forskellige rum, vi har her samlet noget af tøjet.
Partyzone tøjet. Kunne fås i det gamle Partyzone rum.
Agent tøj. Kunne fås da man i 2001 skulle rede noget af crewet og blive Spy-Kid.
Fructis Style tøj. Kunne fås i Frutis Style rummet.
TankStation's tøj. Kunne fås i TankStaionen, rum 29.
Smid tøj. Kunne fås i tøjbutikken, rum 37.
DJ tøj. Kunne fås i Speedy Tomato rummet.
IT Messe tøj. Kunne fås til IT Messen i Ålborg 2001, rum 18.
Det gamle libresse tøj. Kunne fås i det gamle Libresse rum." Response.Write "
Det nye Libresse tøj. Kunne fås i Libresse rummet.
Monster tøj. Kunne fås i Reaktoren. (Piger og drenge monstre har samme look)
M&Ms tøj. Kunne fås i M&M's rummet.
Kung FU Tøj. Kunne fås i Kung FU rummet rummet, rum 62.
Champagne brus tøj. Kunne fås i Champagne brus rummet, rum 61.
Københavner stang tøj. Kunne fås i Københavner stang rummet, rum 63.
Filur tøj. Kunne fås i Filur rummet, rum 65.
Kæmpe Eskimo tøj. Kunne fås i Eskimo rummet, rum 64.
Eniro tøjet. Kunne fås i Eniro rummet, rum 50.
IT Messe tøj. Kunne fås til IT Messen i Ålborg 2002, rum 18.
" Response.Write "Stimorol tøj. Kunne / kan fås i Stimorol indgang, rum 49." Case Else Response.Write "Gæster
" Response.Write "Avisbude
" Response.Write "Celeb figurer
" Response.Write "Supporter
" Response.Write "Tøj
" End Select %> <% Case Else strTal = 0 Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/figurer.mdb") Conn.Open DSN strSQL = "Select * from figurer Order by id" Set rs = Conn.Execute(strSQL) if not (rs.EOF or rs.BOF) then Do strTal = strTal + 1 Response.Write "" & rs("navn") & "
" rs.MoveNext Loop until rs.EOF else Response.Write "OBS: Der findes ingen figurer." end if Conn.Close Set Conn = Nothing response.write "

| Facts: I alt er der " & strTal & " figurer, hvor de her på listen er sorteret efter dato.

" End Select %>