Søg
Avatar billede xxx222 Nybegynder
19. januar 2004 - 19:43 Der er 16 kommentarer og
1 løsning

Tabel skal rettes

Jeg har et ret simpelt spørgsmål...

Hvordan skal jeg sætte min tabel op, således at billederne trukket fra en db bliver listet ved siden af hinanden (3 ved siden af hinanden og så linjeskift).

http://www.play2day.dk - Jeg skal her ha billederne under top 5 listet ved siden af hinanden.

Gider nogen rette min kode og smide den tilbage..?


//Peter//
Avatar billede xxx222 Nybegynder
19. januar 2004 - 19:44 #1
Her er koden:
----------------------------

<SCRIPT language=javascript>
    function se(id,h,b) {
        window.open("popup.asp?id="+id,"new",
       
"resizable=0,scrollbars=1,toolbar=0,location=0,menubar=0,status=0,width="+b+",height="+h)
      }
</SCRIPT>
<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Play2day</title>
</head>

<body topmargin="0" leftmargin="0" style="font-family: verdana; font-size: 10 px">

<div align="center">
  <table border="0" width="805" cellspacing="0" cellpadding="0" height="45" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000">
    <tr>
      <td width="804" height="12">
        <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#2C7DBA" height="21">
          <tr>
            <td width="100%" height="21" style="border-bottom: 1 solid #000000" bgcolor="#E4D094">
              <p align="left"><b><font face="verdana, arial" size="1">Play2day.dk
              - Danmarks mest populære spil side!<!--webbot bot="HTMLMarkup"
              startspan --><style type="text/css">
<!--
A:link { text-decoration: none; font-weight: bold ;font-size: verdana,8pt; color: 6C6C6C;}
A:visited { text-decoration: none;font-weight: bold ;font-size: verdana,8pt; color: 6C6C6C;}
A:active { text-decoration: none;font-weight: bold ;font-size: verdana,8pt; color: 6C6C6C;}
A:hover { text-decoration: underline;font-weight: bold ;font-size: verdana,8pt; color: 6C6C6C;}
//-->
</style><!--webbot bot="HTMLMarkup" endspan -->
              </font></b></td>
          </tr>
        </table>
      </td>
    </tr>
    <center>
    <tr>
      <td width="804" height="64" valign="top">
        <table border="0" width="100%" cellspacing="0" cellpadding="0" height="70">
          <tr>
            <td width="41%" valign="bottom"><img border="0" src="logo.jpg"></td>
          </center>
          <td width="59%" valign="middle">
            <p align="right"><!-- #include file="banner.asp" -->
          </td>
        </tr>
      </table>
      </td>
    </tr>
    <center>
    <tr>
      <td width="804" height="31">
        <table border="0" width="100%" cellspacing="0" cellpadding="0" height="19">
          <tr>
            <td width="100%" bgcolor="#E4D094" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000" height="19">
              <p align="center"><font face="Verdana" size="1"><b><a href="../default.asp"><font color="#000000">Hjem</font></a>&nbsp;
              l&nbsp; Online Spil&nbsp; l&nbsp; Online Spil Top 20&nbsp; l&nbsp; Konkurrencer&nbsp;
              l&nbsp;&nbsp;&nbsp;Mobil Univers</b></font></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td width="804" height="1" valign="top">
        <table border="0" width="804" cellspacing="0" cellpadding="0" height="184">
          <tr>
            <td width="149" rowspan="2" height="184" valign="top">
              <!-- #include file="menu.asp" -->
            </td>
            <td width="18" valign="top" rowspan="2" height="184">
              <table border="0" width="17" cellspacing="0" cellpadding="0" background="middle.gif">
                <tr>
                  <td width="100%">
                    <p align="center"><font color="#FFFFFF"><br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    </font></td>
                </tr>
              </table>
            </td>
            <td width="463" height="184" valign="top">
              <table border="0" width="473" cellspacing="0" cellpadding="0" height="35">
                <tr>
                  <td width="100%" height="14" bgcolor="#DF613C">
                    <p align="center"><font size="2" face="Verdana" color="#FFFFFF">-
                    Play2Day -</font></p>
                  </td>
                </tr>
                <tr>
                  <td width="100%" height="21">
                    <p align="center"><font color="#FFFFFF" size="1" face="Verdana">&nbsp;</font></p>
                    <div align="center">
                      <center>
                      <table border="0" width="406" cellspacing="0" cellpadding="0" height="28">
                        <tr>
                          <td width="218" height="28" valign="top">
                            <table border="0" width="100%" cellspacing="0" cellpadding="0">
                              <tr>
                                <td width="100%"></td>
                              </tr>
                            </table>
                          </td>
                          <td width="184" valign="top" height="28">
                            <table border="0" width="100%" cellspacing="1" cellpadding="0" height="159">
                              <tr>
                                <td width="100%" valign="middle" height="18">
                                  <p align="center"><img border="0" src="top5.jpg"></p>
                                </td>
                              </tr>
                              <%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("spil.mdb")
