Avatar billede themustangman Nybegynder
04. august 2004 - 14:46 Der er 7 kommentarer og
1 løsning

Signatur skal altid stå nederst i indlægget?

Hvordan får jeg signaturen til altid at stå udfor "indlæg: xxx"?
Som det kan ses i dette indlæg står den næsten på midten nu...

Siden: http://www.mustangklubben.dk/forum/vis_opslag.asp?ID=11717&grp=1

Koden som den er nu:
<table cellspacing="0" cellpadding="0" class="tblContent" border=0 >
    <tr>
        <td class="conContentCell">
            <table cellspacing="0" cellpadding="0" width="100%" >
                <tr>
                    <td width="100%" valign="top" colspan=5>
                   
<!-- BEGYND -->

                        <table cellspacing="0" cellpadding="0" width="100%" ID="Table25">
                            <tr>
                                <td class="conContentTitle">
                                    <a href="java script:history.go(-1);"><%=strForumType%></a>
                                </td>
                            </tr>
                            <tr>
                                <td class="conContentConcent">



<table width="100%" cellspacing="5" cellpadding="0" border="0" ID="Table1">
<%

'Hen data til opslag
strSql = "Select * from Forum where id=" & intID & " or svar=" & intID & " order by dato asc"
set objRs = objConn.Execute(strSql)       

'Opdater opslag
objConn.Execute("update forum set vist = vist + 1 WHERE ID=" & intID)


intCounter = 1
Do While not objRs.Eof
   
    intCounter=intCounter + 1

    intCitatID             = objRs.Fields("id")
   
    strNavn        = objRs.Fields("forfatter")
    if strNavn = "" then strNavn = "Gæst"
   
    strOverskrift    = objRs.Fields("overskrift")
    strBeskriv        = objRs.Fields("beskriv")
   
    'Sæt links i tekst
    if (strBeskriv <> "") then
        strBeskriv = AddLinks(strBeskriv, "_blank")
        strBeskriv = Replace(strBeskriv, VbCrLf, "<br>")
       
        strBeskriv = getSmileyText(strBeskriv)
    end if
   
    dtmDato        = objRs("dato")
   
    'Hvor mange visninger er der?
    intVis = objRs("vist")
    if intVis = "" or isNull(intVis) or isEmpty(intVis) Then intVis = 0
   
    strMedlemsnr = objRs("medlemsnr")

    strBillede = objRs.Fields("billede")
   
    strCitatNavn = objRs.Fields("citatNavn")

   
    strCitatTekst = objRs.Fields("citatTekst")

    if (strCitatTekst <> "") then
        strCitatTekst = AddLinks(strCitatTekst , "_blank")
        strCitatTekst = Replace(strCitatTekst , VbCrLf, "<br>")
    end if   
   
   

   
