Udtræk i 2 kolonner

Altså så det blvier:

[1][4]
[2][5]
[3][6]

eller:
[1][2]
[3][4]
[5][6]

Du kan erklære en variabel skift som styrer, om der skal skiftes til ny linie eller ej, når en post er udskrevet. Det er således dit forslag 2 til lay-out der realiseres.

Jeg skriver et forslag her omlidt.

Her er det. Men du skal nok pusle noget mere med det.
<% skift=false %>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<%
Do While Not Rs.Eof
%>
                                   
                      <td align="center" valign="top" width="70"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= rs("aarstal")%></font></td>
                      <td align="left" valign="top"> <p align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= rs("navn")%></font></td>
<%if skift then response.write("</tr><tr>")
  skift=not skift
%>
                 
<%
Rs.MoveNext
Loop
%>
</tr>
</table>

nmh>>>Det er muligt dit svar er rigtigt men jeg kan ikke få det til at fungere og desuden vil jeg gerne have den færdige kode

eagleeye>>>Det skal blive
[1][4]
[2][5]
[3][6]

Men vil du ikke også lige kigge på et andet spørgsmål som jeg ikke kan få et svar på????
Please
http://www.eksperten.dk/spm/371376

Det er langt det letteste at benytte den anden rækkefølge, men selvfølgelig kan alt laves. Koden jeg skrev skulle blot være kopieret ind i din kode. Her er den færdige kode:

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="pokaler_forbindelse.asp" -->

<%
Sql = "Select * From tblUngdomAerespokal"
Set Rs = database.Execute(Sql)
%>

<table border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td> <div align="left">
                    <table width="100%" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="70"><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&Aring;rstal</font></strong></div></td>
                        <td><div align="left"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Navn</font></strong></div></td>
                      </tr>
                    </table>
                    <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></div></td>
              </tr>
              <tr>
                <td>
<% skift=false %>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<%
Do While Not Rs.Eof
%>
                                   
                      <td align="center" valign="top" width="70"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= rs("aarstal")%></font></td>
                      <td align="left" valign="top"> <p align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= rs("navn")%></font></td>
<%if skift then response.write("</tr><tr>")
  skift=not skift
%>
                 
<%
Rs.MoveNext
Loop
%>
</tr>
</table>

nmh>>>Ja koden virker, men det var ikke sådan jeg havde tænkt det.

Kan du lave det på den anden måde, så det kommer til at se ud som nedenfor????
[1][4]
[2][5]
[3][6]

Hvor mange poster kan man højst komme ud for?

Problemet med den anden rækkefølge er jo, at man skal "løbe frem og tilbage" i dit record-set rs for at kunne udskrive det.

Løsningsmetoden vil afhænge af hvor store datamængder, der kan komme på tale.

omkring 100 poster

Så er det ikke så svært at lave, men du må ryste op med flere point, og jeg kan se, at du kun har 15 point tilbage.

Du er godt nok krævende men nu har jeg afsat 45 point i alt

Ok, jeg kommer med et forslag (men jeg er nu ikke ret krævende).

Det var nu heller ikke ment som en fornærmelse, nærmere som lidt sjov :-)
Men jeg venter spændt på dig forslag

Her er såkoden. Jeg har ikke haft mulighed for at afprøve den, men jeg er ret sikker på, den vil virke. Hvis ikke så fortæl hvilken fejlmelding, der kom.

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="pokaler_forbindelse.asp" -->

<%
Sql = "Select * From tblUngdomAerespokal"
Set Rs = database.Execute(Sql)
dim Aar(200), Navne(200)
n=0
Do While Not Rs.Eof
  n=n+1
  Aar(n)=Rs("aarstal")
  Navne(n)=Rs("navn")
  Rs.MoveNext
Loop
if (n\2)*2=n then
  Nrk=n\2
else
  n=n+1
  Aar(n)="":Navne(n)=""
  Nrk=n\2
end if
%>

<table border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td> <div align="left">
                    <table width="100%" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="70"><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&Aring;rstal</font></strong></div></td>
                        <td><div align="left"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Navn</font></strong></div></td>
                      </tr>
                    </table>
                    <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></div></td>
              </tr>
              <tr>
                <td>

<table border="0" cellpadding="0" cellspacing="0">
<tr>
<%
for n=1 to Nrk
  for i=n to n+Nrk step Nrk
%>
                                   
                      <td align="center" valign="top" width="70"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= Aar(i)%></font></td>
                      <td align="left" valign="top"> <p align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= Navne(i)%></font></td>

                 
<%
  next
  Response.write("</tr><tr>")
next
%>
</tr>
</table>

Det ser jo meget rigtig ud men hvordan gør jeg sådan der også kommer til at stå Årstal og Navn som kolonneoverskrifter i den 2.kolonne

Og kan man nemt udvide antallet af kolonner????

For at få overskrifter i de to sidste kolonner skal du blot tilføje to ekstra felter i den tabel, hvor du har skrevet overskrifter tidligere.

Man kan godt udvide antallet af kolonner.

Her ser du den stump HTML-kode, der laver din første overskrift. Jeg har indføjet, hvad der skal til for at få overskrift i to søjler mere. (Husk at fjerne linierne med ************.

                  <table width="100%" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="70"><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&Aring;rstal</font></strong></div></td>
                        <td><div align="left"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Navn</font></strong></div></td>

*****************skal tilføjes  ******************************
                      <td width="70"><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&Aring;rstal</font></strong></div></td>
                        <td><div align="left"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Navn</font></strong></div></td>
*************************************************************
                      </tr>
                    </table>

Hvordan udvider man så antallet af kolonner????

Bliver du aldrig tilfreds?
Men nu har du da i første omgang fået hvad du bad om. Har du ikke?
Hvis du vil have 3 kolonner skal du tilføje min "stjernetilføjelse" endnu engang, og der skal yderligere laves et par små ændringer i koden, hvor data udskrives.
Nu er antallet af rækker jo ca. antalposer delt med 3.

Jeg er da fuldt tilfreds med dine svar, og har fået hvad jeg har bedt om i første omgang, men der dukker jo som regel nye problemstillinger op undervejs.

Men kan du ikke sige mig hvad der skal ændres hvis antallet at kolonner skal ændres så er jeg helt tilfreds :-)

Det var nu ment spøgende det med tilfredsheden.

Jeg sender om lidt ændringerne hvis du vil have 3 kolonner.

Her er ændringerne så der kommer 3 kolonner.

if (n\2)*2=n then
  Nrk=n\2
else
  n=n+1
  Aar(n)="":Navne(n)=""
  Nrk=n\2
end if

skal nu være:
if (n\3)*3=n then
  Nrk=n\3
else
  Nrk=n\3+1
end if

Linien for i=n to n+Nrk step Nrk skal nu være
for i=n to n+2*Nrk step Nrk

Endelig skal du for at få overskrifter tilføje min "stjernetilføjelse" endnu engang.

Sådan. Hvis du skal have 4 kolonner kan du måske nu selv se systemet i ændringerne ellers hjælper jeg gerne.

Det er da meget nemt når man først lige finder systemet :-)

Men vil du så være så venlig at sige mig, hvordan jeg ændre antallet af kolonner i det første forslag, du kom med?

[1][2]
[3][4]
[5][6]

Så skal den variable skift erstattes af en tæller.
<%skift=false%> skal nu være <%skift=0%>

<%
do while not Rs.Eof
%>
skal nu ændres til
<%
do while not Rs.Eof
  skift=skift+1
%>

<%if skift then response.write("</tr><tr>")
  skift=not skift
%>
skal nu ændres til
<%if skift=3 then response.write("</tr><tr>")
  skift=0
%>

Nu må du da være tiæfreds?

Det virker ikke

Jeg ved ikke hvad der er galt men det ser ud til der kommer 3 rækker med en masse poster i hver

<%skift=0%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<%
do while not Rs.Eof
  skift=skift+1
%>
                                   
                      <td align="center" valign="top" width="70"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= rs("aarstal")%></font></td>
                      <td align="left" valign="top"> <p align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%= rs("navn")%></font></td>
<%if skift=3 then response.write("</tr><tr>")
  skift=0
%>
                 
<%
Rs.MoveNext
Loop
%>

Hvad sker der, når du har lavet disse ændringer?

Kig selv på

http://www.insideout.dk/ungdom/test.asp

Ok jeg har kludret.
<%if skift=3 then response.write("</tr><tr>")
  skift=0
%>
skal selvfølgelig rettes til
<%if skift=3 then
    response.write("</tr><tr>")
    skift=0
  end if
%>
nu skulle det virke!

Der kommer vist kun 1 række hvis jeg nu kigger efter

Ja nu virker det :-)

Men det er godt nok nemmere at lave om i kolonnerne end i den anden.
Mange tak for hjælpen, nu kan jeg vist ikke præsse mere ud af dig, men du kunne jo lige kigge på et andet spørgsmål, som der ikke er nogen der har svaret på.
http://www.eksperten.dk/spm/371376

Ellers mange tak for hjælpen, hvad ikke klaret det uden dig!!!

Hvilken af de to måder at vise søjler på endte du med at vælge?

Jeg ser måske på dit andet problem. Men jeg skal passe på, for hvis jeg først begynder på at løse et problem, helmer jeg ikke før jeg har klaret det.

Jeg endte med at vælge denne metode
[1][4]
[2][5]
[3][6]
Men det kan jo være jeg får brug for den anden på et andet tidspunkt og så har jeg den jo.

Men jeg håber da at du vil hjælpe med mit andet problem for det har jeg siddet og knoklet med i flere måneder.
Dermed ikke sagt at problemet er svært, men tag lige et kig
PLEASE

OK, vi får se.