sql = "select Top 5 * from spil ORDER BY setgange DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)

While not rs.eof
%>
                                <TR><TD vAlign=middle width=252 bgColor=#FFFFFF height=137 style="border-bottom: 1 dashed #000000">
                                    <p align="center"><b><a href="<% = rs("link") %>" target="_blank"><font face="Verdana" size="1" color="#6C6C6C"><% = rs("navn") %></font></a>
                                    <font face="Verdana" size="1" color="#6C6C6C">
                                    (<% = rs("setgange") %>)<br>
                                    <br>
                                    <img border="1" src="billeder/<% = rs("billede") %>" width="100" height="95">
                                    </font></b>
                                  </TD>
                              </tr>
                              <%
rs.movenext
Wend
%>
                            </table>
                          </td>
                        </tr>
                      </table>
                      </center>
                    </div>
                    <p align="center">&nbsp;</p>
                    <p align="center">&nbsp;</p>
                    <p align="center">&nbsp;</p>
                    <p align="center"><font color="#FFFFFF" size="1" face="Verdana">
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    </font></p>
                  </td>
                </tr>
              </table>
            </td>
          </center>
          <td width="18" valign="top" rowspan="2" height="184">
            <table border="0" width="17" cellspacing="0" cellpadding="0">
              <tr>
                <td width="17" background="middle.gif">
                  <p align="center"><br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                  <br>
                </td>
              </tr>
            </table>
          </td>
          <center>
          <td width="150" valign="top" rowspan="2" height="184">
            <div align="right">
              <table border="0" width="149" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="149" valign="top"><!-- #include file="menu2.asp" -->
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                  </td>
                </tr>
              </table>
            </div>
          </td>
          </tr>
          <tr>
            <td width="463" height="21"></td>
          </tr>
        </table>
      </td>
    </tr>
    </table>
</div>

</body>

</html>
<%
rs.Close
Set rs = Nothing

Connect.Close
Set Connect = Nothing
%>
Avatar billede mentoz Nybegynder
19. januar 2004 - 20:06 #2
<%
Dim t
sql = "select * from tabel"
set rs = conn.Execute(sql)
Do until rs.EOF
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" heigth="20" id="AutoNumber1">
  <tr>
    <td width="33%">Tekst<%=Rs("tekst") & rs.MoveNext %></td>
    <td width="33%">Tekst2<%=Rs("tekst2") & rs.MoveNext %></td>
    <td width="34%">Tekst3<%=Rs("tekst3") & rs.MoveNext %></td>
  </tr>
</table>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" heigth="20" id="AutoNumber1">
  <tr>
    <td width="33%">Tekst4<%=Rs("tekst4") & rs.MoveNext %></td>
    <td width="33%">Tekst5<%=Rs("tekst5") & rs.MoveNext %></td>
    <td width="34%">Tekst6<%=Rs("tekst6") & rs.MoveNext %></td>
  </tr>
</table>
<%
Loop
%>