%>
    <tr>
        <td <%if intCounter mod 2 = 0 Then%>class=conContentConcent <%else%> class=conContentConcent2<%end if%> colspan=2>
       
        <table width="100%" cellspacing="1" cellpadding="3" border="0" ID="Table3">


            <tr>
                <td width="150" align="left" valign="top" class="conColumnSimple">
                    <span class="txtContentSmallPad">
               
                    <%If strMedlemsnr <> "" Then
                        '-- Check medlemsbillede og antal indlæg fra medlemmet
                        strSql = "SELECT navn, ForumBillede, ForumAntal FROM Medlem WHERE Medlemsnr='" & strMedlemsnr & "'"
                        set objRsMedlem = objConn.Execute(strSql)
                       
                        if (not objRsMedlem.Eof) then
                       
                            strNavn             = objRsMedlem.Fields("navn")
                            strForumBillede     = objRsMedlem.Fields("ForumBillede")
                            intForumAntal     = objRsMedlem.Fields("ForumAntal")

                            '-- Sørg for at antallet er et tal
                            if (intForumAntal = "" or isNull(intForumAntal) or isEmpty(intForumAntal)) then
                                intForumAntal = 0
                            else
                                intForumAntal = cInt(intForumAntal)
                            end if
                           
                           
                           
                        end if
                       
                        objRsMedlem.Close
                        Set objRsMedlem = Nothing
                       
                        %>
                          <b><a href="/medlemmer/visMedlem.asp?id=<%=strMedlemsnr%>"><%=getMemberName(strMedlemsnr)%></a></b><br><br>
                          <a href="/medlemmer/visMedlem.asp?id=<%=strMedlemsnr%>">
                          <%
                          if isMemberOnline(strMedlemsnr) then%>
                              <img src="/images/profil.gif" border=0 alt="Se profil">
                          <%else%>
                              <img src="/images/profil2.gif" border=0 alt="Se profil">
                         
                          <%end if%>
                          </a><br>

                        <%'-- Ranking
                        if (intForumAntal < 26) then%>
                            <br>170 cui<br>
                            <img src="/images/1star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>
                           
                        <%elseif (intForumAntal >25 and intForumAntal < 101) then%>
                            <br>289 cui<br>
                            <img src="/images/2star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>
                       
                        <%elseif (intForumAntal >100 and intForumAntal < 501) then%>
                            <br>351 cui<br>
                            <img src="/images/3star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>

                        <%elseif (intForumAntal >500 and intForumAntal < 1001) then%>
                            <br>428 cui<br>
                            <img src="/images/4star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>

                        <%elseif (intForumAntal >1000) then%>
                            <br>429 Hemi<br>
                            <img src="/images/5star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>
                       
                        <%
                        end if
                       
                        '-- Billede
                        if (strForumBillede <> "") then%>
                            <img src="<%=Application("upload") & Application("MedlemsBilledeUpload") & strForumBillede%>"  alt="" border="0"><br>
                        <%end if%>
                        <br>
                        Navn: <%=strNavn%><br>
                        Indlæg: <%=intForumAntal%><br><br>

                      <%Else
                          Response.Write "<b>" & strNavn & "</b><br><br>"
                      End if
                      %>
                   
                    </span>
                </td>
                <td  height="28" valign="top">
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table2">
                    <tr>
                        <td class="txtContentSmallPad">
                        <%
              if Day(date) = Day(dtmDato) and month(date) = month(dtmDato) and year(date) = year(dtmDato) Then
                Response.Write "I dag kl. " & formatDatetime(dtmDato,vbShortTime)
            elseif Day(DateAdd("d", -1, date)) = Day(dtmDato) and month(date) = month(dtmDato) and year(date) = year(dtmDato) Then
                Response.Write "I går kl. " & formatDatetime(dtmDato,vbShortTime)
            else
                Response.Write formatDatetime(dtmDato,vbShortDate)
            End if
                        %>
                        </td>
                        <td><b><%=Replace(strOverskrift, """", "'")%></b></td>
                        <td valign="top" align="right" >
                                    <form method="post" action="nytIndlaeg.asp" ID="Form1">
                                            <table width=100% ID="Table24">
                                        <tr>
                                        <td colspan="3" align=right>
                                            <input type=hidden name=ID value="<%=intID%>">
                                            <input type=hidden name=CitatID value="<%=intCitatID%>">

                                            <input type=hidden name=kategori value="<%=intGrp%>">
                                            <input type=hidden name="forumNavn" value="<%= strForumnavn%>">
                                            <input type="submit" name="Submit" value="Svar" class=FunktionsKnapContainer ID="Submit1"></span>
                                            <% if (Request.Cookies(Application("Cookienavn"))("Brugernavn") = strMedlemsnr and Request.Cookies(Application("Cookienavn"))("Brugernavn") <> "") then%>
                                                <input type="button" name="slet" value="Slet" class=FunktionsKnapContainer onClick="return CheckSlet('<%=strforumnavn%>', '<%=intCitatID %>');"></span>
                                            <% end if
                                            if (Request.Cookies(Application("Cookienavn"))("Brugernavn") = strMedlemsnr and Request.Cookies(Application("Cookienavn"))("Brugernavn") <> "") then%>
                                                <input type="button" name="rediger" value="Rediger" class=FunktionsKnapContainer onClick="java script:location.href='nytIndlaeg.asp?forumnavn=<%=Request.Servervariables("SCRIPT_NAME")%>&kategori=<%=intGrp%>&originalID=<%=intCitatID%>&id=<%=intID%>'"></span>
                                            <% end if %>
                                           
                                        </td>
                                        </tr>
                                    </table>
                                    </form>                       
                        </td>
                    </tr>
                    <tr>
                        <td colspan="3"><hr /></td>
                    </tr>
                    <tr>
                        <td colspan=3>

                            <!-- Besvarelse af indlæg -->
                            <%
                            if (strCitatTekst <> "") then%>
                                <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center" ID="Table13">
                                <tr>
                                    <td><b><%=strCitatNavn%> skrev:</b></span></td>
                                    </tr>
                                    <tr>
                                    <td <%if intCounter mod 2 = 0 Then%>class=conContentConcent2 <%else%> class=conContentConcent<%end if%>>
                                    <%=strCitatTekst%></td>
                                    </tr>
                                </table>   
                            <%end if%>                   
                       
                            <%=strBeskriv%>
                           
                            <%
                            '-- Billede
                            if (strBillede <> "") then%>
                                <center><img src="<%=Application("Upload") & Application("forumUpload") & strBillede%>"></center>
                            <%end if%>
                            <br>

                        </td>
                    </tr>
                   
                    </table>
                   
                </td>
            </tr>

       
        </table>
       
        </td>
    </tr>
    <!-- test slut -->

<%
objRs.MoveNext
Loop

objRs.Close
set objRs = Nothing
%>
   
   
</table>

</td>
</tr>
</table>

<!-- SLUT -->

                    </td>
                </tr>
            </table>

        </td>
        <td class="conColumn">


        </td>
        <td class="conColumnSpace">&nbsp;</td>
    </tr>
</table>
Avatar billede themustangman Nybegynder
04. august 2004 - 14:49 #1
UPS det var den gamle kode der kan på der...
Her er den nye:

<table cellspacing="0" cellpadding="0" class="tblContent" border=0 >
    <tr>
        <td class="conContentCell">
            <table cellspacing="0" cellpadding="0" width="100%" >
                <tr>
                    <td width="100%" valign="top" colspan=5>
                   
<!-- BEGYND -->

                        <table cellspacing="0" cellpadding="0" width="100%" ID="Table25">
                            <tr>
                                <td class="conContentTitle">
                                    <a href="java script:history.go(-1);"><%=strForumType%></a>
                                </td>
                            </tr>
                            <tr>
                                <td class="conContentConcent">

<table width="100%" cellspacing="5" cellpadding="0" border="0" ID="Table1">
<%

'Hen data til opslag
strSql = "Select * from Forum where id=" & intID & " or svar=" & intID & " order by dato asc"
set objRs = objConn.Execute(strSql)       

'Opdater opslag
objConn.Execute("update forum set vist = vist + 1 WHERE ID=" & intID)

intCounter = 1
Do While not objRs.Eof
   
    intCounter=intCounter + 1

    intCitatID             = objRs.Fields("id")
   
    strNavn        = objRs.Fields("forfatter")
    if strNavn = "" then strNavn = "Gæst"
   
    strOverskrift    = objRs.Fields("overskrift")
    strBeskriv        = objRs.Fields("beskriv")
    if (not objRs.Eof) Then
        blnVisSignatur    = cbool(objRs.Fields("visSignatur"))
    end if

   
    'Sæt links i tekst
    if (strBeskriv <> "") then
        strBeskriv = AddLinks(strBeskriv, "_blank")
        strBeskriv = Replace(strBeskriv, VbCrLf, "<br>")
       
        strBeskriv = getSmileyText(strBeskriv)
    end if
   
    dtmDato        = objRs("dato")
   
    'Hvor mange visninger er der?
    intVis = objRs("vist")
    if intVis = "" or isNull(intVis) or isEmpty(intVis) Then intVis = 0
   
    strMedlemsnr = objRs("medlemsnr")
    strBillede = objRs.Fields("billede")
    strCitatNavn = objRs.Fields("citatNavn")
    strCitatTekst = objRs.Fields("citatTekst")

    if (strCitatTekst <> "") then
        strCitatTekst = AddLinks(strCitatTekst , "_blank")
        strCitatTekst = Replace(strCitatTekst , VbCrLf, "<br>")
    end if   
   
%>
    <tr>
        <td <%if intCounter mod 2 = 0 Then%>class=conContentConcent <%else%> class=conContentConcent2<%end if%> colspan=2>
       
        <table width="100%" cellspacing="1" cellpadding="3" border="0" ID="Table3">
            <tr>
                <td width="150" align="left" valign="top" class="conColumnSimple">
                    <span class="txtContentSmallPad">
               
                    <%If strMedlemsnr <> "" Then
                        '-- Check medlemsbillede og antal indlæg fra medlemmet
                        strSql = "SELECT navn, ForumBillede, ForumAntal, signatur FROM Medlem WHERE Medlemsnr='" & strMedlemsnr & "'"
                        set objRsMedlem = objConn.Execute(strSql)
                       
                        if (not objRsMedlem.Eof) then
                       
                            strNavn             = objRsMedlem.Fields("navn")
                            strForumBillede     = objRsMedlem.Fields("ForumBillede")
                            intForumAntal         = objRsMedlem.Fields("ForumAntal")
                            strSignatur         = objRsMedlem.Fields("signatur")

                            '-- Sørg for at antallet er et tal
                            if (intForumAntal = "" or isNull(intForumAntal) or isEmpty(intForumAntal)) then
                                intForumAntal = 0
                            else
                                intForumAntal = cInt(intForumAntal)
                            end if
                           
                        end if
                       
                        objRsMedlem.Close
                        Set objRsMedlem = Nothing
                       
                        %>
                          <b><a href="/medlemmer/visMedlem.asp?id=<%=strMedlemsnr%>"><%=getMemberName(strMedlemsnr)%></a></b><br><br>
                          <a href="/medlemmer/visMedlem.asp?id=<%=strMedlemsnr%>">
                          <%
                          if isMemberOnline(strMedlemsnr) then%>
                              <img src="/images/profil.gif" border=0 alt="Se profil">
                          <%else%>
                              <img src="/images/profil2.gif" border=0 alt="Se profil">
                         
                          <%end if%>
                          </a><br>

                        <%'-- Ranking
                        if (intForumAntal < 26) then%>
                            <br>170 cui<br>
                            <img src="/images/1star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>
                           
                        <%elseif (intForumAntal >25 and intForumAntal < 101) then%>
                            <br>289 cui<br>
                            <img src="/images/2star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>
                       
                        <%elseif (intForumAntal >100 and intForumAntal < 501) then%>
                            <br>351 cui<br>
                            <img src="/images/3star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>

                        <%elseif (intForumAntal >500 and intForumAntal < 1001) then%>
                            <br>428 cui<br>
                            <img src="/images/4star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>

                        <%elseif (intForumAntal >1000) then%>
                            <br>429 Hemi<br>
                            <img src="/images/5star.jpg" alt="<%=intForumAntal%> indlæg" border="0"><br>
                       
                        <%
                        end if
                       
                        '-- Billede
                        if (strForumBillede <> "") then%>
                            <img src="<%=Application("upload") & Application("MedlemsBilledeUpload") & strForumBillede%>"  alt="" border="0"><br>
                        <%end if%>
                        <br>
                        Navn: <%=strNavn%><br>
                        Indlæg: <%=intForumAntal%><br><br>

                      <%Else
                          Response.Write "<b>" & strNavn & "</b><br><br>"
                      End if
                      %>
                   
                    </span>
                </td>
                <td  height="28" valign="top">
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table2">
                    <tr>
                        <td class="txtContentSmallPad">
                        <%
              if Day(date) = Day(dtmDato) and month(date) = month(dtmDato) and year(date) = year(dtmDato) Then
                Response.Write "I dag kl. " & formatDatetime(dtmDato,vbShortTime)
            elseif Day(DateAdd("d", -1, date)) = Day(dtmDato) and month(date) = month(dtmDato) and year(date) = year(dtmDato) Then
                Response.Write "I går kl. " & formatDatetime(dtmDato,vbShortTime)
            else
                Response.Write formatDatetime(dtmDato,vbShortDate)
            End if
                        %>
                        </td>
                        <td><b><%=Replace(strOverskrift, """", "'")%></b></td>
                        <td valign="top" align="right" >
                                    <form method="post" action="nytIndlaeg.asp" ID="Form1">
                                        <table width=100% ID="Table24">
                                        <tr>
                                        <td colspan="3" align=right>
                                            <input type=hidden name=ID value="<%=intID%>">
                                            <input type=hidden name=CitatID value="<%=intCitatID%>">

                                            <input type=hidden name=kategori value="<%=intGrp%>">
                                            <input type=hidden name="forumNavn" value="<%= strForumnavn%>">
                                            <input type="submit" name="Submit" value="Svar" class=FunktionsKnapContainer ID="Submit1"></span>
                                            <% if (Request.Cookies(Application("Cookienavn"))("Brugernavn") = strMedlemsnr and Request.Cookies(Application("Cookienavn"))("Brugernavn") <> "") then%>
                                                <input type="button" name="slet" value="Slet" class=FunktionsKnapContainer onClick="return CheckSlet('<%=strforumnavn%>', '<%=intCitatID %>');"></span>
                                            <% end if
                                            if (Request.Cookies(Application("Cookienavn"))("Brugernavn") = strMedlemsnr and Request.Cookies(Application("Cookienavn"))("Brugernavn") <> "") then%>
                                                <input type="button" name="rediger" value="Rediger" class=FunktionsKnapContainer onClick="java script:location.href='nytIndlaeg.asp?forumnavn=<%=Request.Servervariables("SCRIPT_NAME")%>&kategori=<%=intGrp%>&originalID=<%=intCitatID%>&id=<%=intID%>'"></span>
                                            <% end if %>
                                        </td>
                                        </tr>
                                    </table>
                                    </form>                       
                        </td>
                    </tr>
                    <tr>
                        <td colspan="3"><hr /></td>
                    </tr>
                    <tr>
                        <td colspan=3>

                            <!-- Besvarelse af indlæg -->
                            <%
                            if (strCitatTekst <> "") then%>
                                <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center" ID="Table13">
                                <tr>
                                    <td><b><%=strCitatNavn%> skrev:</b></span></td>
                                    </tr>
                                    <tr>
                                    <td <%if intCounter mod 2 = 0 Then%>class=conContentConcent2 <%else%> class=conContentConcent<%end if%>>
                                    <%=strCitatTekst%></td>
                                    </tr>
                                </table>   
                            <%end if%>                   
                       
                            <%=strBeskriv%>
                           
                            <%
                            '-- Billede
                            if (strBillede <> "") then%>
                                <center><img src="<%=Application("Upload") & Application("forumUpload") & strBillede%>"></center>
                            <%end if%>
                            <br>
                        </td>
                       
                    <!-- Signatur ? -->
                    <% if (blnVisSignatur) then %>
                    <tr><td colspan="3"><br><br><br></td></tr>
                    <tr><td colspan="3"><hr /></td></tr>
                    <tr><td colspan="3"><%= strSignatur %></td></tr>
                    <% end if %>
                    <!-- Signatur slut -->
                   
                    </tr>
                    </table>
                    <p>&nbsp;</p></td>
            </tr>
        </table>
        </td>
    </tr>

<%
objRs.MoveNext
Loop

objRs.Close
set objRs = Nothing
%>
   
</table>

</td>
</tr>
</table>

<!-- SLUT -->

                    </td>
                </tr>
            </table>
        </td>
        <td class="conColumn">

        </td>
        <td class="conColumnSpace">&nbsp;</td>
    </tr>
</table>
Avatar billede cyberkox Nybegynder
04. august 2004 - 16:07 #2
Du kunne jo sætte højde på venstre spalte, altså der hvor navnet og billedet er. Sku der vær noget problem i det, jeg mener, er billederne ikke altid lige store ?
Avatar billede cyberkox Nybegynder
04. august 2004 - 16:23 #3
Nej, det behøves ikke. 2 min så er jeg klar med en ny kode til dig.
Avatar billede cyberkox Nybegynder
04. august 2004 - 16:44 #4
Det blev godt nok lidt mere indviklet end jeg havde troet og til 30 poiint gider jeg godt nok ikke sidde og lave, hmm, sådan noget :P...

Men hvis du hæver til, eks, 100, så sku den vær der.
Avatar billede themustangman Nybegynder
04. august 2004 - 19:36 #5
Du får bare hundrede point
Avatar billede cyberkox Nybegynder
04. august 2004 - 22:11 #6
Okay, den er lavet til i morgen. Skal jo i skole igen, så nu kan man ikke sidde oppe hele natten :-(.

Men i morgen. Snakkes.
Avatar billede themustangman Nybegynder
11. august 2004 - 15:12 #7
Okey...
Nu har jeg fået fikset det, men det var ikke mig selv som gjorde det, så jeg ved desværre ikke hvad der blev lavet...
Avatar billede cyberkox Nybegynder
11. august 2004 - 16:49 #8
Nå, okay. Fint, jeg har været på ferie i sidste uge, så derfor har jeg ik lige svaret.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester