Avatar billede cygnet Praktikant
02. november 2001 - 14:22 Der er 7 kommentarer og
1 løsning

Opdel i to kolonner

Kan man på en måde så efter halvdelen af disse grupper laver en ny kolonne

<%
 
    Set conntemp = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"../database/db.mdb\") & \"; UID=Administrator; PWD=\"
  conntemp.open DSN
 
mode=request(\"mode\")

sql = \"SELECT * from butikker ORDER BY afdeling asc\"
    set rstemp = conntemp.execute(sql)

afdeling=\"\"

do while not rstemp.eof

if not afdeling = rstemp(\"afdeling\") then
response.write \"<b>\" & rstemp(\"afdeling\") & \"</b><br>\"
end if

response.write  rstemp(\"Navn\") & \"<br>\"
afdeling =  rstemp(\"afdeling\")
rstemp.movenext
Loop %>

Noget ala
<table>
<tr>
<td>
1. Halvdel
</td>
<td>
2. Halvdel
</td>
</tr>
</table>
Avatar billede toni01 Nybegynder
02. november 2001 - 14:25 #1
Du kan vel lave en tabel, med to tabeller indeni.
Avatar billede cygnet Praktikant
02. november 2001 - 14:39 #2
jo men ... skal jo lave det ved hjælp af udtk af databasen :-)
Avatar billede toni01 Nybegynder
02. november 2001 - 14:40 #3
Du kan ikke direkte gøre det, hvis vi siger der er 40 så kan du ikke kan du ikke trække de første 40 ud og lave den ene halvder og der på lave anden halvdel af tabellenmed de siste tyve.
Avatar billede toni01 Nybegynder
02. november 2001 - 14:46 #4
Begge halvdele skal opbygges samtidig.
Avatar billede toni01 Nybegynder
02. november 2001 - 14:52 #5
du kan muligvis loope

<tr>
<td>
loope indtil du er halvvejs
</td>
<td>
loope resten
</td>

men så skal du vide hvornår du er halvvejs
Avatar billede hassen Nybegynder
02. november 2001 - 15:47 #6
du kan muligvis loope

<tr>
<td>
loope indtil du er halvvejs
</td>
<td>
loope resten
</td>

men så skal du vide hvornår du er halvvejs
Avatar billede eagleeye Praktikant
03. november 2001 - 10:46 #7
sql = \"SELECT * FROM butikker ORDER BY butikker asc\"
rs.Open sql,conn,1,3
antalPrCol = rs.RecordCount / 2
if antalPrCol > Int(antalPrCol) then antalPrCol = Int(antalPrCol) + 1
Response.Write antalPrCol

colCount = 0
Response.Write \"<table><tr>\"
do while colCount < 2
  Response.Write \"<td>\"
  Response.Write \"<table border=1>\"
  antalCount = 0
  do while (NOT rs.EOF) AND (antalCount < antalPrCol)
    Response.Write \"<tr>\"
    Response.Write \"<td>\" & rs(\"afdeling\") & \"</td>\"  \'UDSKRIV FRA DB HER
    Response.Write \"</tr>\"
    antalCount = antalCount + 1
    rs.MoveNext
  loop
  if antalCount < antalPrCol then Response.Write \"<td>&nbsp</td>\"
  Response.Write \"</table>\"
  Response.Write \"</td>\"
  colCount = colCount + 1
loop
Response.Write \"</tr></table>\"

rs.Close
Avatar billede eagleeye Praktikant
03. november 2001 - 10:48 #8
Hov du kan fjerene:  Response.Write antalPrCol
lige før denne: colCount = 0

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