farve på tooltips

http://rod.rant-on.net/dhtml/tooltip.html

http://www.bosrup.com/web/overlib/

..forkert kategori..

mm12010s svar er korrekt (hvis du spørger mig), da man kan ændre tooltip-boksen..
Ellers er det jo en Windows standard.., og kan vist ikke laves om.. jeg går ud fra, at du mener på din hjemmeside, og ikke i Windows..

Når du har accepteret en løsning, opret venligst et spørgsmål i (D)HTML kategorien ( http://www.eksperten.dk/spm/Programmering/DHTML/ ), med samme titel og antal points.. indholdet kan være:

Ref: http://www.eksperten.dk/spm/491187

Derefter lægger du et svar og accepterer det..


- Hvis du undrer dig over det, er det fordi det er et (D)HTML spm, og ikke et ASP spm.. spm skal besvares i de rette kategorier, da det er der man forventer at svarene ligger..
Eksempel: Hvis du leder efter noget kode i sproget Delphi, vil du naturligvis kigge i kategorien "Delphi".

Hej Thesurfer

Tak for rettelsen, jeg vidste egentlig ikke hvilket sprog der skulle bruges, men jeg arbejder i asp og skal bruge det i forbindelse med mit snitz forum som også er bygget i asp..

men jeg skal da nok lægge spørgsmålet ind under Dhtml..

men men men .. løsningerne virker desværre ikke baggrundsfarven er stadig gul.

Kigger lige videre på nettet (godkender naturligvis med en løsning hvis jeg finder en

Hilsen

Duno

Hvis du bruger overLIB ( http://www.bosrup.com/web/overlib/ ) kan du selv definere farver, og layout..

overLIB erstatter standard tooltip'en, men en popup-agtigt tooltip, der kommer ved siden af cursoren (pilen)..

Når jeg skrvier "popup", mener jeg *ikke* et nyt vindue..


Jeg kan ikke forstå, hvad du mener med "baggrundsfarven er stadig gul".. Hvis du holder musen over linksne på http://www.bosrup.com/web/overlib/, vil du se at den er lilla/purple..

Se dokumentationen (hvordan man bruger scriptet) til overLIB: http://www.bosrup.com/web/overlib/?Documentation

Vend tilbage med noget feedback..

Hvis du sender mig en mail på bhn22@hotmail.com kan jeg sende dig linket til siden samt de relevante filer...

hvis du altså vil se det??

Desværre.. informationen skal være tilgængeligt for alle Ekspertens brugere..

Du kan dog oprette en gratis konto, og dermed give alle adgang til filerne.. prøv en af dem her:

www.frip.dk
www.frac.dk
www.whitehat.dk

desværre vil jeg ikke offentliggøre min database/forum/hjemmeside adresse herinde
grunden til dette skyldes ubehaglige besøg efter offentliggørelse af mit site i et tidligere indlæg.

Jeg må altså tage kampen selv!!

Ellers tak for tilbudet men mit site + database (intet af det kan "arbejde" alene) fylder knap 200 mb.. det får man ikke gratis ""GG""

Jeg har dog intet imod at udføre selve dialogen via eksperten, samt referere til fejlmeddelelser osv.. bare ikke vise mit site.

hilsen

Duno

Så vil jeg anbefale at vise hvordan du "kalder" på overLIB scriptet.. Giv et eksempel.

Jo men det kan jeg da godt..

her er en kort version af min side ""GG""

Head:
..
Response.Write    "<script type=""text/javascript"" src=""overlib.js""></script>" & vbNewline

Body
..
"<div id=""overDiv"" style=""position:absolute; visibility:hidden; z-index:1000;""></div>" & vbNewLine & _

Du mangler jo JavaScript koden, der skal få den frem! :-)

Fra dokumentationen:

  <a href="java script:void(0);" onmouseover="return overlib('This is an ordinary
  popup.');" onmouseout="return nd();">here</a>


Den vigtige del er:
onmouseover="return overlib('This is an ordinary
  popup.');" onmouseout="return nd();"

Så må din kode se sådan ud:

response.write "<div id=""overDiv"" style=""position:absolute; visibility:hidden; z-index:1000;"" onmouseover=""return overlib('Dette er teksten der vises i tooltip.');"" onmouseout=""return nd();""></div>" & vbNewLine & _

jamen jamen.. jeg henter ikke en takts ind.. jeg henter en del af et indlæg ind i en tooltip kasse.. det var ikke for sjov at jeg ville vise dig det, det er bare svært at forklare når du ikke har set funktionen.. ""GG""

men jeg prøver..

når folk kigger på de indlæg der er lavet i mit forum.. altså når de kigger på oversigten og køre over overskriften for indlægger, kommer der den der gule kasse op og viser et lille udsnit at teksten som kan læses hvis man trykker på overskriften

altså er det ikke en defineret tekst som skal stå i tooltip.. men noget forskelligt afhængig af hvad indholdet i indlægget er...

håvber du forstår..

Hvis koden virker, skal du bare ersatte "dette er ..." med asp kode, der henter teksten fra databasen..

f.eks.:

tekst = rs("navnet_på_tekst_feltet_i_databasen") ' teksten der skal vises i tooltip, hentes fra feltet i databasen, og lægges over i variablen "tekst"
tekst = replace(tekst, """", "\""") ' erstat " med \", så det ikke kikser i JavaScript

response.write "<div id=""overDiv"" style=""position:absolute; visibility:hidden; z-index:1000;"" onmouseover=""return overlib('" & tekst & "');"" onmouseout=""return nd();""></div>" & vbNewLine & _

prøv at kig på den her side.. det er det jeg har indsat i mit forum..

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=37750

Hvad sker der, hvis du bruger:

ChkString(left(RemoveForumCode(RemoveHTML(Topic_Message)), 150), "tooltip")

i stedet for: tekst

?

så får jeg en fejl på siden.. på linie 203.. men men men .. heg har en included fil.. og linie 203 har intet med selve det vi laver at gøre.. den definere et billede.. (sitet har kørt før alt det her)

kan du ikke lige oprette et spm/indlæg/tingest på http://www.ez4arab.com/demo/forum.asp?FORUM_ID=1 så jeg kan se, hvordan det ser ud?

Hvis det var, at du skulle sende mig et demo-projekt, eller jeg skulle downloade den, hvor stort ville filen (pakkede fil) være? ikke de der 200 mb, vel? :-)

hmm... kommer lige i tanke om, at det sikkert er en MySQL database?

nej det er en access

og hele projektet som det var før jeg hentede det fylder 525 kb

og ligger her

http://prdownloads.sourceforge.net/sf2k/sf2k_v34_04.zip

det der skal tilføjes ligger her..

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=37750

tak for din stædighed!!!

:-)

..så er den der.. næsten :-)

Bingo! :-)

hmm.. hvordan laver man en nt topic..? :-)

fandt det :-)
Tester..

Rettelserne..

-- forum.asp skal se sådan ud (find og erstat):


<!--#INCLUDE FILE="config.asp"-->
<script type="text/javascript" src="overlib.js"><!-- overLIB (c) Erik Bosrup --></script>
<div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>


.....

        if Topic_Sticky and strStickyTopic = "1" then Response.Write("Sticky:  ")

        dim tekst
        tekst = left(RemoveForumCode(RemoveHTML(Topic_Message)), 150) ' hent 150 tegn

        ' rettelser så den ikke kikser i HTML/JavaScript outputtet:
        tekst = replace(tekst, "'", "\'") ' ret '
        tekst = replace(tekst, """", "\""") ' ret "
        tekst = replace(tekst, vbcrlf, "<br>") ' ret "ny linie"

        Response.Write    "<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """ onmouseover=""return overlib('" & tekst & "');"" onmouseout=""return nd();"">" & ChkString(Topic_Subject,"title") & "</a></span> </font>" & vbNewLine

        if strShowPaging = "1" then
            Call TopicPaging()
        end if

Smider lige et svar...

Jeg har flyttet "dim tekst" ud af for-next-løkken:

    rec = 1
    dim tekst
    for iTopic = 0 to iTopicCount
        if (rec = strPageSize + 1) then exit for

Og en lille rettelse/tilføjelse..
Som det er nu, klipper den bare tekst ned til 150 tegn. Det første indlæg (det der allerede er oprettet) slutter sådan her:

"Many thanks go out to John Penfold <"

Det ser jo ikke pænt ud, så jeg har lavet lidt kode, der får det til at se sådan ud:
"Many thanks go out to John Penfold [click here to see more]"

Her er tilføjelsen (find og erstat):
        tekst = left(RemoveForumCode(RemoveHTML(Topic_Message)), 150) ' hent 150 tegn
        tekst = left(tekst, instrrev(tekst, " ") - 1) & " [click to see more]" ' klip til positionen af det sidste mellemrum, minus 1, tilføj " [click to see more]"

Hej .. nu har jeg altså fået nok af den rettelse.. det virker sku ikke hos mig..

Så jeg har simpelthen givet op.. jeg vedlægger her et komplet kopi af min forum.asp.. hvis du vil rette den er du meget velkommen, og vil blive medtaget i min aftenbøn..

Vil du ikke rette den vil du stadig blive medtaget i min aftenbøn.. og naturligvis modtage dine points

altså helt op til dig..

jeg har valgt at den funktion kan jeg sku godt leve uden indtil jeg har fået meget mere tålmodighed ""GG""

koden er her:


<%
'#################################################################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'##                      Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<%
Dim ArchiveView
Dim HeldFound, UnApprovedFound, UnModeratedPosts, UnModeratedFPosts
Dim HasHigherSub
HasHigherSub = false
'#################################################################################

if (Request("FORUM_ID") = "" or IsNumeric(Request("FORUM_ID")) = False) and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") then
    Response.Redirect "default.asp"
else
    Forum_ID = cLng(Request("FORUM_ID"))
end if

'-------------------------------------------
' FORUM SORTING MOD VARIABLES
'-------------------------------------------

' Code Mod for mypage variable
dim mypage : mypage = request("whichpage")
if ((Trim(mypage) = "") or IsNumeric(mypage) = False) then mypage = 1
mypage = cLng(mypage)

' Topic Sorting Variables
dim strtopicsortord :strtopicsortord = request("sortorder")
dim strtopicsortfld :strtopicsortfld = request("sortfield")
dim strtopicsortday :strtopicsortday = request("days")
dim inttotaltopics : inttotaltopics = 0
dim strSortCol, strSortOrd

Select Case strtopicsortord
    Case "asc"
        strSortOrd = " ASC"
    Case Else
        strSortOrd = " DESC"
End Select

Select Case strtopicsortfld
    Case "topic"
        strSortCol = "T_SUBJECT" & strSortOrd
    Case "author"
        strSortCol = "M_NAME" & strSortOrd
    Case "replies"
        strSortCol = "T_REPLIES" & strSortOrd
    Case "views"
        strSortCol = "T_VIEW_COUNT" & strSortOrd
    Case "lastpost"
        strSortCol = "T_LAST_POST" & strSortOrd
    Case Else
        strtopicsortfld = "lastpost"
        strSortCol = "T_LAST_POST" & strSortOrd
End Select
strQStopicsort = "FORUM_ID=" & Forum_ID
'-------------------------------------------
if request("ARCHIVE") = "true" then
    strActivePrefix = strTablePrefix & "A_"
    ArchiveView = "true"
    ArchiveLink = "ARCHIVE=true&"
else
    strActivePrefix = strTablePrefix
    ArchiveView = ""
    ArchiveLink = ""
end if
%>
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_chknew.asp" -->
<!--#INCLUDE FILE="inc_subscription.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<!-- #include file="../conquerchat/inc.classes.asp" -->
<!-- #include file="../conquerchat/inc.utilities.asp" -->
<%

nDays = Request.Cookies(strCookieURL & "NumDays")

if Request.form("cookie") = 1 then
    if strSetCookieToForum = "1" then
        Response.Cookies(strCookieURL & "NumDays").Path = strCookieURL
    end if
    Response.Cookies(strCookieURL & "NumDays") = Request.Form("days")
    Response.Cookies(strCookieURL & "NumDays").expires = dateAdd("yyyy", 1, strForumTimeAdjust)
    nDays = Request.Form("Days")
    mypage = 1
end if

if request("ARCHIVE") = "true" then
    nDays = "0"
end if

Response.Write    "    <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
        "    function ChangePage(fnum){" & vbNewLine & _
        "        if (fnum == 1) {" & vbNewLine & _
        "            document.PageNum1.submit();" & vbNewLine & _
        "            }" & vbNewLine & _
        "        else {" & vbNewLine & _
        "            document.PageNum2.submit();" & vbNewLine & _
        "        }" & vbNewLine & _
        "    }" & vbNewLine & _
        "    </script>" & vbNewLine


if mLev = 4 then
    AdminAllowed = 1
    ForumChkSkipAllowed = 1
elseif mLev = 3 then
    if chkForumModerator(Forum_ID, chkString(strDBNTUserName,"decode")) = "1" then
        AdminAllowed = 1
        ForumChkSkipAllowed = 1
    else 
        if lcase(strNoCookies) = "1" then
            AdminAllowed = 1
            ForumChkSkipAllowed = 0
        else
            AdminAllowed = 0
            ForumChkSkipAllowed = 0
        end if
    end if
elseif lcase(strNoCookies) = "1" then
    AdminAllowed = 1
    ForumChkSkipAllowed = 0
else
    AdminAllowed = 0
    ForumChkSkipAllowed = 0
end if

if strPrivateForums = "1" and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") and ForumChkSkipAllowed = 0 then
    result = ChkForumAccess(Forum_ID, MemberID, true)
end if

if strModeration = "1" and AdminAllowed = 1 then
    UnModeratedPosts = CheckForUnModeratedPosts("FORUM", Cat_ID, Forum_ID, 0)
end if

' -- Get all the high level(board, category, forum) subscriptions being held by the user
Dim strSubString, strSubArray, strBoardSubs, strCatSubs, strForumSubs, strTopicSubs
if MySubCount > 0 then
    strSubString = PullSubscriptions(0, 0, 0)
    strSubArray  = Split(strSubString,";")
    if uBound(strSubArray) < 0 then
        strBoardSubs = ""
        strCatSubs = ""
        strForumSubs = ""
        strTopicSubs = ""
    else
        strBoardSubs = strSubArray(0)
        strCatSubs = strSubArray(1)
        strForumSubs = strSubArray(2)
        strTopicSubs = strSubArray(3)
    end if
end if

'## Forum_SQL - Find out the Category/Forum status and if it Exists
strSql = "SELECT C.CAT_STATUS, C.CAT_SUBSCRIPTION, " & _
    "C.CAT_MODERATION, C.CAT_NAME, C.CAT_ID, " & _
    "F.F_STATUS, F.F_SUBSCRIPTION, " & _
    "F.F_MODERATION, F_DEFAULTDAYS, F.F_SUBJECT " & _
    " FROM " & strTablePrefix & "CATEGORY C, " & _
    strTablePrefix & "FORUM F " & _
    " WHERE F.FORUM_ID = " & Forum_ID & _
    " AND C.CAT_ID = F.CAT_ID " & _
    " AND F.F_TYPE = 0"

set rsCFStatus = my_Conn.Execute (StrSql)

if rsCFStatus.EOF or rsCFStatus.BOF then
    rsCFStatus.close
    set rsCFStatus = nothing
    Response.Redirect("default.asp")
else
    Cat_ID = rsCFStatus("CAT_ID")
    Cat_Name = rsCFStatus("CAT_NAME")
    Cat_Status = rsCFStatus("CAT_STATUS")
    Cat_Subscription = rsCFStatus("CAT_SUBSCRIPTION")
    Cat_Moderation = rsCFStatus("CAT_MODERATION")
    Forum_Status = rsCFStatus("F_STATUS")
    Forum_Subject = rsCFStatus("F_SUBJECT")
    Forum_Subscription = rsCFStatus("F_SUBSCRIPTION")
    Forum_Moderation = rsCFStatus("F_MODERATION")
    if nDays = "" then
        nDays = rsCFStatus("F_DEFAULTDAYS")
    end if
    rsCFStatus.close
    set rsCFStatus = nothing
end if

if strModeration = 1 and Cat_Moderation = 1 and (Forum_Moderation = 1 or Forum_Moderation = 2) then
    Moderation = "Y"
end if
' DEM --> End of Code added for Moderation

if nDays = "" then
    nDays = 30
end if

defDate = DateToStr(dateadd("d",-(nDays),strForumTimeAdjust))

'## Forum_SQL - Get all topics from DB
strSql ="SELECT T.T_STATUS, T.CAT_ID, T.FORUM_ID, T.TOPIC_ID, T.T_VIEW_COUNT, T.T_SUBJECT, T.T_MESSAGE, "
strSql = strSql & "T.T_AUTHOR, T.T_STICKY, T.T_REPLIES, T.T_UREPLIES, T.T_LAST_POST, T.T_LAST_POST_AUTHOR, " 
strSql = strSql & "T.T_LAST_POST_REPLY_ID, M.M_NAME, MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME, T.T_ISEVENT "

strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS M, "
strSql2 = strSql2 & strActivePrefix & "TOPICS T, "
strSql2 = strSql2 & strMemberTablePrefix & "MEMBERS AS MEMBERS_1 "

strSql3 = " WHERE M.MEMBER_ID = T.T_AUTHOR "
strSql3 = strSql3 & " AND T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID "
strSql3 = strSql3 & " AND T.FORUM_ID = " & Forum_ID & " "
if nDays = "-1" then
    if strStickyTopic = "1" then
        strSql3 = strSql3 & " AND (T.T_STATUS <> 0 OR T.T_STICKY = 1)"
    else
        strSql3 = strSql3 & " AND T.T_STATUS <> 0 "
    end if
end if
if nDays > "0" then
    if strStickyTopic = "1" then
        strSql3 = strSql3 & " AND (T.T_LAST_POST > '" & defDate & "' OR T.T_STICKY = 1)"
    else
        strSql3 = strSql3 & " AND T.T_LAST_POST > '" & defDate & "'"
    end if
end if
' DEM --> if not a Moderator, all unapproved posts should not be viewed.
if AdminAllowed = 0 then
    strSql3 = strSql3 & " AND ((T.T_AUTHOR <> " & MemberID
    strSql3 = strSql3 & " AND T.T_STATUS < "  ' Ignore unapproved/rejected posts
    if Moderation = "Y" then
        strSql3 = strSql3 & "2"  ' Ignore unapproved posts
    else
        strSql3 = strSql3 & "3"  ' Ignore any hold posts
    end if
    strSql3 = strSql3 & ") OR T.T_AUTHOR = " & MemberID & ")"
end if

strSql4 = " ORDER BY"
if strStickyTopic = "1" then
    strSql4 = strSql4 & " T.T_STICKY DESC, "
end if
if strtopicsortfld = "author" then
    strSql4 = strSql4 & " M." & strSortCol & " "
else
    strSql4 = strSql4 & " T." & strSortCol & " "
end if

if strDBType = "mysql" then 'MySql specific code
    if mypage > 1 then
        intOffset = cLng((mypage-1) * strPageSize)
        strSql5 = strSql5 & " LIMIT " & intOffset & ", " & strPageSize & " "
    end if

    '## Forum_SQL - Get the total pagecount
    strSql1 = "SELECT COUNT(TOPIC_ID) AS PAGECOUNT "

    set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3)
    iPageTotal = rsCount(0).value
    rsCount.close
    set rsCount = nothing

    If iPageTotal > 0 then
        inttotaltopics = iPageTotal
        maxpages = (iPageTotal \ strPageSize )
        if iPageTotal mod strPageSize <> 0 then
            maxpages = maxpages + 1
        end if
        if iPageTotal < (strPageSize + 1) then
            intGetRows = iPageTotal
        elseif (mypage * strPageSize) > iPageTotal then
            intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal)
        else
            intGetRows = strPageSize
        end if
    else
        iPageTotal = 0
        inttotaltopics = iPageTotal
        maxpages = 0
    end if

    if iPageTotal > 0 then
        set rs = Server.CreateObject("ADODB.Recordset")
        rs.open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
            arrTopicData = rs.GetRows(intGetRows)
            iTopicCount = UBound(arrTopicData, 2)
        rs.close
        set rs = nothing
    else
        iTopicCount = ""
    end if

else 'end MySql specific code

    set rs = Server.CreateObject("ADODB.Recordset")
    rs.cachesize = strPageSize
    rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic
        if not rs.EOF then
            rs.movefirst
            rs.pagesize = strPageSize
            inttotaltopics = cLng(rs.recordcount)
            rs.absolutepage = mypage '**
            maxpages = cLng(rs.pagecount)
            arrTopicData = rs.GetRows(strPageSize)
            iTopicCount = UBound(arrTopicData, 2)
        else
            iTopicCount = ""
            inttotaltopics = 0
        end if
    rs.Close
    set rs = nothing
end if

Response.Write    "    <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
        "    <!----- " & vbNewLine & _
        "    function jumpTo(s) {if (s.selectedIndex != 0) location.href = s.options[s.selectedIndex].value;return 1;}" & vbNewLine & _
        vbNewLine & _
        "    function setDays() {document.DaysFilter.submit(); return 0;}" & vbNewLine & _
        "    // -->" & vbNewLine & _
        "    </script>" & vbNewLine

Response.Write    "      <table border=""0"" width=""100%"">" & vbNewLine & _
        "        <tr>" & vbNewLine & _
        "          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
        "          <a href=""default.asp"">" & getCurrentIcon(strIconFolderOpen,"Alle fora","align=""absmiddle""") & "</a>&nbsp;<a href=""default.asp"">Alle fora</a><br />" & vbNewLine & _
        "          " & getCurrentIcon(strIconBar,"","align=""absmiddle""")
if Cat_Status <> 0 then
    Response.Write    getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""")
else
    Response.Write    getCurrentIcon(strIconFolderClosed,"","align=""absmiddle""")
