Hvordan gør jeg det ??

Slet ikke nogen?? Vi kan da godt smide +100 points i for en løsning..!!

100 point er for meget tror jeg

jeg kan lige prøve at se på det så :)

fucks: Takker ;-)

DAmmm sorry ducks!!
tastede lige kort forkert..!! ;)

hmm kan det være noget i den retning? (hvis du bruger access til database

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("DATABASE_NAVN_HER.mdb")
Conn.Open DSN

strSQL = "Select * from TABEL_NAVN"
Set rs = Conn.Execute(strSQL)

Do
%>

<table width="522" height="205" border="0" cellpadding="00" cellspacing="00">
  <tr>
    <td width="245" height="22"><% response.write rs("KOLLONNENAVN_TIL_HEADLINE_1") %></td>
    <td width="277"><% response.write rs("KOLLONNENAVN_TIL_HEADLINE_2") %></td>
  </tr>
  <tr>
    <td height="71"><% response.write rs("KOLLONNENAVN_INTROTEKST_1") %></td>
    <td><% response.write rs("KOLLONNENAVN_INTROTEKST_2") %></td>
  </tr>
  <tr>
    <td height="19"><% response.write rs("KOLLONNENAVN_TIL_HEADLINE_3") %></td>
    <td><% response.write rs("KOLLONNENAVN_TIL_HEADLINE_4") %></td>
  </tr>
  <tr>
    <td><% response.write rs("KOLLONNENAVN_INTROTEKST_3") %></td>
    <td><% response.write rs("KOLLONNENAVN_INTROTEKST_4") %></td>
  </tr>
</table>
<%
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

Det kan jeg ikke... har det hele liggende i en tabel som ser ud som følgeR:

pageId | dato | accepted | headline | source | shortintro | content

hvis det ikke er access er ved jeg ikke nok om databaser og asp :(

Men prøv www.html.dk/tutorials/asp

Det er access database, tabellen ser bare ud som jeg har beskrevet..
Well tak for hjælpen anyway... lader lige spørgsmålet stå åbnet lidt endnu, hvis der nu skulle komme en "nørd" forbi :)

nu kan det godt være det er lidt dumt det her, men du har forstået at du skal omdøbe det med stort :) (bare lige for at være 100% sikker)

ja selvføli' ;o)

Men skal bruge noget ala det jeg har prøvet her at skrive, men kan ikke helt få det til at virke:

<table width="522" height="300" border="1" cellpadding="00" cellspacing="00">
<%

sql = "SELECT VælgDineFelterHerIstedetForAtVælgeAlle!! FROM newspages"
Set rs = conn.Execute(sql)

While Not rs.EOF

    ' Start paa raekke
    %>
    <tr>
    <%
   
    ' Skriv foerste raekke
    %>
    <td width="245" height="22"><% = rs("headline") %></td>
    <%

    rs.MoveNext
    If Not rs.EOF Then
        ' Skriv anden raekke
        %>   
        <td valign="top"><% = rs("shortintro") %></td>
        <%
    Else
        ' Skriv tom linje (saa det staar korrekt)
        %>
        <td>&nbsp;</td>
        <%
    End If

    ' Afslut raekke
    %>
    </tr>
    <%

    rs.MoveNext
Wend
%>
</table>

Problemmet kommer når man vil udskrive data fra flere records i samme række i tabellen samtiddig med man vil udskrive data fra samme record i flere kolonne i tabellen... Så man må pakke HeadLine og Intro ind i en tabel som dette:

<table width="522" height="300" border="0" cellpadding="00" cellspacing="00">

<tr><td>
  <table><tr><td>HeadLine 1</td></tr>
  <tr><td>Intro 1</td></tr></table></td>
    <td>
  <table><tr><td>HeadLine 2</td></tr>
  <tr><td>Intro 2</td></tr></table></td></tr>
<tr><td>
  <table><tr><td>HeadLine 3</td></tr>
  <tr><td>Intro 3</td></tr></table></td>
    <td>
  <table><tr><td>HeadLine 4</td></tr>
  <tr><td>Intro 4</td></tr></table></td></tr>
</table>

Kommer lige med et kode eks. så du kan afprøve det og se resultatet.

Her er koden så du kan se/prøve hvad jeg mener...:

sql = "SELECT TOP 4 headline, shortintro FROM newspages"
Set rs = Conn.Execute(sql)

%>
<table width="522" height="300" border="0" cellpadding="00" cellspacing="00">
<%
maxColPrRow = 2
colPrRow = 0
do while not rs.EOF
  if colPrRow = 0 then Response.Write "<tr>"
  Response.Write "<td>"
  Response.Write "<table>"
  Response.Write "<tr><td>" & rs("headline") & "</td></tr>"
  Response.Write "<tr><td>" & rs("shortintro") & "</td></tr></table>"
  Response.Write "</td>"
 
  colPrRow = colPrRow + 1
  if colPrRow = maxColPrRow then
    Response.Write "</tr>"
    colPrRow = 0
  end if
 
  rs.MoveNext
loop
if colPrRow > 0 then Response.Write "<tr>"
Response.Write "</table>"