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 :)
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
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>
Hej Eagleeye Tak for det hurtige svar.. Jeg får respons, at der mangler et End if, men hvor? :)
hhhmm mangler et End if, umiddelbart kan jeg ikke se der mangler et, kan du vise lidt af din kode ?
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 %>
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;">
Smukt.. Mange tak for hjælpen E :)
Kurser inden for grundlæggende programmering