<HTML>
<TITLE>
www.HighRiseTimes.dk</TITLE><LINK HREF=../hrt.css REL=STYLESHEET>
<BODY LEFTMARGIN=0 TOPMARGIN=0>
<!--#include file="../whobanned.asp"-->
<%
strFarve = "FFFFFF"
%>
<!--#include file="../js.asp"-->
<TABLE WIDTH=451 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD>
<IMG SRC="../images/indhold_01.gif" WIDTH=34 HEIGHT=32></TD>
<TD WIDTH=328 HEIGHT=32 valign=middle><b>forum:</b>
</TD>
<TD>
<a href=java script:history.back(-1)><IMG SRC="../images/indhold_03.gif" WIDTH=89 HEIGHT=32 BORDER=0></a></TD>
</TR>
<TR>
<TD COLSPAN=3>
<IMG SRC="../images/indhold_04.gif" WIDTH=451 HEIGHT=8></TD>
</TR>
<TR>
<TD COLSPAN=3 WIDTH=451 BACKGROUND=../images/indhold_05.gif>
<table border=0><tr>
<td>
Velkommen til Factz forum. Forummet er først og fremest kommet for i kan komme i kontakt med hinanden! Eller bare hyg jer med det! </td><td><img src=file:///C|/Documents%20and%20Settings/Christian/Skrivebord/Arto/hrt/hrt/HRT/www/images/allenyheder.gif width="38" height="36"></td>
</tr></table>
<%
if len(request.QueryString("br")) = 0 then
response.write "<IMG SRC=../images/indhold_04.gif WIDTH=451 HEIGHT=8><br><table border=0 width=451><td width=25% align=center><a onMouseMove=""bubble(' tilføj ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=forum.asp?side=skriv><img src=../images/tilfoj.gif border=0></a></td><td width=25% align=center><a onMouseMove=""bubble(' start ');"" onMouseOver=""document.all['bubble'].style.visibility='visible';"" onMouseOut=""document.all['bubble'].style.visibility='hidden';"" href=http://factz.dk/systemer/www/forum/forum.asp?side=showall><img src=../images/forside.gif border=0></a></td></table><IMG SRC=../images/indhold_04.gif WIDTH=451 HEIGHT=8><br><br>"
else
response.write "<IMG SRC=../images/indhold_04.gif WIDTH=451 HEIGHT=8><br><table border=0 width=451><td width=""25%"" align=center><a href=forum.asp?side=admintilfoj&br=" & Request.QueryString("br") & ">tilføj admin-indlæg</a></td><td width=""25%"" align=center><a href=forum.asp?side=ipsogning&br=" & request.QueryString("br") & ">ip søgning</a></td><td width=""25%"" align=center><a href=forum.asp?side=navnsog&br=" & Request.QueryString("br") & ">navne søgning</a></td><td width=""25%"" align=center><a href=forum.asp?side=adminlist&br=" & Request.QueryString("br") & ">start</a></td></table><IMG SRC=../images/indhold_04.gif WIDTH=451 HEIGHT=8><br><br>"
end if
%>
<table border=0><TR><TD>
<%
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 ("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 "<b>Den " & rs("dato") & " tilføjede " & rs("navn") & "</a>:<br></b>" & rs("besked") & "<b><font color=#333C52>" & rs("admin") & "</b></font><br><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "Der blev ikke fundet nogen indlæg!<br><br>"
End if
Conn.Close
Set Conn = Nothing
Case "navnsog"
%>
<form action="forum.asp?side=sog" method="post">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 height=20><tr valign=middle>
<td>Søg på et navn som
<select class="lillehvidt" name="select">
<option value="ligmed">præcis er</option>
<option value="startermed">starter med</option>
<option value="indeholder">indeholder</option></select> <input type="text" class="lillehvidt" name="navn" height=17></TD><TD> </TD><TD><TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD>
<IMG SRC="../images/submit_01.gif" WIDTH=10 HEIGHT=20></TD>
<TD BACKGROUND=../images/submit_02.gif>
søg</TD>
<TD>
<input type="image" name="submit" src="../images/submit_03.gif" WIDTH=25 HEIGHT=20 border=0></TD>
</TR>
</TABLE></TD></TR></TABLE>
</form>
<%
Case "sog"
Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)
If Request.Form("navn") = "" Then
Response.Write "Du mangler at skrive navnet, <a href='java script:history.back(1)'>tilbage</a><br><br>"
Else
Response.Write "Du søgte på " & Request.Form("navn") & ", som gav følgende resultat:<br><br>"
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 = "<a href=../system/index.asp?side=profil&id=" & strLink & ">" & strNavn & "</a>"
else
strLinket = strNavn
end if
Response.Write "<table border=0 cellpadding=0 cellspacing=0><tr><td><b>Den " & rs("dato") & " tilføjede " & strLinket & ":</b></td></tr><tr><td class=" & rs("class") & ">" & rs("besked") & "<b><font color=#333C52>" & rs("admin") & "</b></font></tr></td></table><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "<b>OBS: Intet søgeresultat.</b>"
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 <u>understreget</u>!<br><br><img src=../images/streg.gif><br><br>"
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") & "):<br>" & rs("besked") & "<u>" & rs("admin") & "</u><br><br><TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD><IMG SRC=../images/submit_01.gif WIDTH=10 HEIGHT=20></TD><TD BACKGROUND=../images/submit_02.gif>slet</TD><TD><a href=forum.asp?side=slet&id=" & id & "&br=" & Request.QueryString("br") & "><img src='../images/submit_03.gif' WIDTH=25 HEIGHT=20 border=0></a></TD></TR></TABLE><br><img src=../images/streg.gif><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "<b>OBS: Der blev ikke fundet nogen indlæg.</b>"
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 <u>understreget</u>!<br><br><img src=../images/streg.gif><br><br>Her vises de 50 seneste indlæg, klik <a href=forum.asp?side=showalllist&br=" & Request.QueryString("br") & ">her</a> for at vise alle indlæg.<br><br>"
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") & "):<br>" & rs("besked") & "<u>" & rs("admin") & "</u><br><br><TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD><IMG SRC=../images/submit_01.gif WIDTH=10 HEIGHT=20></TD><TD BACKGROUND=../images/submit_02.gif>slet</TD><TD><a href=forum.asp?side=slet&id=" & rs("id") & "&br=" & Request.QueryString("br") & "><img src='../images/submit_03.gif' WIDTH=25 HEIGHT=20 border=0></a></TD></TR></TABLE><br><img src=../images/streg.gif><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "<b>OBS: Der blev ikke fundet nogen indlæg.</b>"
End if
Conn.Close
Set Conn = Nothing
Case "ipsogning"
%>
<form action="forum.asp?side=sogip&br=<% Response.Write Request.QueryString("br") %>" method="post">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 height=20><tr valign=middle><td>
Ip adresse: <input type="text" class="hvidt" name="navn" height=17></TD><TD> </TD><TD><TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD>
<IMG SRC="../images/submit_01.gif" WIDTH=10 HEIGHT=20></TD>
<TD BACKGROUND=../images/submit_02.gif>
søg</TD>
<TD>
<input type="image" name="submit" src="../images/submit_03.gif" WIDTH=25 HEIGHT=20 border=0></TD>
</TR>
</TABLE></TD></TR></TABLE></form>
<%
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") & ".<br>Først vises resultatet fra forumet og derefter fra crewets enkelte gæstebøger.<br><br><br>"
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 = "<a href=../system/index.asp?side=profil&id=" & strLink & ">" & strNavn & "</a>"
else
strLinket = strNavn
end if
Response.Write "<table border=0 cellpadding=0 cellspacing=0><tr><td><b>Den " & rs("dato") & " tilføjede " & strLinket & ":</b></td></tr><tr><td class=" & rs("class") & ">" & rs("besked") & "<b><font color=#333C52>" & rs("admin") & "</b></font></tr></td></table><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "<b>OBS: Intet søgeresultat.</b>"
End if
Conn.Close
Set Conn = Nothing
Response.Write "<br><br><img src=../images/indhold_04.gif><br><br>"
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 "<b>Den " & rs("dato") & " tilføjede " & rs("navn") & "</a> :<br></b>" & rs("besked") & "</b></font><br><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "<b>OBS: Intet søgeresultat.</b>"
End if
Conn.Close
Set Conn = Nothing
End if
%>
<%
Case "soegip"
Response.Write "Du har søgt på ip adressen " & Request.Querystring("ip") & ".<br>Først vises resultatet fra forumet og derefter fra crewets enkelte gæstebøger.<br><br><br>"
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 "<b>Den " & rs("dato") & " tilføjede " & rs("navn") & "</a> :<br></b>" & rs("besked") & "<b><font color=#333C52>" & rs("admin") & "</b></font><br><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "<b>OBS: Intet søgeresultat.</b>"
End if
Conn.Close
Set Conn = Nothing
Response.Write "<br><br><img src=../images/indhold_04.gif><br><br>"
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 "<b>Den " & rs("dato") & " tilføjede " & rs("navn") & "</a> :<br></b>" & rs("besked") & "</b></font><br><br><br>"
rs.MoveNext
Loop While Not rs.EOF
Else
Response.Write "<b>OBS: Intet søgeresultat.</b>"
End if
Conn.Close
Set Conn = Nothing
%>
<%
Case "skriv"
%>
<form action="forum.asp?side=opret" method="post">
Navn: <br><input type="text" name="navn" class="hvidt" maxlength="30" value="<%=session("skriv")%>">
<br>
Besked:<br><textarea rows="4" name="besked" class="hvidt" onKeyDown="form.url.value = 300 - form.besked.value.length"></textarea><br>
<br>
Du har <input name=url value=300 class=url> tegn tilgode..<br><br>
<TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD>
<IMG SRC="../images/submit_01.gif" WIDTH=10 HEIGHT=20></TD>
<TD BACKGROUND=../images/submit_02.gif>
tilføj</TD>
<TD>
<input type="image" name="submit" src="../images/submit_03.gif" WIDTH=25 HEIGHT=20 border=0></TD>
</TR>
</TABLE>
</form>
<%
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 = "<i>"
strSlutT = "</i>"
elseif strTypografi = "b" then
strT = "<b>"
strSlutT = "</b>"
end if
if len(strGennemstreget) = 0 then
strGennemS = ""
strSlutGennemS = ""
else
strGennemS = "<strike>"
strSlutGennemS = "</strike>"
end if
if len(strUnderstreget) = 0 then
strUnderS = ""
strSlutUnderS = ""
else
strUnderS = "<u>"
strSlutUnderS = "</u>"
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 "<b>OBS: Din besked må højest fylde 300 tegn.</b>"
ElseIf Request.Form("besked") = "" Then
Response.Write "<b>OBS: Du mangler at skrive beskeden.</b>"
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 & "'<font face=" & strSkrifttype & " color=" & strFarve & ">" & strT & strUnderS & strGennemS & Server.HTMLEncode(strSI) & strSlutGennemS & strSlutUnderS & strSlutT & "</font>', "
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?side=showall"
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 "<b>OBS: Din besked må højest fylde 300 tegn.</b>"
ElseIf Request.Form("navn") = "" Then
Response.Write "<b>OBS: Du mangler at skrive dit navn.</b>"
ElseIf Request.Form("besked") = "" Then
Response.Write "<b>OBS: Du mangler at skrive beskeden.</b>"
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?side=showall"
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..<br>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
%>
<form action="forum.asp?side=adminopret&navn=<% Response.Write hhnavn %>&br=<% Response.Write Request.QueryString("br") %>" method="post">
Besked:<br>
<textarea rows="4" cols="19" name="admin" class="hvidt"></textarea><br><br>
<TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD>
<IMG SRC="../images/submit_01.gif" WIDTH=10 HEIGHT=20></TD>
<TD BACKGROUND=../images/submit_02.gif>
tilføj</TD>
<TD>
<input type="image" name="submit" src="../images/submit_03.gif" WIDTH=25 HEIGHT=20 border=0></TD>
</TR>
</TABLE>
</form>
<%
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 "<br>Din besked må højest fylde 1000 tegn, <a href='java script:history.back(1)'>tilbage</a><br><br>"
ElseIf Request.Form("admin") = "" Then
Response.Write "<br>Du mangler at skrive beskeden, <br><a href='java script:history.back(1)'>tilbage</a><br><br>"
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 = "<A HREF=../system/index.asp?side=profil&id=" & strLink & ">" & strNavn & "</A>"
Else
strLinket = strNavn
End if
Response.Write "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD><B>Den " & rs("dato") & " tilføjede " & strLinket & ":</B></TD></TR><TR><TD CLASS=" & rs("class") & ">" & rs("besked") & "<B><FONT COLOR=#333C52>" & rs("admin") & "</B></FONT></TR></TD></TABLE><BR><BR>"
End If
nRowCount = nRowCount - 1
RS.MoveNext
Wend
Response.Write "<IMG SRC=../images/indhold_04.gif><BR><BR><CENTER>"
If Int(nPageTo) = 1 Then
Response.Write " <SPAN CLASS=dis>Forrige</SPAN> "
Else
Response.Write " <A HREF=forum.asp?PageTo=" & nPageTo-1 & ">Forrige</A> "
End If
If int(nPageTo) = int(RS.PageCount) Then
Response.Write " <SPAN CLASS=dis>Næste</SPAN> "
Else
Response.Write " <A HREF=forum.asp?PageTo=" & nPageTo+1 & ">Næste</A> "
End If
Response.Write "<BR><BR><b>Side <FONT COLOR=RED>" & nPageTo & "</FONT>/<FONT COLOR=RED>" & RS.PageCount & "</FONT></B></CENTER>"
End If
Response.Write "<table cellpadding=0 border=0 cellspacing=0><tr><td WIDTH=34><img src=../images/indhold_01.gif></td><td valign=middle width=417><b>facts:</b></td></tr><tr><td colspan=2><img src=../images/indhold_04.gif></td></tr></table><table border=0><tr><td>I øjeblikket er der ialt <B>" & strAntal & "</B> indlæg i forumet...<br>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..<br>Har du ikke allerede en bruger kan du oprette en gratis <a href=../system/bruger.asp?side=opret>her</a>!</td><td><img src=../images/hrt.gif></td></tr></table>"
End Select
%>
</TD></TR></TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN=3 class=end WIDTH=451 HEIGHT=43 ALIGN=CENTER><BR>
<!--#include file="../include.asp"--></TD>
</TR>
</TABLE>
</BODY>
</HTML>
der er koden
den ligger både i asd/forum/forum.mdb
og i root databaser/forum.mdb
Ny bruger
Nybegynder
Opret
Preview