end if
Response.Write    "&nbsp;<a href=""default.asp?CAT_ID=" & Cat_ID & """>" & ChkString(Cat_Name,"display") & "</a><br />" & vbNewLine & _
        "          " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""")
if ArchiveView = "true" then
    Response.Write     getCurrentIcon(strIconFolderArchived,"","align=""absmiddle""")
else
    if Cat_Status <> 0 and Forum_Status <> 0 then
        Response.Write    getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""")
    else
        Response.Write    getCurrentIcon(strIconFolderClosedTopic,"","align=""absmiddle""")
    end if
end if
Response.Write    "&nbsp;<a href=""forum.asp?" & ArchiveLink & "FORUM_ID=" & Forum_ID & """>" & ChkString(Forum_Subject,"display") & "</a></font></td>" & vbNewLine & _
        "          <td align=""center"" valign=""bottom"" width=""33%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
call PostNewTopic()
Response.Write    "          </font></td>" & vbNewLine & _
        "          <form action=""" & Request.ServerVariables("SCRIPT_NAME") & "?" & Request.Querystring & """ method=""post"" name=""DaysFilter"">" & vbNewLine & _
        "          <td align=""right"" valign=""bottom"" width=""33%"">" & vbNewLine & _
        "          <select name=""Days"" onchange=""java script:setDays();"">" & vbNewLine & _
        "              <option value=""0""" & CheckSelected(ndays,0) & ">Vis alle emner</option>" & vbNewLine & _
        "              <option value=""-1""" & CheckSelected(ndays,-1) & ">Vis alle åbne emner</option>" & vbNewLine & _
        "              <option value=""1""" & CheckSelected(ndays,1) & ">Vis alle emner for det sidste døgn</option>" & vbNewLine & _
        "              <option value=""2""" & CheckSelected(ndays,2) & ">Vis alle emner for de sidste 2 døgn</option>" & vbNewLine & _
        "              <option value=""5""" & CheckSelected(ndays,5) & ">Vis alle emner for de sidste 5 døgn</option>" & vbNewLine & _
        "              <option value=""7""" & CheckSelected(ndays,7) & ">Vis alle emner for de sidste 7 døgn</option>" & vbNewLine & _
        "              <option value=""14""" & CheckSelected(ndays,14) & ">Vis alle emner for de sidste 14 døgn</option>" & vbNewLine & _
        "              <option value=""30""" & CheckSelected(ndays,30) & ">Vis alle emner for de sidste 30 døgn</option>" & vbNewLine & _
        "              <option value=""60""" & CheckSelected(ndays,60) & ">Vis alle emner for de sidste 60 døgn</option>" & vbNewLine & _
        "              <option value=""120""" & CheckSelected(ndays,120) & ">Vis alle emner for de sidste 120 døgn</option>" & vbNewLine & _
        "              <option value=""365""" & CheckSelected(ndays,365) & ">Vis alle emner for det sidste år</option>" & vbNewLine & _
        "          </select>" & vbNewLine & _
        "          <input type=""hidden"" name=""Cookie"" value=""1"">" & vbNewLine & _
        "          </td></form>" & vbNewLine & _
        "        </tr>" & vbNewLine
