Søg
Avatar billede w!nx Nybegynder
11. juni 2001 - 14:32 Der er 28 kommentarer og
2 løsninger

Fra database til 2 kolonner på hjemmeside.... HASTER

Hvor dan gør jeg sådan at de poster jeg vil have på hjemmesiden kommer ud i 2 kolonner på min hjemmeside..
Altså de skal sættes op i en tabel på hjemmesiden så der kommer noget på ca denne måde...

_______________________________________
|                  |                |
|  POST 1          |    POST 2      |
|                  |                |
|-------------------------------------|
|                  |                |
|  Post 3          |  Post 4        |
|                  |                |
---------------------------------------

Hvis kan se hvad det forestiller....
Avatar billede w!nx Nybegynder
11. juni 2001 - 14:33 #1
______________________________
|                  |                |
|  POST 1        |    POST 2    |
|                  |                |
|-----------------------------|
|                  |                |
|  Post 3        |  Post 4      |
|                  |                |
------------------------------
Avatar billede w!nx Nybegynder
11. juni 2001 - 14:34 #2
__________________________
|                  |              |
|  POST 1    |    POST 2    |
|                  |                |
|----------------------|
|                  |                |
|  Post 3      |  Post 4      |
|                  |                |
-----------------------
´Så er der næsten....
Avatar billede slash Nybegynder
11. juni 2001 - 14:38 #3
sådan:
<table>
taeller = 0
if taeller mod 2 = 0 then
%>
<tr><td valign=\"top\">
...db-budtræk
</td>
<%
elseif taeller mod 2 <> 0 then
%>
<td>
...db udtræk
</td>
<%
end if
taeller = taeller + 1
end if
%>
</table>
Avatar billede w!nx Nybegynder
11. juni 2001 - 14:41 #4
Slash --->
Den skal fortæstte efter de 4 poster...
Avatar billede slash Nybegynder
11. juni 2001 - 14:45 #5
et hurtigt eks:

sql = \"select nyheder, link, tekst from tabel\"
set res = conn.execute(sql)
if n >= 0 then
  a = res.getrows()
  res.close
  for row = lbound(a,2) to ubound(a,2)
    nyheder = a(0,row)
    link = a(1,row)
    tekst = a(2,row)
    if taeller mod 2 = 0 then
    %>
      <tr><td valign=\"top\">
          <%=nyheder%><%=link%><%=tekst%>
      </td>
    <%
      elseif taeller mod 2 <> 0 then
    %>
    <td valign=\"top\">
          <%=nyheder%><%=link%><%=tekst%>
    </td>
    end if
    taeller = taeller + 1
    next
else
    Response.write \"Krejlus nixi\"
end if
%>
</table>
Avatar billede slash Nybegynder
11. juni 2001 - 14:47 #6
det gør den oxo - har du 100 poster vil de vises i 2 kolonner og 50 nedad!
Avatar billede slash Nybegynder
11. juni 2001 - 15:07 #7
kan du få det til at funge?
Avatar billede keysersoze Ekspert
11. juni 2001 - 15:36 #8
fuk - jeg vil også svare, men den gider ikke lade mig gøre det...
Avatar billede w!nx Nybegynder
11. juni 2001 - 15:38 #9
Slash --->
ikke helt... den skriver
------------------
Et objekt er obligatorisk: \'\'

default.asp, linje 28

-----------------
linje 28 er

