Avatar billede nythjem Nybegynder
02. juni 2004 - 17:37 Der er 5 kommentarer og
1 løsning

Udtræk i to spalter..

Hej alle..

Jeg skal trække resultater ud i to spalter, således, at mine nyheder kommer sådan her..

1-2
3-4
5-6

De skal udtrækkes i følgende:

<table border="0" cellspacing="0" cellpadding="10" width="620">
  <tr>
  <td width="300">Nyhed 1. Tekst om nyhed 1</td>
  <td width="300">Nyhed 2. Tekst om nyhed 2</td>
  </tr>
</table>

Hvordan gør jeg?

På forhånd tak :)
Avatar billede eagleeye Praktikant
02. juni 2004 - 17:45 #1
Sådan her:

%>
<table border="0" cellspacing="0" cellpadding="10" width="620">
<%
maxCols = 2
noCols = 0
do while not rs.EOF
  if noCols = 0 then Response.Write "<tr>"
%>
  <td width="300"><%=rs("nyhedstekst")%></td>
<%
  noCols = noCols + 1
  if noCols = maxCols then
    Response.Write "</tr>"
    noCols = 0
  end if
  rs.Movenext
loop
if noCols > 0 then Response.Write "</tr>"
%>
</table>
Avatar billede nythjem Nybegynder
02. juni 2004 - 17:52 #2
Hej Eagleeye

Tak for det hurtige svar..

Jeg får respons, at der mangler et End if, men hvor? :)
Avatar billede eagleeye Praktikant
02. juni 2004 - 17:55 #3
hhhmm mangler et End if, umiddelbart kan jeg ikke se der mangler et, kan du vise lidt af din kode ?
Avatar billede nythjem Nybegynder
02. juni 2004 - 18:00 #4
Helt sikkert.. Herunder er mit udtræk..

############

<% item = request.querystring("item") %>
<% if item = "nyheder" then %>

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../database/database.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM publicering WHERE typen = '2' Order by id DESC"
Set Record =  Con.Execute(Sql)
%>


<% Do while Not Record.EOF %>

<!-- plads til side -->

<table border="0" cellspacing="0" cellpadding="0" width="765">
  <tr>
  <td width="80"></td>
  <td width="665" valign="top" class="bread"><font class="head">Nyheder</font><br><br>

%>
<table border="0" cellspacing="0" cellpadding="10" width="620" style="border-bottom: #8E9F9F 1px solid;">
<%
maxCols = 2
noCols = 0
do while not Record.EOF
  if noCols = 0 then Response.Write "<tr>"
%>
  <td width="300"><%=Record("tekst")%></td>
<%
  noCols = noCols + 1
  if noCols = maxCols then
    Response.Write "</tr>"
    noCols = 0
  end if
  Record.Movenext
loop
if noCols > 0 then Response.Write "</tr>"
%>
</table>


<%
Con.Close
Set Con = Nothing
%>

<br><br><br>
  </td>
  <td width="20"></td>
  </tr>
</table>

<!-- plads til side // Slut -->

<% End If %>
Avatar billede eagleeye Praktikant
02. juni 2004 - 18:02 #5
Imellem disse to linjer skal %> fjernes:

  <td width="665" valign="top" class="bread"><font class="head">Nyheder</font><br><br>

%>
<table border="0" cellspacing="0" cellpadding="10" width="620" style="border-bottom: #8E9F9F 1px solid;">


Så det bliver:

  <td width="665" valign="top" class="bread"><font class="head">Nyheder</font><br><br>

<table border="0" cellspacing="0" cellpadding="10" width="620" style="border-bottom: #8E9F9F 1px solid;">
Avatar billede nythjem Nybegynder
02. juni 2004 - 18:07 #6
Smukt..

Mange tak for hjælpen E :)
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

Seneste spørgsmål Seneste aktivitet
I går 10:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging