Avatar billede zteven Nybegynder
29. april 2001 - 11:19 Der er 2 kommentarer og
1 løsning

Database, Tabel og ASP hjælp

Hej,

Jeg har brug for lidt (meget) hjælp til en kode.

Jeg har en database med links i.

--- Kode start ---
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db1.mdb\")
SQLstmt = \"SELECT * FROM Links ORDER BY Emne asc;\"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
%>
<%
DO WHILE NOT rs.EOF
ID = rs(\"Id\")
Dato = rs(\"Dato\")
Navn = rs(\"Navn\")
Link = rs(\"Link\")
Emne = rs(\"Emne\")
Beskrivelse = rs(\"Beskrivelse\")
Beskrivelse = Replace(Beskrivelse,\".\",\".<br>\")
%>

<%
RS.MoveNext
Loop
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
--- Kode slut ---
--- Tabel kode ---
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"95%\" height=\"95%\">
<tr>
<td bgcolor=\"#000000\" height=\"1\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#000000\" height=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#000000\" height=\"1\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"15\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#006699\" height=\"15\"><p align=\"center\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\">- Links-</font></p></td>
<td bgcolor=\"#000000\" height=\"15\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#000000\" height=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#000000\" height=\"1\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#8098B0\"><p class=\"nyhed\">Her kommer linksene</td>
<td bgcolor=\"#000000\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#000000\" height=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
<td bgcolor=\"#000000\" height=\"1\" width=\"1\"><img border=\"0\" src=\"blank.gif\" width=\"1\" height=\"1\"></td>
</tr>
</table>
--- Tabel kode slut ---

I denne tabel, der hvor der står \"Her kommer linksene\", skal alle mine links fra databasen, stilles op i tre lige lange kolonner, med omtrent lige mange links i hver.
Koden skal selv lave de tre lige store kolonner, da link antallet varierer.

Håber I kan hjælpe.


Zteven
Avatar billede dudal Nybegynder
29. april 2001 - 12:26 #1
Prøv at smide denne kode ind der hvor du skal have dine links:

<table>
<tr>
    <td width=\"33%\" valign=\"top\"><font color=\"#FFFFFF\" size=\"2\" face=\"Verdana\">
        <%
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"links.mdb\")
        Set Rs = Server.CreateObject(\"ADODB.RecordSet\")
        SQLstmt = \"SELECT * FROM Links ORDER BY Emne asc;\"
        rs.Open SQLstmt,Conn,3,1
        intCount = Rs.RecordCount
        splitat = CINT(intCount/3)
        if intCount MOD 2 = 0 Then
        tmpCount = 0
        Else
        tmpCount = 2
        End If
       
        DO WHILE NOT rs.EOF
        ID = rs(\"Id\")
        Dato = rs(\"Dato\")
        Navn = rs(\"Navn\")
        Link = rs(\"Link\")
        Emne = rs(\"Emne\")
        Beskrivelse = rs(\"Beskrivelse\")
        Beskrivelse = Replace(Beskrivelse,\".\",\".<br>\")

            Response.Write \"<li><a href=\"\"\" & Link & \"\"\">\" & Navn & \"</a>\"
            If CINT(tmpCount / splitat) = (tmpCount / splitat) AND tmpCount <> 0 Then
                Response.Write \"</font></td><td valign=\"\"top\"\" width=\"\"33%\"\"><font color=\"\"#FFFFFF\"\" size=\"\"2\"\" face=\"\"Verdana\"\">\"
            End If        
        tmpCount = tmpCount + 1
        RS.MoveNext
        Loop
        RS.Close
        conn.Close
        Set conn = nothing
        Set SQLstmt = nothing
        %>    
   
   
    </td>
    <td></td>
    <td></td>
</tr>
</table>

/dudal
Avatar billede zteven Nybegynder
29. april 2001 - 15:53 #2
Tak
Avatar billede dudal Nybegynder
29. april 2001 - 15:54 #3
Det var så lidt. :-)

/d
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