if maxpages > 1 then
    Response.Write    "        <tr>" & vbNewLine & _
            "          <td colspan=""3"" align=""right"" valign=""bottom"">" & vbNewLine & _
            "            <table border=""0"" align=""right"">" & vbNewLine & _
            "              <tr>" & vbNewLine
    Call DropDownPaging(1)
    Response.Write    "              </tr>" & vbNewLine & _
            "            </table>" & vbNewLine & _
            "          </td>" & vbNewLine & _
            "        </tr>" & vbNewLine
else
    Response.Write    "        <tr>" & vbNewLine & _
            "          <td colspan=""3""><span style=""font-size: 6px;""><br /></span></td>" & vbNewLine & _
            "        </tr>" & vbNewLine
end if
Response.Write    "      </table>" & vbNewLine & _
        "      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
        "        <tr>" & vbNewLine & _
        "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
        "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
        "              <tr>" & vbNewLine & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>&nbsp;</font></b></td>" & vbNewLine & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Emner</font></b></td>" & vbNewLine & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Forfatter</font></b></td>" & vbNewLine & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Besvarelser</font></b></td>" & vbNewLine & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Læst</font></b></td>" & vbNewLine & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Sidste indlæg skrevet</font></b></td>" & vbNewLine
if mlev > 0 or (lcase(strNoCookies) = "1") then
    Response.Write  "                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
    if (AdminAllowed = 1) then
        call ForumAdminOptions
    else
        Response.Write  "                &nbsp;" & vbNewLine
    end if
    Response.Write  "                </font></td>" & vbNewLine
