---

Hej Gruppe
Er der nogen der kan se fejlen jeg skulle gerne have 2 vertikale kolonner
med 3 horisontale rækker, men syntes ikke jeg kan gennemskue loop'ne

' DSNLess forbindelse til databasen
strDSN = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\db.mdb;
uid=Admin; pwd=;"
Set myConn = Server.CreateObject("ADODB.Connection")
'Set myConn = Server.CreateObject("ADODB.Recordset")
myConn.Open strDSN

strSQL = "select top 6 * from tblNews ORDER BY ID DESC"
Dim taeller
taeller = 0
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = myConn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
If (taeller MOD 2 = 0 ) Then
Response.Write "<tr>"
End if


Response.Write "<TABLE BORDER=0 CELLSPACING=4 CELLPADDING=0
WIDTH=380><TR><TD CLASS=menu><b>" & rs("Heading") & "</b></TD>"
Response.Write "</TR><TR><TD CLASS=menu><p><a href=http://www.blabla.dk
target=_blank>"
Response.Write "<img src=" & rs("pic") & " align=left valign=top
style=margin-top: 5px; margin-right: 10px; margin-bottom: 5px; width=200
border=0></a>"
Response.Write rs("FullText")
Response.Write "</TD></TR><TR><TD CLASS=menu>" & rs("NewsDateTime") & " -
<A HREF=http://www.orange.dk>Læs mere&nbsp;&raquo;</A></TD></TR></TABLE>"


If (taeller MOD 2 = 0 ) Then
Response.Write "</tr>"
End if

' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
taeller = taeller+1
Loop While Not rs.EOF


' Her lukkes connection og hukommelse frigøres
myConn.Close
Set myConn = Nothing
%>
</TD>
</TR>
<TR>
<TD BGCOLOR=#000000 COLSPAN=7 HEGITH=1><img src=/g/t.gif
width=100% height=1></TD>
</TR>

</TABLE>

---

Ace skrev:

> Er der nogen der kan se fejlen jeg skulle gerne have 2
> vertikale kolonner med 3 horisontale rækker, men syntes ikke
> jeg kan gennemskue loop'ne

Hvad får du i stedet? Giv et link til siden, så er det langt
hurtigere at fejlfinde.

Se også <http://asp-faq.dk/article/?id=41>.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jeg får 6 under hinanden !

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns93817ECB76F0Cjcdmfdk@gyrosmod.dtext.news.tele.dk...
> Ace skrev:
>
> > Er der nogen der kan se fejlen jeg skulle gerne have 2
> > vertikale kolonner med 3 horisontale rækker, men syntes ikke
> > jeg kan gennemskue loop'ne
>
> Hvad får du i stedet? Giv et link til siden, så er det langt
> hurtigere at fejlfinde.
>
> Se også <http://asp-faq.dk/article/?id=41>.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Ace" <alpaceNOSPAM@iname.com> wrote in message
news:bag14k$2d40$1@news.cybercity.dk...
> Jeg får 6 under hinanden !

Nu forstår jeg hvad det er du prøver på
Her er et forslag:

<table>
<tr>
<table>
<tr>
<td>1</td><td>2</td>
</tr>
</table>
</tr>
<tr>
<table>
<tr>
<td>3</td><td>4</td>
</tr>
</table>
</tr>
<tr>
<table>
<tr>
<td>5</td><td>6</td>
</tr>
</table>
</tr>
</table>


Ovenstående kan (og vil nok være hensigtsmæssigt) også laves således:

<table>
<% for i = 1 to 6 step 2 %>
<tr>
<table>
<tr>
<td><%= i %></td><td><%= i+1%></td>
</tr>
</table>
</tr>
<% next %>
</table>

Håber du kan bruge mit forslag.

Mvh-Svend

---

Svend Nielsen skrev:

> Nu forstår jeg hvad det er du prøver på
> Her er et forslag:
>
> <table>
> <tr>
> <table>
> <tr>
> <td>1</td><td>2</td>
> </tr>
> </table>
> </tr>

1) Du må ikke placere koden <table> inde i koden <tr>. <tr> må kun
indeholder <th> eller <td> (en <td> kan så godt indeholde en
<table>, men det er der ikke grund til her)

2) Hvorfor vil du i det hele taget bruge en indre tabel?


> Ovenstående kan (og vil nok være hensigtsmæssigt) også laves
> således:

[snip, eksempel på hvordan man laver en tabel med tallene 1 til 6]

Skal det tilpasses til et databaseopslag skal der puttes movenext
ind i midten og i slutningen.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Ace skrev:

> Jeg får 6 under hinanden !

Prøv med følgende skabelon:

<table>
<%
   Do while not rs.EOF
   ' Udskriv venstre kolonne
%>
<tr><td>
   <% ' Kode der udskriver information fra rs %>
</td>
<%
   rs.movenext
If not rs.EOF Then
   ' Tjek for om vi har nået enden, hvis ikke så udskriv højre
   ' side
%>
<td>
   <% ' Kode der udskriver information fra rs %>
</td>
</tr>
<%
   ' Ryk videre
   rs.movenext
   
   ' Hvis der mod forventning ikke skulle være et lige antal
   ' poster køres else-delen som sørger for at lukke rækken.
   Else
%>
</tr>
<%
   End If
   Loop
%>
</table>


NB: Hvis du vil have mere hjælp herfra bedes du læse og følge
vejledningen i min signatur.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Ace" <alpaceNOSPAM@iname.com> wrote in message
news:bacul5$6vp$1@news.cybercity.dk...

Du bruger nedenstående do-løkke:

> Do
[do something]
rs.MoveNext
> Loop While Not rs.EOF

Jeg personlig foretrækker denne form:

> Do While Not rs.EOF

[do something]
rs.MoveNext
> Loop

Så kan jeg se med det samme hvad der sker i løkken.


Et par ting der springer i øjnene:

1)
> Response.Write "</TD></TR><TR><TD CLASS=menu>" & rs("NewsDateTime") & " -
> <A HREF=http://www.orange.dk>Læs mere&nbsp;&raquo;</A></TD></TR></TABLE>"

Her skal bruger underscore, når du fortsætter på ny linie, altså:

Response.Write "</TD></TR><TR><TD CLASS=menu>" & rs("NewsDateTime") & " _
<A HREF=http://www.orange.dk>Læs mere&nbsp;&raquo;</A></TD></TR></TABLE>"


2)
> <TD BGCOLOR=#000000 COLSPAN=7 HEGITH=1><img src=/g/t.gif>
width=100% height=1></TD>

Det er en go' ide at stave rigtigt, her HEIGHT.

<TD BGCOLOR=#000000 COLSPAN=7 HEIGHT=1><img src=/g/t.gif> width=100%
height=1></TD>

Det er bestemt ikke sikkert det løser dit problem. Det er dog en start, så
skriv igen hvis det ikke hjælper.

Mvh-Svend