a = res.getrows()
Avatar billede slash Nybegynder
11. juni 2001 - 15:40 #10
prøv lige at poste hele koden sådan som du bruger den...
Avatar billede w!nx Nybegynder
11. juni 2001 - 15:41 #11
ok... men den er ret stor...\'
----------------------------default.asp------------------
<!-- #include file=\"inc/db.asp\" -->
<%
\'-------------------
\' Variabler

    stMode = LCase(Request.QueryString(\"Mode\"))
    intKategoriID = CLng(Request.QueryString(\"kategoriID\"))

\'-------------------
\' Html output
%>
<html>
<head><title>Billede Database</title></head>
  <body>
  <table>
    <%
    Select Case stMode
    Case \"visbillede\"

        stSQL =     \"SELECT billeder.billedID, billeder.lillebillede, billeder.ArkivNummer \" & _
                    \"FROM billeder INNER JOIN binding ON billeder.billedID = binding.billedID \" & _
                    \"WHERE (((binding.kategoriID)=\" & intKategoriID & \")) ORDER BY [billeder].[ArkivNummer] DESC;\"

        Set objRS = Conn.Execute(stSQL)
            %>
           
            <%
        if n >= 0 then
        a = res.getrows()
        res.close
          for row = lbound(a,2) to ubound(a,2)
            billeder.billedID = a(0,row)
            billeder.lillebillede = a(1,row)
          billeder.ArkivNummer = a(2,row)
            if taeller mod 2 = 0 then
                 
                  %>
                  <tr><td>
                  <%
                 
        If objRS.EOF Then
            response.write \"Der er P.T. ingen billeder i denne kategori\"
        Else
            do while not objRS.eof
               
                With Response
                    .write \"<font face=Verdana, Arial, Helvetica, sans-serif size=2>\"
                    .write \"<a href=\'showimg.asp?billedID=\" & objRS(\"billedID\")& \"\'>\"
                  .write \"<img src=\'smaa/\" & objRS(\"lillebillede\") &\"\'></a>\"
                  .write \"<br>billed Nummer:\"
                  .write objRS(\"ArkivNummer\")
                  .write \"<br>\"
                  End With
                 
                  objRS.movenext
            loop
          Response.Write \"<br>\"
        set conn = nothing
        end if
              %>
              </td>
              <% elseif taeller mod 2 <> 0 then %>
              <td>
                                <%
                 
        If objRS.EOF Then
            response.write \"Der er P.T. ingen billeder i denne kategori\"
        Else
            do while not objRS.eof
               
                With Response
                    .write \"<font face=Verdana, Arial, Helvetica, sans-serif size=2>\"
                    .write \"<a href=\'showimg.asp?billedID=\" & objRS(\"billedID\")& \"\'>\"
                  .write \"<img src=\'smaa/\" & objRS(\"lillebillede\") &\"\'></a>\"
                  .write \"<br>billed Nummer:\"
                  .write objRS(\"ArkivNummer\")
                  .write \"<br>\"
                  End With
                 
                  objRS.movenext
            loop
          Response.Write \"<br>\"
        set conn = nothing
        end if
              %>
              </td></tr>
              <%           
                end if
    taeller = taeller + 1
    next
      else
    Response.write \"Der er P.T. ingen billeder i denne kategori\"
    end if
    End Select
    %>
    </table>

  </body>
</html>


<%
\'-------------------
\' Oprydning
   
    set objRS = nothing
    objRS = NULL
    set conn = nothing
    conn = NULL   
%>
Avatar billede slash Nybegynder
11. juni 2001 - 15:44 #12
prøv dette

----------------------------default.asp------------------
<!-- #include file=\"inc/db.asp\" -->
<%
\'-------------------
\' Variabler

    stMode = LCase(Request.QueryString(\"Mode\"))
    intKategoriID = CLng(Request.QueryString(\"kategoriID\"))

\'-------------------
\' Html output
%>
<html>
<head><title>Billede Database</title></head>
  <body>
  <table>
    <%
    Select Case stMode
    Case \"visbillede\"

        stSQL =    \"SELECT billeder.billedID, billeder.lillebillede, billeder.ArkivNummer \" & _
                    \"FROM billeder INNER JOIN binding ON billeder.billedID = binding.billedID \" & _
                    \"WHERE (((binding.kategoriID)=\" & intKategoriID & \")) ORDER BY [billeder].[ArkivNummer] DESC;\"

        Set objRS = Conn.Execute(stSQL)
            %>
           
            <%
        if n >= 0 then
        a = objRS.getrows()
        objRS.close
          for row = lbound(a,2) to ubound(a,2)
            billeder.billedID = a(0,row)
            billeder.lillebillede = a(1,row)
          billeder.ArkivNummer = a(2,row)
            if taeller mod 2 = 0 then
                 
                  %>
                  <tr><td>
                  <%
                 
        If objRS.EOF Then
            response.write \"Der er P.T. ingen billeder i denne kategori\"
        Else
            do while not objRS.eof
               
                With Response
                    .write \"<font face=Verdana, Arial, Helvetica, sans-serif size=2>\"
                    .write \"<a href=\'showimg.asp?billedID=\" & objRS(\"billedID\")& \"\'>\"
                  .write \"<img src=\'smaa/\" & objRS(\"lillebillede\") &\"\'></a>\"
                  .write \"<br>billed Nummer:\"
                  .write objRS(\"ArkivNummer\")
                  .write \"<br>\"
                  End With
                 
                  objRS.movenext
            loop
          Response.Write \"<br>\"
        set conn = nothing
        end if
              %>
              </td>
              <% elseif taeller mod 2 <> 0 then %>
              <td>
                                <%
                 
        If objRS.EOF Then
            response.write \"Der er P.T. ingen billeder i denne kategori\"
        Else
            do while not objRS.eof
               
                With Response
                    .write \"<font face=Verdana, Arial, Helvetica, sans-serif size=2>\"
                    .write \"<a href=\'showimg.asp?billedID=\" & objRS(\"billedID\")& \"\'>\"
                  .write \"<img src=\'smaa/\" & objRS(\"lillebillede\") &\"\'></a>\"
                  .write \"<br>billed Nummer:\"
                  .write objRS(\"ArkivNummer\")
                  .write \"<br>\"
                  End With
                 
                  objRS.movenext
            loop
          Response.Write \"<br>\"
        set conn = nothing
        end if
              %>
              </td></tr>
              <%           
                end if
    taeller = taeller + 1
    next
      else
    Response.write \"Der er P.T. ingen billeder i denne kategori\"
    end if
    End Select
    %>
    </table>

  </body>
</html>


<%
\'-------------------
\' Oprydning
   
    set objRS = nothing
    objRS = NULL
    set conn = nothing
    conn = NULL   
%>
Avatar billede slash Nybegynder
11. juni 2001 - 15:45 #13
lille rettelse
indsæt:
n = objRS.eof her:

            <%
    n = objRS.eof   
    if n >= 0 then
        a = objRS.getrows()
        objRS.close
          for row = lbound(a,2) to ubound(a,2)
            billeder.billedID = a(0,row)
            billeder.lillebillede = a(1,row)
          billeder.ArkivNummer = a(2,row)
            if taeller mod 2 = 0 then
                 
                  %>
                  <tr><td>
                  <%

Avatar billede w!nx Nybegynder
11. juni 2001 - 15:50 #14
--->
Der er fejl her

billeder.billedID = a(0,row)

--------------
Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01a8\'
Et objekt er obligatorisk: \'a(...)\'

default2.asp, linje 33

Avatar billede keysersoze Ekspert
11. juni 2001 - 15:50 #15
        Response.Write \"<table cellpadding=\'2\' cellspacing=\'5\' width=\'100%\'>\"
      Response.Write \"<tr>\"   
       
counter=0
        If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF

if counter = 2 then
    counter=0
    Response.Write \"</tr>\"
end if       
        Response.Write \"<td width=\'45%\' style=\'border: 1 solid #1E4FA0\' align=\'left\' valign=\'middle\'>\"
        Response.Write \"<span id=\'h1\'><a href=\'forside.asp?id=seklasse&elev=\" & rs(\"id\") & \"\' onFocus=\'this.blur()\'><img border=\'0\' src=\'\" & rs(\"thumbnail\") & \"\' align=\'left\'>\" & rs(\"fornavn\") & \"</a><br><br><a href=\'mailto:\" & rs(\"email\") & \"\' onFocus=\'this.blur()\'>\" & rs(\"email\") & \"</a>\"
        Response.Write \"<br><br>\"
if rs(\"mobil\") = true then
    Response.Write \"<span id=\'h1\'><a href=\'forside.asp?id=sms&nr=\" & rs(\"nummer\") & \"\' onFocus=\'this.blur()\'>\" & rs(\"nummer\") & \"</a>\"
else
    Response.Write \"<span id=\'h1\'>\" & rs(\"nummer\") & \"\"   
end if   
    Response.Write \"</span></td>\"
       
counter=counter + 1

        rs.MoveNext
        Loop
       
        Response.Write \"</td>\"
      Response.Write \"</tr>\"
    Response.Write \"</table>\"
Avatar billede slash Nybegynder
11. juni 2001 - 15:52 #16
dette skulle egentlig kunne gøre det... har slettet det fra mit 1. eks. hvor jeg smed data over i et array!
<!-- #include file=\"inc/db.asp\" -->
<%
\'-------------------
\' Variabler

    stMode = LCase(Request.QueryString(\"Mode\"))
    intKategoriID = CLng(Request.QueryString(\"kategoriID\"))

\'-------------------
\' Html output
%>
<html>
<head><title>Billede Database</title></head>
  <body>
  <table>
    <%
    Select Case stMode
    Case \"visbillede\"

        stSQL =    \"SELECT billeder.billedID, billeder.lillebillede, billeder.ArkivNummer \" & _
                    \"FROM billeder INNER JOIN binding ON billeder.billedID = binding.billedID \" & _
                    \"WHERE (((binding.kategoriID)=\" & intKategoriID & \")) ORDER BY [billeder].[ArkivNummer] DESC;\"

        Set objRS = Conn.Execute(stSQL)
            %>
           
            <%
            if taeller mod 2 = 0 then
                 
                  %>
                  <tr><td>
                  <%
                 
        If objRS.EOF Then
            response.write \"Der er P.T. ingen billeder i denne kategori\"
        Else
            do while not objRS.eof
               
                With Response
                    .write \"<font face=Verdana, Arial, Helvetica, sans-serif size=2>\"
                    .write \"<a href=\'showimg.asp?billedID=\" & objRS(\"billedID\")& \"\'>\"
                  .write \"<img src=\'smaa/\" & objRS(\"lillebillede\") &\"\'></a>\"
                  .write \"<br>billed Nummer:\"
                  .write objRS(\"ArkivNummer\")
                  .write \"<br>\"
                  End With
                 
                  objRS.movenext
            loop
          Response.Write \"<br>\"
        set conn = nothing
        end if
              %>
              </td>
              <% elseif taeller mod 2 <> 0 then %>
              <td>
                                <%
                 
        If objRS.EOF Then
            response.write \"Der er P.T. ingen billeder i denne kategori\"
        Else
            do while not objRS.eof
               
                With Response
                    .write \"<font face=Verdana, Arial, Helvetica, sans-serif size=2>\"
                    .write \"<a href=\'showimg.asp?billedID=\" & objRS(\"billedID\")& \"\'>\"
                  .write \"<img src=\'smaa/\" & objRS(\"lillebillede\") &\"\'></a>\"
                  .write \"<br>billed Nummer:\"
                  .write objRS(\"ArkivNummer\")
                  .write \"<br>\"
                  End With
                 
                  objRS.movenext
            loop
          Response.Write \"<br>\"
        set conn = nothing
        end if
              %>
              </td></tr>
              <%           
                end if
    taeller = taeller + 1
    next
      else
    Response.write \"Der er P.T. ingen billeder i denne kategori\"
    end if
    End Select
    %>
    </table>

  </body>
</html>


<%
\'-------------------
\' Oprydning
   
    set objRS = nothing
    objRS = NULL
    set conn = nothing
    conn = NULL   
%>
Avatar billede w!nx Nybegynder
11. juni 2001 - 15:52 #17
---->  keysersoze
Kan du ikke lige ryde op lidt i den kode rimligt svært at overskue
Avatar billede w!nx Nybegynder
11. juni 2001 - 15:57 #18
---> Slash
---------------------
Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a041f\'

Uventet \'Next\'

default2.asp, linje 83

next
^
----------------------
81:end if
82:    taeller = taeller + 1
83:    next
84:      else
85:    Response.write \"Der er P.T. ingen billeder i denne kategori\"
86:    end if
87:    End Select
88:    %>

Avatar billede slash Nybegynder
11. juni 2001 - 15:57 #19
fjern next
Avatar billede w!nx Nybegynder
11. juni 2001 - 15:58 #20
er lige væk en ½ time... kommer igen...
Avatar billede okay Nybegynder
11. juni 2001 - 15:59 #21
:o)
Avatar billede keysersoze Ekspert
11. juni 2001 - 15:59 #22
Response.Write \"<table cellpadding=\'2\' cellspacing=\'5\' width=\'100%\'>\"
Response.Write \"<tr>\"   
       
counter=0
        If Not (objRS.BOF Or objRS.EOF) Then
        Do While Not objRS.EOF

if counter = 2 then
    counter=0
    Response.Write \"</tr>\"
end if       
        Response.Write \"<td width=\'45%\' style=\'border: 1 solid #1E4FA0\' align=\'left\' valign=\'middle\'>\"
        Response.Write \"\" & objRS(\"det_du_skal_have_udskrevet\") & \"\"
        Response.Write \"<br><br>\"

    Response.Write \"</span></td>\"
       
counter=counter + 1

        objRS.MoveNext
        Loop
       
        Response.Write \"</td>\"
      Response.Write \"</tr>\"
    Response.Write \"</table>\"
Avatar billede w!nx Nybegynder
11. juni 2001 - 17:10 #23
---> Slash
Det virker ikke....
Avatar billede keysersoze Ekspert
11. juni 2001 - 17:19 #24
har du forsøgt noget med mit?
Avatar billede w!nx Nybegynder
11. juni 2001 - 17:22 #25
----> Keysersoze
Jeg sys det ser lidt svært at sætte den kode jeg har ind i det su har lavet... kan du ikke lige hjælpe mig med det...
Avatar billede keysersoze Ekspert
11. juni 2001 - 17:25 #26
der hvor du udskriver det der nu skal udskrives - fx

Response.Write \"\" & objRS(\"noget\") & \"\"

skal der nu stå:

Response.Write \"<table cellpadding=\'2\' cellspacing=\'5\' width=\'100%\'>\"
Response.Write \"<tr>\"   
       
counter=0
        If Not (objRS.BOF Or objRS.EOF) Then
        Do While Not objRS.EOF

if counter = 2 then
    counter=0
    Response.Write \"</tr>\"
end if       
        Response.Write \"<td width=\'45%\' style=\'border: 1 solid #1E4FA0\' align=\'left\' valign=\'middle\'>\"
        Response.Write \"\" & objRS(\"det_du_skal_have_udskrevet\") & \"\"
        Response.Write \"<br><br>\"

    Response.Write \"</span></td>\"
       
counter=counter + 1

        objRS.MoveNext
        Loop
       
        Response.Write \"</td>\"
      Response.Write \"</tr>\"
    Response.Write \"</table>\"
Avatar billede w!nx Nybegynder
11. juni 2001 - 17:36 #27
----> Keysersoze
Kan du ikke lige gøre det lidt mere klart....
Lav et eks. med det som jeg har lavet får ikke så meget ud af det....
Avatar billede keysersoze Ekspert
11. juni 2001 - 17:51 #28
hvad præcist er det du ikke forstår?
Avatar billede keysersoze Ekspert
14. juni 2001 - 16:43 #29
ok - fandt du ud af det?
Avatar billede w!nx Nybegynder
15. juni 2001 - 00:00 #30
ja....
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
I går 16:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
I går 12:17 Flytte fra et projekt til andet Af hkprofil i Excel
I går 09:23 Slet tal, bevar de underliggende formler Af bbkdk i Excel
09/1108:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
White papers
Flere white papers »