end if
Response.Write    "              </tr>" & vbNewLine
if iTopicCount = "" then
    Response.Write    "              <tr>" & vbNewLine & _
            "                <td colspan=""7"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>Ingen emner fundet</b></font></td>" & vbNewLine & _
            "              </tr>" & vbNewLine
else
    tT_STATUS = 0
    tCAT_ID = 1
    tFORUM_ID = 2
    tTOPIC_ID = 3
    tT_VIEW_COUNT = 4
    tT_SUBJECT = 5
    tT_MESSAGE =6
    tT_AUTHOR = 7
    tT_STICKY = 8
    tT_REPLIES = 9
    tT_UREPLIES = 10
    tT_LAST_POST = 11
    tT_LAST_POST_AUTHOR = 12
    tT_LAST_POST_REPLY_ID = 13
    tM_NAME = 14
    tLAST_POST_AUTHOR_NAME = 15
    tT_ISEVENT = 16

    rec = 1
    for iTopic = 0 to iTopicCount
        if (rec = strPageSize + 1) then exit for

        Topic_Status = arrTopicData(tT_STATUS, iTopic)
        Topic_CatID = arrTopicData(tCAT_ID, iTopic)
        Topic_ForumID = arrTopicData(tFORUM_ID, iTopic)
        Topic_ID = arrTopicData(tTOPIC_ID, iTopic)
        Topic_ViewCount = arrTopicData(tT_VIEW_COUNT, iTopic)
        Topic_Subject = arrTopicData(tT_SUBJECT, iTopic)
        Topic_Message = arrTopicData(tT_MESSAGE, iTopic)
        Topic_Author = arrTopicData(tT_AUTHOR, iTopic)
        Topic_Sticky = arrTopicData(tT_STICKY, iTopic)
        Topic_Replies = arrTopicData(tT_REPLIES, iTopic)
        Topic_UReplies = arrTopicData(tT_UREPLIES, iTopic)
        Topic_LastPost = arrTopicData(tT_LAST_POST, iTopic)
        Topic_LastPostAuthor = arrTopicData(tT_LAST_POST_AUTHOR, iTopic)
        Topic_LastPostReplyID = arrTopicData(tT_LAST_POST_REPLY_ID, iTopic)
        Topic_MName = arrTopicData(tM_NAME, iTopic)
        Topic_LastPostAuthorName = arrTopicData(tLAST_POST_AUTHOR_NAME, iTopic)
        IsEvent = arrTopicData(tT_ISEVENT, iTopic)

        if AdminAllowed = 1 and Topic_UReplies > 0 then
            Topic_Replies = Topic_Replies + Topic_UReplies
        end if
        Response.Write    "              <tr>" & vbNewLine & _
                "                <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""middle""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>"
        if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then
            if Topic_Sticky and strStickyTopic = "1" then
                if Topic_LastPost > Session(strCookieURL & "last_here_date") then
                    Response.Write    getCurrentIcon(strIconFolderNewSticky,"Nyt Sticky indlæg","hspace=""0""")
                else
                    Response.Write    getCurrentIcon(strIconFolderSticky,"Sticky Indlæg","hspace=""0""")
                end if
            else
                ' DEM --> Added code for topic moderation
                if Topic_Status = 2 then
                    UnApprovedFound = "Y"
                    Response.Write     getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""") & "</a>" & vbNewline
                elseif Topic_Status = 3 then
                    HeldFound = "Y"
                    Response.Write     getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""") & "</a>" & vbNewline
                    ' DEM --> end of code Added for topic moderation
                else
if IsEvent = "1" then
                        Response.Write    getCurrentIcon(strCalIconEvent, strCalEvent, "")
                    else
                        Response.Write    ChkIsNew(Topic_LastPost)
                    end if

                end if
            end if
        else
            if ArchiveView <> "true" then
                if Cat_Status = 0 then
                    strAltText = "Kategorien er låst"
                elseif Forum_Status = 0 then
                    strAltText = "Forum er Låst"
                else
                    strAltText = "Emnet er låst"
                end if
            end if
            if ArchiveView = "true" then
                Response.Write    getCurrentIcon(strIconFolderArchived,"Arkiverede indlæg","hspace=""0""")
            elseif Topic_LastPost > Session(strCookieURL & "last_here_date") then
                if Topic_Sticky and strStickyTopic = "1" then
                    Response.Write    getCurrentIcon(strIconFolderNewStickyLocked,strAltText,"hspace=""0""")
                else
                    Response.Write    getCurrentIcon(strIconFolderNewLocked,strAltText,"hspace=""0""")
                end if
            else
                if Topic_Sticky and strStickyTopic = "1" then
                    Response.Write    getCurrentIcon(strIconFolderStickyLocked,strAltText,"hspace=""0""")
                else
                    Response.Write    getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""")
                end if
            end if
        end if
        Response.Write    "</a></td>" & vbNewLine & _
                "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""left"">" & vbNewLine & _
                "                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>"
        if Topic_Sticky and strStickyTopic = "1" then Response.Write("Sticky:  ")
        if IsEvent = "1" then Response.Write strCalEvent & ": "
        Response.Write    "<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """><acronym title=""" & ChkString(left(RemoveForumCode(RemoveHTML(Topic_Message)), 150), "tooltip") & """>" & ChkString(Topic_Subject,"title") & "</acronym></a></span> </font>" & vbNewLine
        if strShowPaging = "1" then
            Call TopicPaging()
        end if

response.write    "</td>" & vbNewLine
        if CLng(Topic_Replies) > 0 then
            response.write "     <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"">" & profileLink(chkString(Topic_MName,"display"),Topic_Author) & "</span></font></td>" & vbNewLine & _   
                "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText""><acronym title=""Click here to see who has posted in this topic. (" & ChkString(Topic_Subject,"title") & ")""><a href=""java script:openWindow3('pop_posted.asp?" & ArchiveLink & "Topic_ID=" & Topic_ID & "')""" & dWStatus("Who has posted?") & ">" & Topic_Replies & "</a></acronym></span></font></td>" & vbNewLine
        Response.Write    "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Topic_ViewCount & "</font></td>" & vbNewLine
else
        Response.Write    "                </td>" & vbNewLine & _
                "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"">" & profileLink(chkString(Topic_MName,"display"),Topic_Author) & "</span></font></td>" & vbNewLine & _
                "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Topic_Replies & "</font></td>" & vbNewLine & _
                "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Topic_ViewCount & "</font></td>" & vbNewLine
end if    

if IsNull(Topic_LastPostAuthor) then
            strLastAuthor = ""
        else
            strLastAuthor = "<br />af: <span class=""spnMessageText"">" & profileLink(ChkString(Topic_LastPostAuthorName, "display"),Topic_LastPostAuthor) & "</span>"
            if (strJumpLastPost = "1") then strLastAuthor = strLastAuthor & "&nbsp;" & DoLastPostLink
        end if
        Response.Write    "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center"" nowrap><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """><b>" & ChkDate(Topic_LastPost,"</b>&nbsp;",true) & strLastAuthor & "</font></td>" & vbNewLine
        if mlev > 0 or (lcase(strNoCookies) = "1") then
            Response.Write    "                <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center"" nowrap>" & vbNewLine
            if AdminAllowed = 1 then
                call TopicAdminOptions
            else
                if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then
                    call TopicMemberOptions
                else
                    Response.Write    "                &nbsp;" & vbNewLine
                end if
            end if
            Response.Write    "                </td>" & vbNewLine
        end if
        Response.Write    "              </tr>" & vbNewLine

        rec = rec + 1
    next
end if
'-------------------------------------------------
' TOPIC SORTING MOD
'-------------------------------------------------
Response.Write    "              <tr>" & vbNewLine & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """ colspan=""6"">" & vbNewLine

dim topicreclow, topicrechigh, topicpage

topicpage = mypage

if (topicpage <= 1) then
    topicreclow = 1
else
    topicreclow = ((topicpage - 1) * strPageSize) + 1
end if

topicrechigh = topicreclow + (rec - 2)

Response.Write    "                <form method=""post"" name=""topicsort"" id=""pagelist"" action=""forum.asp?" & strQStopicsort & """>" & vbNewLine
if ArchiveView = "true" then Response.Write "                <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine
Response.Write    "                  <table cellpadding=""0"" cellspacing=""0"" border=""0"" align=""right"" width=""100%"">" & vbNewLine & _
        "                    <tr>" & vbNewLine & _
        "                      <td align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>"
if inttotaltopics = 0 then
    Response.Write("Ingen emner fundet")
elseif topicreclow = topicrechigh then
    Response.Write("Viser emner " & topicreclow & " af " & inttotaltopics)
else
    Response.Write("Viser emner " & topicreclow & " - " & topicrechigh & " af " & inttotaltopics)
end if



Response.Write    ", Sorteret efter</font></b>&nbsp;<select name=""sortfield"" style=""font-size:10px;"">" & vbNewLine & _
        "                      <option value=""topic""" & CheckSelected(strtopicsortfld,"topic") & ">Emne</option>" & vbNewLine & _
        "                      <option value=""author""" & CheckSelected(strtopicsortfld,"author") & ">Forfatter</option>" & vbNewLine & _
        "                      <option value=""replies""" & CheckSelected(strtopicsortfld,"replies") & ">Antal besvarelser</option>" & vbNewLine & _
        "                      <option value=""views""" & CheckSelected(strtopicsortfld,"views") & ">Læst antal gange</option>" & vbNewLine & _
        "                      <option value=""lastpost""" & CheckSelected(strtopicsortfld,"lastpost") & ">Sidste indlæg skrevet</option>" & vbNewLine & _
        "                      </select>&nbsp;<b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>i</font></b>&nbsp;<select name=""sortorder"" style=""font-size:10px;"">" & vbNewLine & _
        "                      <option value=""desc""" & CheckSelected(strtopicsortord,"desc") & ">Faldende</option>" & vbNewLine & _
        "                      <option value=""asc""" & CheckSelected(strtopicsortord,"asc") & ">Stigende</option>" & vbNewLine & _
        "                      </select>&nbsp;<b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontcolor & """>sortering, for</font></b><nobr>&nbsp;<select name=""Days"" style=""font-size:10px;"">" & vbNewLine & _
        "                      <option value=""0""" & CheckSelected(ndays,0) & ">Alle emner</option>" & vbNewLine & _
        "                      <option value=""-1""" & CheckSelected(ndays,-1) & ">Alle åbne emner</option>" & vbNewLine & _
        "                      <option value=""1""" & CheckSelected(ndays,1) & ">Den sidste dag</option>" & vbNewLine & _
        "                      <option value=""2""" & CheckSelected(ndays,2) & ">De sidste 2 dage</option>" & vbNewLine & _
        "                      <option value=""5""" & CheckSelected(ndays,5) & ">De sidste 5 dage</option>" & vbNewLine & _
        "                      <option value=""7""" & CheckSelected(ndays,7) & ">De sidste 7 dage</option>" & vbNewLine & _
        "                      <option value=""14""" & CheckSelected(ndays,14) & ">De sidste 14 dage</option>" & vbNewLine & _
        "                      <option value=""30""" & CheckSelected(ndays,30) & ">De sidste 30 dage</option>" & vbNewLine & _
        "                      <option value=""60""" & CheckSelected(ndays,60) & ">De sidste 60 dage</option>" & vbNewLine & _
        "                      <option value=""90""" & CheckSelected(ndays,90) & ">De sidste 90 dage</option>" & vbNewLine & _
        "                      <option value=""120""" & CheckSelected(ndays,120) & ">De sidste 120 dage</option>" & vbNewLine & _
        "                      <option value=""365""" & CheckSelected(ndays,365) & ">Det sidste år</option>" & vbNewLine & _
        "                      </select>" & vbNewLine & _
        "                      <input type=""hidden"" name=""Cookie"" value=""1""><input style=""font-size:10px;"" type=""submit"" name=""Go"" value=""Søg""></nobr></td>" & vbNewLine & _
        "                    </tr>" & vbNewLine & _
        "                  </table>" & vbNewLine & _
        "                </form>" & vbNewLine & _
        "                </td>" & vbNewLine