ved ikke om det virker men du kunne jo teste det
Avatar billede xxx222 Nybegynder
19. januar 2004 - 20:11 #3
det funger desværre ikke helt...
Avatar billede ellebaek Nybegynder
19. januar 2004 - 21:08 #4
<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("spil.mdb")
sql = "select Top 5 * from spil ORDER BY setgange DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)
i = 0
While not rs.eof
%>
if i mod 3 = 0 then
response.write "<tr>"
end if
<TD vAlign=middle width=252 bgColor=#FFFFFF height=137 style="border-bottom: 1 dashed #000000">
<p align="center"><b><a href="<% = rs("link") %>" target="_blank"><font face="Verdana" size="1" color="#6C6C6C"><% = rs("navn") %></font></a>
                                    <font face="Verdana" size="1" color="#6C6C6C">
                                    (<% = rs("setgange") %>)<br>
                                    <br>
                                    <img border="1" src="billeder/<% = rs("billede") %>" width="100" height="95">
                                    </font></b>
                                  </TD>
if i mod 3 = 2 then
response.write "</tr>"
end if
<%
rs.movenext
Wend
%>

Overskriv den del på siden hvor du nu indsætter billederne med den del jeg har skrevet oven for.

Det virker.
Avatar billede ellebaek Nybegynder
19. januar 2004 - 22:28 #5
men dog mangler der jo i hvert fald et billede for at det går op i 3...

<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("spil.mdb")
sql = "select Top 6 * from spil ORDER BY setgange DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)
i = 0
While not rs.eof

if i mod 3 = 0 then
response.write "<tr>"
end if
%>
<TD vAlign=middle width=252 bgColor=#FFFFFF height=137 style="border-bottom: 1 dashed #000000">
<p align="center"><b><a href="<% = rs("link") %>" target="_blank"><font face="Verdana" size="1" color="#6C6C6C"><% = rs("navn") %></font></a>
                                    <font face="Verdana" size="1" color="#6C6C6C">
                                    (<% = rs("setgange") %>)<br>
                                    <br>
                                    <img border="1" src="billeder/<% = rs("billede") %>" width="100" height="95">
                                    </font></b>
                                  </TD>
if i mod 3 = 2 then
response.write "</tr>"
end if
<%
rs.movenext
Wend
%>

