Visa senaste länkar överst

jimboMedlem sedan feb. 2003185 inlägg

Frågan15 jan. 2005 11:09#1

Hej på er!

Vänder mig hit eftersom jag är ingen kodarnisse mer en grafisk nisse =)

Jag använder https://www.gruvsjo.com länkarkivscript, men när man lägger till länkar i det, så kommer dom sist i kategorierna.

Är det någon som hade velat hjälpa mig eller kanske berätta hur man får dom att visas överst istället när man lägger till dom??

Tack på förhand !!

Mvh Jimmy

@ndersMedlem sedan juni 200032 967 inlägg

15 jan. 2005 11:17#2

Om du visar koden blir det lättare att hjälpa till.

Antagligen hämtas väl länkarna ur en databas. Leta rätt på select-frågan och lägg till / ändra sorteringen (ORDER BY) att sortera stigande (DESC) på lämpligt fält (räknarfält exempelvis.)

jimboMedlem sedan feb. 2003185 inlägg

15 jan. 2005 11:30#3

Antar att det är denna koden:

 <!--#####################################
Copyright © 2003 Åsa Gruvsjö
Gruvsjo.com, [email]Asa@gruvsjo.com[/email]
	
Fri att använda om denna koden står kvar!
#########################################-->

<!--#Include file="inc/settings.asp"-->
<!--#Include file="../../include-style.asp"-->
<title>L&auml;nkarkivet - p&aring; Fiskeportalen.com</title>
<p> 
  <script language="javascript">
<!--
function popup(url,width,height)
{
	stuff = "toolbar=no,menubar=no,status=no,scrollbars=no,resizable=no,width= " +width + ", height = " +height
	window.open(url, "POPUP" , stuff );
}
//-->
</script>
</script>
<script language="javascript">
<!--
function popup(url,width,height)
{
	stuff = "toolbar=no,menubar=no,status=no,scrollbars=no,resizable=no,width= " +width + ", height = " +height
	window.open(url, "POPUP" , stuff );
}
//-->
</script>
</p>
<table width="780" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> 
      <!--#Include file="../../header.asp"-->
    </td>
  </tr>
</table>
<table width="780" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="left" valign="top"> 
      <!--#Include file="../../ad.asp"-->
    </td>
  </tr>
</table>
<table width="781" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="5" align="left" valign="top" background="../../pics/mainlinje-left.jpg">&nbsp;</td>
    <td align="left" valign="top" bgcolor="#f5f5f5"><table width="750" border="0" align="center" cellpadding="2" cellspacing="3">
        <tr valign="top" align="left"> 
          <td> <strong>
            <%If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))
End If%>
            </strong>
            <table width="630" cellpadding="4" cellspacing="0" align="center">
              <tr> 
                <td colspan="2" valign="top" class="rubrik"><b>Länkarkivet 
                  <%If Request.QueryString("catId") <> "" Then%>
                  <%If Not Kat.EOF Then%>
                  - <%=Kat("kat")%> 
                  <%End If%>
                  <%End If%>
                  </b> </td>
              </tr>
              <tr> 
                <td width="264" align="left" valign="top"> 
                  <%
strSQL = "SELECT COUNT(*) FROM url"
Set objRS = Conn.Execute (strSQL)
Response.write "Just nu " & objRS(0) & " fiskelänkar i länkarkivet!"
objRs.Close
set objRS = nothing
set objConn = nothing
%>
                </td>
                <td width="348" align="right" valign="top" class="rubrik"><a href="javascript:popup('/skicka_in_lank.asp',540,380);">L&auml;gg 
                  till en l&auml;nk i arkivet &raquo; </a></td>
              </tr>
            </table>
            <%If Request.QueryString("catId") = "" Then
Set RS=Conn.Execute("Select * From kat Where sub_kat=0")
  If RS.EOF Then%>
            <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
              <tr> 
                <td></td>
              </tr>
            </table>
            <table width="630" cellpadding="4" cellspacing="0" align="center">
              <tr> 
                <td>Inga kategorier inlagda</td>
              </tr>
            </table>
            <%Else%>
            <table width="350" border="0" align="center">
              <tr> 
                <td valign="top"> <table width="631" cellpadding="2" cellspacing="2">
                    <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
                    <td width="623"> 
                      <%If RS.EOF then%>
                      <table width="<%=Width2%>" cellpadding="4" cellspacing="0">
                        <tr> 
                          <td valign="top">&nbsp;</td>
                        </tr>
                      </table>
                      <%Else%>
                      <table width="<%=Width2%>" cellpadding="4" cellspacing="0" class="kantlinje">
                        <tr> 
                          <td valign="top"><b><a href="index.asp?catId=<%=RS("id")%>"><%=RS("kat")%></a></b></td>
                        </tr>
                      </table>
                      <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
                  </table></td>
              </tr>
            </table>
            <%End If
Else

Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId"))

Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId"))
If Antal("antal") <> "0" Then

  If RS.EOF Then%>
            <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
              <tr> 
                <td></td>
              </tr>
            </table>
            <table width="630" cellpadding="4" cellspacing="0" align="center">
              <tr> 
                <td align="center">Inget finns under <%=Kat("kat")%></td>
              </tr>
            </table>
            <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
              <tr> 
                <td></td>
              </tr>
            </table>
            <%Else%>
            <table width="350" border="0" align="center">
              <tr> 
                <td valign="top" align="center"> <table width="100%" cellpadding="2" cellspacing="2" border="0">
                    <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
                    <td width="<%=Width%>"> 
                      <%If RS.EOF then%>
                      <table width="<%=Width3%>" cellpadding="4" cellspacing="0">
                        <tr> 
                          <td valign="top">&nbsp;</td>
                        </tr>
                      </table>
                      <%Else%>
                      <table width="<%=Width3%>" cellpadding="4" cellspacing="0" class="kantlinje">
                        <tr> 
                          <td valign="top"><b><a href="index.asp?catId=<%=RS("id")%>"class="vit"><%=RS("kat")%></a></b></td>
                        </tr>
                      </table>
                      <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
                  </table></td>
              </tr>
            </table>
            <%End If
Else%>
            <table width="626" border="0" cellspacing="0" cellpadding="0" height="8" align="center">
              <tr> 
                <td width="681"></td>
              </tr>
            </table>
            <%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId"))
  If Url.EOF Then%>
            <table width="630" cellpadding="4" cellspacing="0" align="center">
              <tr> 
                <td align="center">Inget finns under <%=Kat("kat")%></td>
              </tr>
            </table>
            <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
              <tr> 
                <td></td>
              </tr>
            </table>
            <%Else
    Do Until Url.EOF%>
            <table width="631" cellpadding="3" cellspacing="0" align="center">
              <tr> 
                <td width="623"><b><a href="ut.asp?id=<%=Url("id")%>" target="_blank" class="rubrik" onclick="javascript:location.reload();" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%></a></b> 
                  - <%=Url("klick")%> klick</td>
              </tr>
              <tr> 
                <td><%=Code(Url("info"))%></td>
              </tr>
            </table>
            <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
              <tr> 
                <td></td>
              </tr>
            </table>
            <%Url.MoveNext
    Loop
  End If
End If
If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>
            <br>
            <table width="630" cellpadding="4" cellspacing="0" align="center">
              <tr align="left" valign="top"> 
                <td width="127"> 
                  <%If Kat("sub_kat") = 0 Then%>
                  <a href="index.asp">Tillbaka</a> 
                  <%Else%>
                  <a href="index.asp?catId=<%=Kat("sub_kat")%>">Tillbaka</a> 
                  <%End If%>
                </td>
                <td width="308"><a href="javascript:popup('/skicka_in_lank.asp',540,380);">L&auml;gg 
                  till en l&auml;nk(ar) i denna kategorin &raquo; </a></td>
                <td width="169"><a href="javascript:popup('../../skicka-in-dod-lank.asp',500,300);">Rapportera 
                  &quot;d&ouml;d&quot; l&auml;nk!</a></td>
              </tr>
            </table>
            <%End If
End If

Conn.Close
Set Conn=Nothing%>
            <strong> </strong></td>
        </tr>
      </table>
      
    </td>
    <td width="5" align="left" valign="top" background="../../pics/mainlinje-right.jpg">&nbsp;</td>
  </tr>
</table>
<table width="780" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="20" valign="top"> 
      <!--#Include file="../../footer.asp"-->
    </td>
  </tr>
</table>

nog lättare om man ser ett exempel på hur du gör det.
Man lär ju sig hela tiden =)

@ndersMedlem sedan juni 200032 967 inlägg

15 jan. 2005 11:48#4

Prova att byta:

            <%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId"))

mot

            <%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId")[b] & " ORDER BY ID DESC[/b]")

mvh

jimboMedlem sedan feb. 2003185 inlägg

15 jan. 2005 12:05#5

Jaaa det funkade ju som en keps!
Tackar så mycket =))

Mvh JImmy