If conquerChatUsers.Count > 0 Then

    Response.Write "      " & VBNewLine & _
                "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
              "          <span class=""spnMessageText"" >" & VBNewLine & _
              "            Følgende er på chatten: "
        Dim user
        strActiveMemberList = ""
    For Each userId In conquerChatUsers
        Set user = getUser(userId)
        strActiveMemberList = strActiveMemberList & user.name & ", "
    Next
    'strip off trailing comma and space
    strActiveMemberList = left(strActiveMemberList, Len(strActiveMemberList)-2)
    Response.Write "            " & strActiveMemberList & "</span></font>"
   
    End If    'conquerChatUsers.count
if mLev > 0 or (lcase(strNoCookies) = "1") then
    Response.Write    "                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
    if (AdminAllowed = 1) then
            call ForumAdminOptions
    else
        Response.Write    "                &nbsp;" & vbNewLine
    end if
    Response.Write    "                </font></b></td>" & vbNewLine
end if
Response.Write    "              </tr>" & vbNewLine
'-------------------------------------------------

Response.Write    "            </table>" & vbNewLine & _
        "          </td>" & vbNewLine & _
        "        </tr>" & vbNewLine
if maxpages > 1 then
    Response.Write    "        <tr>" & vbNewLine & _
            "          <td colspan=""7"">" & vbNewLine & _
            "            <table border=""0"" align=""left"">" & vbNewLine & _
            "              <tr>" & vbNewLine
    Call DropDownPaging(2)
    Response.Write    "              </tr>" & vbNewLine & _
            "            </table>" & vbNewLine & _
            "          </td>" & vbNewLine & _
            "        </tr>" & vbNewLine
else
    Response.Write    "        <tr>" & vbNewLine & _
            "          <td colspan=""7""><span style=""font-size: 6px;""><br /></span></td>" & vbNewLine & _
            "        </tr>" & vbNewLine
end if
Response.Write    "      </table>" & vbNewLine & _
        "      <table width=""100%"" align=""center"" border=""0"">" & vbNewLine & _
        "        <tr>" & vbNewLine & _
        "          <td align=""left"" valign=""top"" width=""33%"">" & vbNewLine & _
        "            <table>" & vbNewLine & _
        "              <tr valign=""top"">" & vbNewLine & _
        "                <td valign=""top"" nowrap>" & vbNewLine & _
        "                <p><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
        "                " & getCurrentIcon(strIconFolderNew,"New Posts","align=""absmiddle""") & " Indenholder nye indlæg siden du var her sidst.<br />" & vbNewLine & _
        "                " & getCurrentIcon(strIconFolder,"Old Posts","align=""absmiddle""") & " gamle indlæg."
if lcase(strHotTopic) = "1" then Response.Write    (" (" & getCurrentIcon(strIconFolderHot,"Hot Topic","align=""absmiddle""") & "&nbsp;" & intHotTopicNum & " besvarelser eller mere.)<br />" & vbNewLine)
Response.Write    "                " & getCurrentIcon(strIconFolderLocked,"lukket emne","align=""absmiddle""") & " Låste emner.<br />" & vbNewLine
' DEM --> Start of Code added for moderation
if HeldFound = "Y" then
    Response.Write "                " & getCurrentIcon(strIconFolderHold,"Held Topic","align=""absmiddle""") & " Held Topic.<br />" & vbNewline
end if
if UnapprovedFound = "Y" then
    Response.Write "                " & getCurrentIcon(strIconFolderUnmoderated,"UnModerated Topic","align=""absmiddle""") & " UnModerated Topic.<br />" & vbNewline
end if
' DEM --> End of Code added for moderation
Response.Write    "                </font></p></td>" & vbNewLine & _
        "              </tr>" & vbNewLine & _
        "            </table>" & vbNewLine & _
        "          </td>" & vbNewLine & _
        "          <td align=""center"" valign=""top"" width=""33%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
call PostNewTopic()
Response.Write    "          </font></td>" & vbNewLine & _
        "          <td align=""right"" valign=""top"" width=""33%"" nowrap>" & vbNewLine
%>
<!--#INCLUDE FILE="inc_jump_to.asp" -->
<%
Response.Write    "          </td>" & vbNewLine & _
        "        </tr>" & vbNewLine & _
        "      </table>" & vbNewLine
WriteFooter
Response.End

sub PostNewTopic()
    if Cat_Status = 0 or Forum_Status = 0 then
        if (AdminAllowed = 1) then
            Response.Write    AddEventLink(Forum_ID) & "          <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"Lukket forum","align=""absmiddle""") & "</a>&nbsp;<a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>Nyt indlæg</a><br />" & vbNewLine
        else
            Response.Write    "          " & getCurrentIcon(strIconFolderLocked,"Lukket forum","align=""absmiddle""") & "&nbsp;Lukket forum<br />" & vbNewLine
        end if
    else
        if Forum_Status <> 0 then
            Response.Write    AddEventLink(Forum_ID) & "          <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"Nyt emne","align=""absmiddle""") & "</a>&nbsp;<a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID& """>Nyt indlæg</a><br />" & vbNewLine
        else
                Response.Write    "          " & getCurrentIcon(strIconFolderLocked,"Låst Forum","align=""absmiddle""") & "&nbsp;Låst forum<br />" & vbNewLine
        end if
    end if
    ' DEM --> Start of Code added to handle subscription processing.
    if (strSubscription < 4 and strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription = 1 and (mlev > 0) and strEmail = 1 then
        Response.Write    "          "
        if InArray(strForumSubs, Forum_ID) then
            Response.Write ShowSubLink ("U", Cat_ID, Forum_ID, 0, "Y") & vbNewLine
        elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,Cat_ID)) then
            Response.Write ShowSubLink ("S", Cat_ID, Forum_ID, 0, "Y") & vbNewLine
        end if
    end if
    ' DEM --> End of code added to handle subscription processing.
end sub

Function AddEventLink(F_ID)
    For each iForum in arrCalForumID
        If cLng(iForum) = cLng(F_ID) then
            blnCalAllowed = TRUE
            Exit For
        End If
    Next
    if mlev < intCalMLev or not blnCalAllowed then Exit Function
    AddEventLink = "<a href=""post.asp?method=Topic&event=1&FORUM_ID=" & F_ID & """>" & getCurrentIcon(strCalIconEvent,strCalNewEvent,"align=""absmiddle""") & "</a>&nbsp;<a href=""post.asp?method=Topic&event=1&FORUM_ID=" & F_ID& """>" & strCalNewEvent & "</a>&nbsp;" & vbNewLine
End Function

sub ForumAdminOptions()
    if (AdminAllowed = 1) then
        if Cat_Status = 0 then
            if mlev = 4 then
                Response.Write    "                <a href=""java script:openWindow('pop_open.asp?mode=Category&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Åben forum","") & "</a>" & vbNewLine
            else
                Response.Write    "                " & getCurrentIcon(strIconFolderLocked,"Lukket forum","") & vbNewLine
            end if
        else
            if Forum_Status <> 0 then
                Response.Write    "                <a href=""java script:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderLocked,"Lås emne","") & "</a>" & vbNewLine
            else
                Response.Write    "                <a href=""java script:openWindow('pop_open.asp?mode=Forum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Åben emne","") & "</a>" & vbNewLine
            end if
        end if
        if (Cat_Status <> 0 and Forum_Status <> 0) or (AdminAllowed = 1) then
            Response.Write    "                <a href=""post.asp?method=EditForum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "&type=0"">" & getCurrentIcon(strIconFolderPencil,"Rediger emne","hspace=""0""") & "</a>" & vbNewLine
        end if
        if mLev = 4 or (lcase(strNoCookies) = "1") then
            Response.Write    "                <a href=""java script:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Forum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderDelete,"Slet forum","") & "</a>" & vbNewLine
            if strArchiveState = "1" then Response.Write("                <a href=""admin_forums.asp?action=archive&id=" & Forum_ID & """>" & getCurrentIcon(strIconFolderArchive,"Archive Forum","") & "</a>" & vbNewLine)
        end if
        ' DEM --> Start of Code for Moderated Posting
            if (UnModeratedPosts > 0) and (AdminAllowed = 1) then
            Response.Write "                <a href=""moderate.asp"">" & getCurrentIcon(strIconFolderModerate,"View All UnModerated Posts","") & "</a>" & vbNewline
            end if
            ' DEM --> End of Code for Moderated Posting
    end if
end sub

sub DropDownPaging(fnum)
    if maxpages > 1 then
        if mypage = "" then
            pge = 1
        else
            pge = mypage
        end if
        scriptname = request.servervariables("script_name")
        Response.write    "                <form name=""PageNum" & fnum & """ action=""forum.asp"">" & vbNewLine
        Response.Write    "                <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
        Response.write    "                <input name=""FORUM_ID"" type=""hidden"" value=""" & Forum_ID & """>" & vbNewLine
        Response.write    "                <input name=""sortfield"" type=""hidden"" value=""" & strtopicsortfld & """>" & vbNewLine
        Response.write    "                <input name=""sortorder"" type=""hidden"" value=""" & strtopicsortord & """>" & vbNewLine
        if ArchiveView = "true" then Response.write "                <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine
        if fnum = 1 then
            Response.Write("                <b>Side: </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
        else
            Response.Write("                <b>Der er " & maxpages & " sider indlæg: </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
        end if
        for counter = 1 to maxpages
            if counter <> cLng(pge) then 
                Response.Write "                    <option value=""" & counter &  """>" & counter & "</option>" & vbNewLine
            else
                Response.Write "                    <option selected value=""" & counter &  """>" & counter & "</option>" & vbNewLine
            end if
        next
        if fnum = 1 then
            Response.Write("                </select><b> af " & maxPages & "</b>" & vbNewLine)
        else
            Response.Write("                </select>" & vbNewLine)
        end if
        Response.Write("                </font></td>" & vbNewLine)
        Response.Write("                </form>" & vbNewLine)
    end if
end sub

sub TopicPaging()
    mxpages = (Topic_Replies / strPageSize)
    if mxPages <> cLng(mxPages) then
        mxpages = int(mxpages) + 1
    end if
    if mxpages > 1 then
        Response.Write("                  <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine)
        Response.Write("                    <tr>" & vbNewLine)
        Response.Write("                      <td valign=""bottom""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & getCurrentIcon(strIconPosticon,"","") & "</font></td>" & vbNewLine)
        for counter = 1 to mxpages
            ref = "                      <td align=""right"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
            if ((mxpages > 9) and (mxpages > strPageNumberSize)) or ((counter > 9) and (mxpages < strPageNumberSize)) then
                ref = ref & "&nbsp;"
            end if       
            ref = ref & widenum(counter) & "<span class=""spnMessageText""><a href=""topic.asp?"
            ref = ref & ArchiveLink
                ref = ref & "TOPIC_ID=" & Topic_ID
            ref = ref & "&whichpage=" & counter
            ref = ref & """>" & counter & "</a></span></font></td>"
            Response.Write ref & vbNewLine
            if counter mod strPageNumberSize = 0 and counter < mxpages then
                Response.Write("                    </tr>" & vbNewLine)
                Response.Write("                    <tr>" & vbNewLine)
                Response.Write("                      <td>&nbsp;</td>" & vbNewLine)
            end if
        next               
        Response.Write("                    </tr>" & vbNewLine)
        Response.Write("                  </table>" & vbNewLine)
    end if
end sub

sub TopicAdminOptions()
    if strStickyTopic = "1" then
        if Topic_Sticky then
            Response.Write    "                <a href=""java script:openWindow('pop_open.asp?mode=STopic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Topic_ForumID & "')"">" & getCurrentIcon(strIconGoDown,"Lav emnet U-Sticky","hspace=""0""") & "</a>" & vbNewLine
        else
            Response.Write    "                <a href=""java script:openWindow('pop_lock.asp?mode=STopic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Topic_ForumID & "')"">" & getCurrentIcon(strIconGoUp,"Lav emnet Sticky","hspace=""0""") & "</a>" & vbNewLine
        end if
    end if
    if Cat_Status = 0 then
        Response.Write    "                <a href=""java script:openWindow('pop_open.asp?mode=Category&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconUnlock,"Åben forum","hspace=""0""") & "</a>" & vbNewLine
    else
        if Forum_Status = 0 then
            Response.Write    "                <a href=""java script:openWindow('pop_open.asp?mode=Forum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconUnlock,"Åben forum","hspace=""0""") & "</a>" & vbNewLine
        else
            if Topic_Status <> 0 then
                Response.Write    "                <a href=""java script:openWindow('pop_lock.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconLock,"Lås emne","hspace=""0""") & "</a>" & vbNewLine
            else
                Response.Write    "                <a href=""java script:openWindow('pop_open.asp?mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconUnlock,"Åben emne","hspace=""0""") & "</a>" & vbNewLine
            end if
        end if
    end if
    if (AdminAllowed = 1) or (Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0) then
        Response.Write    "                <a href=""post.asp?" & ArchiveLink & "method=EditTopic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPencil,"Rediger emne","hspace=""0""") & "</a>" & vbNewLine
    end if
    Response.Write    "                <a href=""java script:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconTrashcan,"Slet emne","hspace=""0""") & "</a>" & vbNewLine
    if Topic_Status <= 1 and ArchiveView = "" then
        Response.Write    "                <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"Besvar emne","hspace=""0""") & "</a>" & vbNewLine
    end if
    ' DEM --> Start of Code for Full Moderation
        if Topic_Status > 1 then
        TopicString = "TOPIC_ID=" & Topic_ID & "&CAT_ID=" & Cat_ID & "&FORUM_ID=" & Forum_ID
                  Response.Write "                <a href=""java script:openWindow('pop_moderate.asp?" & TopicString & "')"">" & getCurrentIcon(strIconFolderModerate,"Godkend/Tilbagehold/Afvis dette emne","hspace=""0""") & "</a>" & vbNewline
        end if
    ' DEM --> End of Code for Full Moderation
    ' DEM --> Start of Code added to handle subscription processing.
    if (strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription > 0 and strEmail = 1 then
        Response.Write    "                "
        if InArray(strTopicSubs, Topic_ID) then
            Response.Write ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine
        elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then
            Response.Write ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine
        end if
    end if
    ' DEM --> End of code added to handle subscription processing.
end sub

sub TopicMemberOptions()
        if ((Topic_Status > 0 and Topic_Author = MemberID) or (AdminAllowed = 1)) and ArchiveView = "" then
        Response.Write    "                <a href=""post.asp?" & ArchiveLink & "method=EditTopic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPencil,"Rediger emne","hspace=""0""") & "</a>" & vbNewLine
    end if
        if ((Topic_Status > 0 and Topic_Author = MemberID and Topic_Replies = 0) or (AdminAllowed = 1)) and ArchiveView = "" then
        Response.Write    "                <a href=""java script:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Topic&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconTrashcan,"Slet indlæg","hspace=""0""") & "</a>" & vbNewLine
    end if
    if Topic_Status <= 1 and ArchiveView = "" then
        Response.Write    "                <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"Besvar emne","hspace=""0""") & "</a>" & vbNewLine
    end if
    ' DEM --> Start of Code added to handle subscription processing.
    if (strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription > 0 and strEmail = 1 then
        Response.Write    "                "
        if InArray(strTopicSubs, Topic_ID) then
            Response.Write ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine
        elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then
            Response.Write ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine
        end if
    end if
    ' DEM --> End of code added to handle subscription processing.
end sub

Function DoLastPostLink()
    if Topic_Replies < 1 or Topic_LastPostReplyID = 0 then
'##### Last Post Info 1-1: change getCurrentIcon(xx) to getLastPostIcon(xx)
        DoLastPostLink = "<a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>" & getLastPostIcon("topic","",Topic_LastPost,Topic_Date,Topic_ID) & "</a>"
'########## Last Post Info ##########
        DoLastPostLink = "<a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>" & getCurrentIcon(strIconLastpost,"Hop til sidste post","align=""absmiddle""") & "</a>"
    elseif Topic_LastPostReplyID <> 0 then
        PageLink = "whichpage=-1&"
        AnchorLink = "&REPLY_ID="
        DoLastPostLink = "<a href=""topic.asp?" & ArchiveLink & PageLink & "TOPIC_ID=" & Topic_ID & AnchorLink & Topic_LastPostReplyID & """>" & getCurrentIcon(strIconLastpost,"Hop til sidste post","align=""absmiddle""") & "</a>"
    else
        DoLastPostLink = ""
    end if