Her er valgt de 6 mest sete spil, og så har jeg rettet den lille fejl jeg havde lavet.
Avatar billede xxx222 Nybegynder
19. januar 2004 - 23:28 #6
Giver følgende resultat når koden indsættes :(
http://www.sendbeskeder.dk/play2day/default1.asp
Avatar billede midas_dk Nybegynder
20. januar 2004 - 14:55 #7
<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("spil.mdb")
sql = "select Top 6 * from spil ORDER BY setgange DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)
i = 0
While not rs.eof

If i = 0 Then
  Response.Write "<tr>"
End If
%>
<TD vAlign=middle width=252 bgColor=#FFFFFF height=137 style="border-bottom: 1 dashed #000000">
<p align="center"><b><a href="<% = rs("link") %>" target="_blank"><font face="Verdana" size="1" color="#6C6C6C"><% = rs("navn") %></font></a>
                                    <font face="Verdana" size="1" color="#6C6C6C">
                                    (<% = rs("setgange") %>)<br>
                                    <br>
                                    <img border="1" src="billeder/<% = rs("billede") %>" width="100" height="95">
                                    </font></b>
                                  </TD>
If i = 2 Then
  Response.Write "</tr>"
  i = 0
Else
  i = i + 1
End If
<%
rs.movenext
Wend
%>

- det er da vist den klassiske måde at gøre det på... Har dog ikke lige testet :-/
Avatar billede midas_dk Nybegynder
20. januar 2004 - 14:56 #8
Hov:

<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("spil.mdb")
sql = "select Top 6 * from spil ORDER BY setgange DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)
i = 0
While not rs.eof

If i = 0 Then
  Response.Write "<tr>"
End If
%>
<TD vAlign=middle width=252 bgColor=#FFFFFF height=137 style="border-bottom: 1 dashed #000000">
<p align="center"><b><a href="<% = rs("link") %>" target="_blank"><font face="Verdana" size="1" color="#6C6C6C"><% = rs("navn") %></font></a>
                                    <font face="Verdana" size="1" color="#6C6C6C">
                                    (<% = rs("setgange") %>)<br>
                                    <br>
                                    <img border="1" src="billeder/<% = rs("billede") %>" width="100" height="95">
                                    </font></b>
                                  </TD>
<%
If i = 2 Then
  Response.Write "</tr>"
  i = 0
Else
  i = i + 1
End If
rs.movenext
Wend
%>
Avatar billede xxx222 Nybegynder
20. januar 2004 - 15:37 #9
http://www.sendbeskeder.dk/play2day/default1.asp

Ser sådan set meget fint ud, men hvorfor står det ene af billederne oven i det andet?
Der skulle helst være samme mellemrum mellem dem alle.
Avatar billede ellebaek Nybegynder
20. januar 2004 - 18:37 #10
<%
Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("spil.mdb")
sql = "select Top 6 * from spil ORDER BY setgange DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Connect.execute(SQL)
i = 0
While not rs.eof

if i mod 3 = 0 then
response.write "<tr>"
end if
%>
<TD vAlign=middle width=252 bgColor=#FFFFFF height=137 style="border-bottom: 1 dashed #000000">
<p align="center"><b><a href="<% = rs("link") %>" target="_blank"><font face="Verdana" size="1" color="#6C6C6C"><% = rs("navn") %></font></a>
                                    <font face="Verdana" size="1" color="#6C6C6C">
                                    (<% = rs("setgange") %>)<br>
                                    <br>
                                    <img border="1" src="billeder/<% = rs("billede") %>" width="100" height="95">
                                    </font></b>
                                  </TD>
if i mod 3 = 2 then
response.write "</tr>"
end if
<%
i = i+1
rs.movenext
Wend
%>

Sådan her..
Glemte selvfølgelig lige at tælle i op...
Avatar billede ellebaek Nybegynder
20. januar 2004 - 18:39 #11
og mht. det med dine billeder hvorfor de ligger oven i hinanden, det tror jeg er fordi din tabel er for smal, hvis du gør billederne lidt smallere, så kommer det nok til at passe..
Avatar billede ellebaek Nybegynder
20. januar 2004 - 18:40 #12
og sammen med billederne gør dine <td>'er lidt smallere.
Avatar billede midas_dk Nybegynder
22. januar 2004 - 15:58 #13
ellebaek >> Du har altså rod i dine ASP-tags! Den sidste ASP-"blok" skal se således ud:

<%
if i mod 3 = 2 then
response.write "</tr>"
end if

i = i+1
rs.movenext
Wend
%>

- det hjælper jo ikke supermeget at skrive din if-sætning ud ;-)
Avatar billede ellebaek Nybegynder
22. januar 2004 - 21:38 #14
Midas -> Nej det er der er nogen der vil mene ;-)

Det er sq ikke altid det går lige godt det med at holde styr på de forskellige blokke..

Men selvfølgelig, så hvis man vil have lidt aspkode under hvert billede, så fungere mit script meget godt :-)
Avatar billede midas_dk Nybegynder
27. januar 2004 - 17:28 #15
ellebaek -> Så kan du måske lære det ;-)

Nu mangler vi bare respons fra xxx222...
Avatar billede ellebaek Nybegynder
01. februar 2004 - 19:47 #16
Jeps...

Sker der mere her ?
Avatar billede midas_dk Nybegynder
07. februar 2004 - 21:08 #17
- og jeg havde ikke fortjent bare et PAR point? Jeg "debuggede" da koden ;-)
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
24/0811:24 Hvor kan jeg finde hjælp til at flytte fra min gamle Samsung Flip4 til min nye Samsung Galaxy S24 Af vbr i Apps til Android
24/0811:16 problem med mailbesked Af Pestilensen i Excel
24/0810:45 Powerbank Af postpeter@outlook.dk i Fri debat
22/0821:38 webui_forge_cu121_torch231 med AMD Grafikkort. Af jonpet i Andet software
White papers
Flere white papers »