www.HighRiseTimes.dk

<% strFarve = "FFFFFF" %>

| forum: |

Meningen med vores forum skal være at spørgsmål eventuelt angående HøjHuset skal blive stillet og blive svaret på. Andre kommunikations-former på HighRiseTimes kan ske over vores community.. |

<% if len(request.QueryString("br")) = 0 then response.write "

" else response.write "

tilføj admin-indlæg | ip søgning | navne søgning | start

" 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 "showall" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN set rscount = conn.execute("select count(id) as tags from forum") tags = rscount("tags") set rscount = nothing strSQL = "Select * from forum Order by id desc" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do Response.Write "Den " & rs("dato") & " tilføjede " & rs("navn") & ":
" & rs("besked") & "" & rs("admin") & "
" rs.MoveNext Loop While Not rs.EOF Else Response.Write "Der blev ikke fundet nogen indlæg!
" End if Conn.Close Set Conn = Nothing Case "navnsog" %>

Søg på et navn som

| søg |

<% Case "sog" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN If Request.Form("navn") = "" Then Response.Write "Du mangler at skrive navnet, tilbage
" Else Response.Write "Du søgte på " & Request.Form("navn") & ", som gav følgende resultat:
" if request.form("select") = "ligmed" then strSQL = "Select * From forum Where navn = '" & Request.Form("navn") & "' Order by id desc" elseif request.form("select") = "startermed" then strSQL = "SELECT * FROM forum WHERE (navn LIKE '" & Request.Form("navn") & "%') Order by id desc" elseif request.form("select") = "indeholder" then strSQL = "Select * From forum where (navn like '%" & request.form("navn") & "%') Order by id desc" end if Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do strLink = rs("link") strNavn = rs("navn") if len(strLink) <> 0 then strLinket = "" & strNavn & "" else strLinket = strNavn end if Response.Write "

Den " & rs("dato") & " tilføjede " & strLinket & ":
" & rs("besked") & "" & rs("admin") & "

" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Intet søgeresultat." End if Conn.Close Set Conn = Nothing End if %> <% Case "showalllist" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/nyheder.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where id =" & Request.QueryString("br") Set rs = Conn.Execute(strSQL) id = rs("id") If session ("login") <> id then Response.Redirect "../nyhed/nyheder.asp?side=login" End If Conn.Close Set Conn = Nothing Response.Write "Alle indlæg kan slettes, men for en sikkerhedsskyld er alle admin-indlæg understreget!
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN strSQL = "Select * from forum Order by id desc" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do id = rs("id") Response.Write "Indlæg af " & rs("navn") & " (" & rs("ip") & "):
" & rs("besked") & "" & rs("admin") & "

| slet |

" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Der blev ikke fundet nogen indlæg." End if Conn.Close Set Conn = Nothing %> <% Case "adminlist" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where id =" & Request.QueryString("br") Set rs = Conn.Execute(strSQL) id = rs("id") If session ("login") <> id then Response.Redirect "../nyhed/nyheder.asp?side=login" End If Conn.Close Set Conn = Nothing Response.Write "Alle indlæg kan slettes, men for en sikkerhedsskyld er alle admin-indlæg understreget!
Her vises de 50 seneste indlæg, klik her for at vise alle indlæg.
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN strSQL = "Select top 50 * from forum Order by id desc" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do Response.Write "Indlæg af " & rs("navn") & " (" & rs("ip") & "):
" & rs("besked") & "" & rs("admin") & "

| slet |

" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Der blev ikke fundet nogen indlæg." End if Conn.Close Set Conn = Nothing Case "ipsogning" %> " method="post">

Ip adresse:

| søg |

<% Case "sogip" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where id =" & Request.QueryString("br") Set rs = Conn.Execute(strSQL) id = rs("id") If session ("login") <> id then Response.Redirect "../nyhed/nyheder.asp?side=login" End If Conn.Close Set Conn = Nothing If Request.Form("navn") = "" Then Response.Redirect("forum.asp?side=ipsogning&br=" & Request.QueryString("br") & "") Else Response.Write "Du har søgt på ip adressen " & Request.Form("navn") & ".
Først vises resultatet fra forumet og derefter fra crewets enkelte gæstebøger.
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN strSQL = "Select * From forum Where ip = '" & Request.Form("navn") & "' Order by id desc" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do strLink = rs("link") strNavn = rs("navn") if len(strLink) <> 0 then strLinket = "" & strNavn & "" else strLinket = strNavn end if Response.Write "

Den " & rs("dato") & " tilføjede " & strLinket & ":
" & rs("besked") & "" & rs("admin") & "

" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Intet søgeresultat." End if Conn.Close Set Conn = Nothing Response.Write "
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * From gb Where ip = '" & Request.Form("navn") & "' Order by id desc" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do Response.Write "Den " & rs("dato") & " tilføjede " & rs("navn") & " :
" & rs("besked") & "
" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Intet søgeresultat." End if Conn.Close Set Conn = Nothing End if %> <% Case "soegip" Response.Write "Du har søgt på ip adressen " & Request.Querystring("ip") & ".
Først vises resultatet fra forumet og derefter fra crewets enkelte gæstebøger.
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN strSQL = "Select * From forum Where ip = '" & Request.QueryString("ip") & "' Order by id desc" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do Response.Write "Den " & rs("dato") & " tilføjede " & rs("navn") & " :
" & rs("besked") & "" & rs("admin") & "
" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Intet søgeresultat." End if Conn.Close Set Conn = Nothing Response.Write "
" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * From gb Where ip = '" & Request.QueryString("ip") & "' Order by id desc" Set rs = Conn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then Do Response.Write "Den " & rs("dato") & " tilføjede " & rs("navn") & " :
" & rs("besked") & "
" rs.MoveNext Loop While Not rs.EOF Else Response.Write "OBS: Intet søgeresultat." End if Conn.Close Set Conn = Nothing %> <% Case "skriv" %> Navn:
"> > Jeg er logget på
Besked:
Du har tegn tilgode..

| tilføj |

<% Case "opret" if request.Form("log") = "ja" then if len(session("com")) = 0 then response.redirect "../unlogged.asp" end if Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/system.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where id = " & session("com") Set rs = Conn.Execute(strSQL) strSkriveNavn = rs("hhnavn") strSkriveID = rs("id") strSkrifttype = rs("skrifttype") strTypografi = rs("typografi") strStorrelse = rs("storrelse") strGennemstreget = rs("gennemstreget") strUnderstreget = rs("understreget") strFarve = rs("farve") if strTypografi = "n" then strT = "" strSlutT = "" elseif strTypografi = "i" then strT = "" strSlutT = "" elseif strTypografi = "b" then strT = "" strSlutT = "" end if if len(strGennemstreget) = 0 then strGennemS = "" strSlutGennemS = "" else strGennemS = "" strSlutGennemS = "" end if if len(strUnderstreget) = 0 then strUnderS = "" strSlutUnderS = "" else strUnderS = "" strSlutUnderS = "" end if Conn.Close Set Conn = Nothing Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN If len(Request.Form("besked")) > 300 Then Response.Write "OBS: Din besked må højest fylde 300 tegn." ElseIf Request.Form("besked") = "" Then Response.Write "OBS: Du mangler at skrive beskeden." Else If len(Request.Form("besked")) > 33 AND InStr(1, Request.Form("besked"), " ", 1) = 0 then strSI = left(Request.Form("besked"),33) Else strSI = Request.Form("besked") End if strSI = Request.Form("besked") strSI = Replace(strSI, "'", "''") strSQL = "Insert into forum (" strSQL = strSQL & "navn, " strSQL = strSQL & "besked, " strSQL = strSQL & "dato, " strSQL = strSQL & "ip, " strSQL = strSQL & "class, " strSQL = strSQL & "link) " strSQL = strSQL & "values( " strSQL = strSQL & "'" & strSkriveNavn & "', " strSQL = strSQL & "'" & strT & strUnderS & strGennemS & Server.HTMLEncode(strSI) & strSlutGennemS & strSlutUnderS & strSlutT & "', " strSQL = strSQL & "'" & strLigeNu & "', " strSQL = strSQL & "'" & Request.ServerVariables("Remote_Host") & "', " strSQL = strSQL & "'" & strStorrelse & "', " strSQL = strSQL & "'" & strSkriveID & "')" Session("log") = "checked" Session.Timeout = 50 Session("skriv") = "" Session.Timeout = 50 Conn.Execute(strSQL) Response.Redirect "forum.asp" End If Else Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN If len(Request.Form("besked")) > 300 Then Response.Write "OBS: Din besked må højest fylde 300 tegn." ElseIf Request.Form("navn") = "" Then Response.Write "OBS: Du mangler at skrive dit navn." ElseIf Request.Form("besked") = "" Then Response.Write "OBS: Du mangler at skrive beskeden." Else If len(Request.Form("besked")) > 33 AND InStr(1, Request.Form("besked"), " ", 1) = 0 then strSI = left(Request.Form("besked"),33) Else strSI = Request.Form("besked") End If strSI = Request.Form("besked") strSI = Replace(strSI, "'", "''") strNavn = Request.Form("navn") strNavn = Replace(strNavn, "'", "''") strSQL = "Insert into forum (" strSQL = strSQL & "navn, " strSQL = strSQL & "besked, " strSQL = strSQL & "dato, " strSQL = strSQL & "ip) " strSQL = strSQL & "values( " strSQL = strSQL & "'" & Server.HTMLEncode(strNavn) & "', " strSQL = strSQL & "'" & Server.HTMLEncode(strSI) & "', " strSQL = strSQL & "'" & strLigeNu & "', " strSQL = strSQL & "'" & Request.ServerVariables("Remote_Host") & "')" Session("skriv") = Request.Form("navn") Session.Timeout = 50 Session("log") = "" Session.Timeout = 50 Conn.Execute(strSQL) Response.Redirect "forum.asp" End If End If Conn.Close Set Conn = Nothing %> <% Case "adgangforbudt" Response.Write "Enten er dette en fejl, eller også har du bare prøvet at sende ualmindeligt mange indlæg ind til forumet i træk..
Prøv igen senere.." %> <% Case "admintilfoj" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where id =" & Request.QueryString("br") Set rs = Conn.Execute(strSQL) id = rs("id") If session ("login") <> id then Response.Redirect "../nyhed/nyheder.asp?side=login" End If hhnavn = rs("hhnavn") Conn.Close Set Conn = Nothing %> " method="post"> Besked:

| tilføj |

<% Case "adminopret" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where id =" & Request.QueryString("br") Set rs = Conn.Execute(strSQL) id = rs("id") If session ("login") <> id then Response.Redirect "../nyhed/nyheder.asp?side=login" End If Conn.Close Set Conn = Nothing Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN If len(Request.Form("admin")) > 1000 Then Response.Write "
Din besked må højest fylde 1000 tegn, tilbage
" ElseIf Request.Form("admin") = "" Then Response.Write "
Du mangler at skrive beskeden,
tilbage
" Else strAdmin = Request.Form("admin") strAdmin = Replace(strAdmin, "'", "''") strSQL = "Insert into forum (" strSQL = strSQL & "navn, " strSQL = strSQL & "admin, " strSQL = strSQL & "dato, " strSQL = strSQL & "ip) " strSQL = strSQL & "values( " strSQL = strSQL & "'" & Request.QueryString("navn") & "', " strSQL = strSQL & "'" & Server.HTMLEncode(strAdmin) & "', " strSQL = strSQL & "'" & strLigeNu & "', " strSQL = strSQL & "'" & Request.ServerVariables("Remote_Host") & "')" Conn.Execute(strSQL) Response.Redirect "forum.asp?side=adminlist&br=" & Request.QueryString("br") End If Conn.Close Set Conn = Nothing %> <% Case "slet" Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("../../database/crew.mdb") Conn.Open DSN strSQL = "Select * from nyheder Where id =" & Request.QueryString("br") Set rs = Conn.Execute(strSQL) id = rs("id") If session ("login") <> id then Response.Redirect "../nyhed/nyheder.asp?side=login" End If Conn.Close Set Conn = Nothing Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN strSQL = "Delete * From forum Where Id = " & Request.Querystring("id") Conn.Execute(strSQL) Conn.Close Set Conn = Nothing Response.Redirect "forum.asp?side=adminlist&br=" & Request.QueryString("br") Case Else Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath ("../../database/forum.mdb") Conn.Open DSN Set rscount = Conn.Execute("select count(id) as antal from forum'") strAntal = rscount("antal") Set rscount = Nothing PageSize = 75 Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../database/forum.mdb") If Request.QueryString("PageTo") <> "" Then strPageTo = Request.QueryString("PageTo") If strPageTo <> "" Then nPageTo = int(strPageTo) If nPageTo < 1 Then nPageTo = 1 End If Else nPageTo = 1 End If Set RS = Session("ListingRS") RS.AbsolutePage = nPageTo Else Set Conn=Server.CreateObject("ADODB.Connection") Conn.ConnectionTimeout=15 Conn.CommandTimeout=30 Conn.Open Conn_String Set Cmd=Server.CreateObject("ADODB.Command") Set RS=Server.CreateObject("ADODB.Recordset") Cmd.CommandType = 1 Set Cmd.ActiveConnection = Conn Cmd.CommandText="SELECT * From forum Order by id desc;" RS.Open Cmd, , 1, 1 RS.PageSize = PageSize Set Session("ListingRS") = RS nPageTo = 1 If not (RS.BOF and RS.EOF) Then Set RS = Session("ListingRS") RS.AbsolutePage = nPageTo End If End If If RS.EOF Then Else nRowCount = RS.PageSize While Not RS.EOF AND nRowCount > 0 Count = 0 For i = 1 To Count Next dagar=DateDiff("d", Dato, RS("Dato"))+2 If dagar >= 0 Then strLink = rs("link") strNavn = rs("navn") If Len(strLink) <> 0 Then strLinket = "" & strNavn & "" Else strLinket = strNavn End if Response.Write "

Den " & rs("dato") & " tilføjede " & strLinket & ":
" & rs("besked") & "" & rs("admin") & "

" End If nRowCount = nRowCount - 1 RS.MoveNext Wend Response.Write "
" If Int(nPageTo) = 1 Then Response.Write " Forrige " Else Response.Write " Forrige " End If If int(nPageTo) = int(RS.PageCount) Then Response.Write " Næste " Else Response.Write " Næste " End If Response.Write "
Side " & nPageTo & "/" & RS.PageCount & "
" End If Response.Write "

| facts:

I øjeblikket er der ialt " & strAntal & " indlæg i forumet...
Skulle du være interesseret i noget lidt større community end vores forum kan du prøve vores community, hvor det er muligt at ændre profil, skrive i andre brugeres gæstebøger og indsende indlæg til brugernes-hjørne..
Har du ikke allerede en bruger kan du oprette en gratis her!

" End Select %>