Udtræk fra Database, men vises i 2 kolonner ?

<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set rs = Connect.Execute(\"SELECT * FROM tabel\")

Dim EvenCol
EvenCol = True

Do While Not RS.EOF
If EvenCol Then Response.Write \"<tr>\"
Response.Write \"<td>\" & rs(\"felt\") & \"</td>\"
EvenCol = Not EvenCol
If EvenCol Then Response.Write \"</tr>\"
RS.MoveNext
Loop

If Not EvenCol Then
Response.Write \" <td>&nbsp;</td>\"
Response.Write \" </tr>\"
End If
Connect.Close
Set Connect = nothing
%>

zoidberg > det hjælp ik så meget :(

kategori blev viset ved siden af hinanden !

Ved ikke 100% hvad du mener men prøv!

Meget vigtigt der står \"Set rs foran = connect.execute
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set rs = Connect.Execute(\"SELECT * FROM tabel\")

Og så kan du jo bare skrive rs(\"kolonne1\") Hvor du vil have dataerne fra kolonne 1 skal være og (\"kolonne2\") der hvor du vil have dataerne fra kolonne 2!!!

Håber dette hjalp!

/webben

Jeg er sgu heller ikke helt med på hvad du mener så!

ups, du har ret, der er fejl i min kode, 2 sek!

webben > jeg tror ik du forstod hvad jeg mente..

Jeg har i database:

kategori [tabel]
Computer
Underholdning
Sex
Sport

jeg vil vise de 4 kategori i 2 kolonner !

så de bliver vist på denne måde

  Kolonne 1        Kolonne 2
--------------------------------------
- 1. Computer  -  2. Underholdning  -
- 3. Sex        -  4. Sporg          -
--------------------------------------

er du med på hvad jeg mener nu :o) ?

zoidberg  > din script er der ik noget galt med, den virker, men det var ik det jeg mente !

Tror det!

Prøv følgende:

  Kolonne1                  Kolonne 2
----------------------------------------------
- 1. rs(\"Computer\") - 2. rs(\"Underholdning\") -
- 3. rs(\"Sex\")      - 4. rs(\"Sport\")        -

Ved fks. rs.(\"computer\") hiver du dine dataer ud fra computer og sætte ind i din kolonne! Hvis det ikke er det jeg tror kan jeg desværre ikke hjælpe! :-(

<table>
<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set rs = Connect.Execute(\"SELECT * FROM kategori\")

Do While Not RS.EOF
response.write \"<tr><td>\" & rs(\"computer\") & \"</td><td>\" & rs(\"underholdning\") & \"</td></tr>\"
response.write \"<tr><td>\" & rs(\"sex\") & \"</td><td>\" & rs(\"sprog\") & \"</td></tr>\"

Loop

Connect.Close
Set Connect = nothing
%>
</table>

det er hellere ik det jeg mener zoidberg ...

har i aldrig set et linksystem, hvor den deler kategori i 2 kolonner ??

nej, jeg fatter stadig ikke hvad du mener!

hvordan vil du ha jeg forklare dig det ?

:(