<% intBruger = Request("bruger") intDebug = Request("debug") intHTML = Request("HTML") intAmbient = Request("ambient") intHEX = Request ("HEX") ' Databaseforbindelse - husk at angive sti til din database Set myConn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;" myConn.Open DSN thisday = Right(Cstr(day(date)+100),2) & "-" & Right(Cstr(month(date)+100),2) & "-" & year(date) strSQL1 = "SELECT ReplyId, id FROM Entries WHERE (spam = 0) ORDER BY ID DESC Limit 1" Set rs1 = myConn.Execute(strSQL1) If (rs1(ReplyId) = 0) Then intReplyId = rs1(id) strSQL2 = "SELECT DATE_FORMAT(date,'%m/%d/%Y %l:%i:%S %p') AS TimeColour, sidensidst, replies FROM Entries WHERE (Id =" & intReplyId & ") ORDER BY ID DESC Limit 1" Else intReplyId = rs1(ReplyId) strSQL2 = "SELECT DATE_FORMAT(Lastreply,'%m/%d/%Y %l:%i:%S %p') AS TimeColour, sidensidst, replies FROM Entries WHERE (Id =" & intReplyId & ") ORDER BY ID DESC Limit 1" End if 'strSQL2 = "SELECT DATE_FORMAT(Lastreply,'%m/%d/%Y %l:%i:%S %p') AS TimeColour, sidensidst, replies FROM Entries WHERE (Id =" & intReplyId & ") ORDER BY ID DESC Limit 1" Set rs2 = myConn.Execute(strSQL2) If intDebug = 1 Then response.write(rs2(TimeColour)) End if ' Hvor lang tid siden er det det seneste indlæg er ankommet? If intHTML = 1 Then ' Ny version af highlighten, nu med en simpel hex konversion af tiden compareHex = DateDiff("n", rs2("TimeColour"), now) ' strComp(thisday,formatDate("FormDate")) If compareHex < (2880) Then strHex = (hex(round((sqr(((compareHex/11.3)-255)^2)),0))) Else strHex = "00" End if End if If intDebug = 1 Then response.write("

") response.write(strHighlight) response.write("

") response.write(compareHex) response.write("

") response.write((round((sqr(((compareHex/11.3)-255)^2)),0))) response.write("

") response.write(strHex) End if ' Har brugeren læst det seneste indlæg? strSidenSidst = rs2("sidensidst") intReplies = rs2("replies") If (intBruger > 0) Then If Len(strSidenSidst) = 0 Then ' (bug fix, nick 15-02-1006) strJumpHighlight1 = "1" Else If rs2("sidensidst") = "" Then strJumpHighlight1 = "1" Else arrSidenSidst = Split(strSidenSidst,",") strJumpTo = arrSidenSidst(intBruger) If strJumpTo = (1 + intReplies) Then strJumpHighlight1 = "0" Else strJumpHighlight1 = "1" End if End if End if Else strJumpHighlight1 = "0" End if If intDebug = 1 Then response.write("

") response.write(strJumpHighlight1) End if ' Vi tjekker om brugeren har ulæste pm'er strSQLpm = "SELECT Count(*) AS PMScount FROM pm WHERE (bruger_modt = " & intBruger & ") AND (laest = '0')" Set recordCount = myConn.Execute(strSQLpm) If recordCount("PMScount") = 1 Then intPMS = 1 Elseif recordCount("PMScount") > 1 Then intPMS = 1 Else intPMS = 0 End if myConn.Close Set myConn = Nothing ' Vi sætter farven efter de oplysninger vi har hentet fra serveren. ' Ulæst indlæg = blå; ellers en shade af rød der viser hvor lang tid siden det sidste indlæg er kommet If intHEX = 1 Then If strJumpHighlight1 = 0 Then strColour = "#" & strHex & "0000" Else strColour = "#0000FF" End if response.write(strColour) End if If intAmbient = 1 Then If strJumpHighlight1 = 0 Then If intPMS = 0 Then strColour = response.write("0") ' Hvis der hverken er ulæste beskeder eller pm's viser vi intet Else strColour = response.write("2") ' Hvis der kun er ulæste pm's viser vi det End if Else If intPMS = 0 Then strColour = response.write("1") ' Hvis der kun er ulæste beskeder i forummet viser vi det Else strColour = response.write("3") ' Hvis der både er ulæste pm's og beskeder viser vi det End if End if End if If intHTML = 1 Then response.write("") End if %>