'###### Last Post Info - my last post addon 1-1: add one line
    DoLastPostLink = DoLastPostLink & ChkMyPost(Topic_ID,MemberID)
'########### Last Post Info - my last post addon ##########
end function


function CheckSelected(chkval1, chkval2)
    if IsNumeric(chkval1) then chkval1 = cLng(chkval1)
    if (chkval1 = chkval2) then
        CheckSelected = " selected"
    else
        CheckSelected = ""
    end if
end function
%>

tak for hjælpen indtil nu

2 secs..

- Lav backup af din "forum.asp" fil
- download http://frip.dk/thesurfer/e/q/491187/forum.txt til mappen
- omdøb "forum.txt" til "forum.asp"

- Load forummet i din browser, og se om det virker.

Tak fordi at du fortsætter!!!!

Jeg får følgende fejl:

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Left'

/forumtest2/forum.asp, line 539

Linie 539 er:

tekst = left(tekst, instrrev(tekst, " ") - 1) & " [click to see more]" ' klip til positionen af det sidste mellemrum, minus 1, tilføj " [click to see more]"

Prøv (1 linie):
if instr(tekst, " ") then
tekst = left(tekst, instrrev(tekst, " ") - 1) & " [click to see more]"

sådan:

if instr(tekst, " ") then tekst = left(tekst, instrrev(tekst, " ") - 1) & " [click to see more]"

Var der overhovedet et mellemrum, i teksten (topic message) ?

Ny fejl - denne vises i bunden med en af de der sider med et gult udråbstegn

Linie: 888
Tegn: 12
Fejl: "over" er null eller ikke et objekt
Kode: 0
Url: http://.. .. .. Forum.asp?FORUM_ID=60

Hvad står der på linie 888?

Hvad er det for en fil, du loader?
Der er ikke 888 linier, i forum.asp..

Så mange detaljer som muligt.. så slipper jeg for at skulle gætte mig frem..

sorry.. sender lige linie 888:::


du får fra linie 887 og 10 linier ned:

        if InArray(strTopicSubs, Topic_ID) then
            Response.Write ShowSubLink ("U", Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine
        elseif strBoardSubs <> "Y" and not(InArray(strForumSubs,Forum_ID) or InArray(strCatSubs,Cat_ID)) then
            Response.Write ShowSubLink ("S", Cat_ID, Forum_ID, Topic_ID, "N") & vbNewLine
        end if
    end if
    ' DEM --> End of code added to handle subscription processing.
end sub

Det er ikke din asp kode jeg skal se :-)
Det er outputtet.. dvs html/javascript delen, som du kan se via menuen Vis > Kilde
Kopier koden og smid den over i din editor..

- Hvad står der på 886, 887, 888, 889, 890?

- Du har ikke svaret på: Hvad er det for en fil, du loader?

- Har du fulgt min vejledning i mit indlæg 21/04-2004 17:54:47 ?
Det er min forum.asp fil.. og den virker hos mig..


-- Tester (filen du får fejl ved) du med din egen fil, eller min fil?

jeg tester med din fil..

den inkluderede fil hedder inc_header.asp..

jeg kan ikke finde linie 888 men den burde ligge her et sted


size="2">
          <a href="post.asp?method=Topic&FORUM_ID=38"><img src="icon_folder_new_topic.gif" width="20" height="20" border="0" alt="New Topic" title="New Topic" align="absmiddle" /></a>&nbsp;<a href="post.asp?method=Topic&FORUM_ID=38">New Topic</a><br />
          </font></td>
          <td align="right" valign="top" width="33%" nowrap>
          <!-- START JUMP TO -->
          <form name="Stuff">
          <font face="Verdana, Arial, Helvetica" size="2"><b>Gå til:</b></font>
          <select name="SelectMenu" size="1" onchange="if(this.options[this.selectedIndex].value != '' ){ jumpTo(this) }">
              <option value="">Vælg fora</option>
              <option value="forum.asp?FORUM_ID=32">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
              <option value="default.asp?CAT_ID=8">Velkommen</option>


men jeg er altså ikke sikker.. word viser en linie.. min editor viser noget helt andet.. der har jeg kun 600 linier

Har du mulighed for at oploade filen?

Prøv at søge på "over" i koden

der er ingen ord som kun er over.. men der er en helvedes masse hover, mouseover, osv

skal jeg uploade den så du kan se den i aktion???

det er jo muligt bare send mig en mail på bhn22@hotmail.com.. så sender jeg dig linket... skal nok love at slette din mail bagefter (bare så man ikke bliver fristet igen ""GG"")

"skal jeg uploade den så du kan se den i aktion???"> Jatak :-)

Jeg må ærligt indrømme at jeg bestemt ikke er meget for at offebtliggøre min adresse herinde.. mit site er et babysite i stil med netbabt osv.. og herinde er der UTROLIG mange teenagere.. sorry.. så hellere stoppe her...

eller send mig en mail

Du kan også tilføje mig til din messenger liste.. så kan jeg sende den den vej..

OK. Jeg fanger dig via MSN Messenger, engang i aften.

- Jeg kender Ekspertens regel §2.1.13.

Der var du :-)
..kunne ikke lige finde spm'et..

Jeg har sendt en mail til dig.. som jeg skrev, ønsker jeg ikke at offentliggøre min email adresse pga spambots og spam..

Subject/emnet på min email er: "theSurfer her - lets talk :-)"

Jeg bruger ikke det samme subject/emne igen.. så hvis du får endnu en mail, med samme subject, er det ikke mig..

Jeg skriver altid hvilket subject/emne jeg bruger, i selve spm'et :-)