/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Er dette mulig?
Fra : Tommy


Dato : 30-05-03 23:38

Er det mulig å loope poster under hverandre i en tabell på denne måten:
Post 1 vises i en celle som dekker 100% av bredden.
Post 2 og 3 vises i en celle som dekker 50% hver
Post 4 vises i en celle som dekker 100% av bredden
Post 5 og 6 vises i en celle som dekker 50% hver
osv. osv.

Ref. ASP og Access

Tommy



 
 
Christian M. Nielsen (31-05-2003)
Kommentar
Fra : Christian M. Nielsen


Dato : 31-05-03 08:35

"Tommy" <hakke@mail.no> wrote in message
news:s3RBa.2821$Hb.54892@news4.e.nsc.no...
> Er det mulig å loope poster under hverandre i en tabell på denne måten:
> Post 1 vises i en celle som dekker 100% av bredden.
> Post 2 og 3 vises i en celle som dekker 50% hver
> Post 4 vises i en celle som dekker 100% av bredden
> Post 5 og 6 vises i en celle som dekker 50% hver
> osv. osv.



<% Do While Not oRs.EOF%>
<tr>
<td colspan="2">
<%=oRs("XXXXXX")%></td>
</tr>
<tr>
<td><%=oRs("XXXXXX")%></td>
<td><%=oRs("XXXXXX")%></td>
</tr>
</table>

<%
oRs.Movenext
Loop
%>


--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
" If something's hard to do, then it's not worth doing. Homer J. Simpson"



Christian M. Nielsen (31-05-2003)
Kommentar
Fra : Christian M. Nielsen


Dato : 31-05-03 08:40


"Christian M. Nielsen" <look_for_it@my.webpage> wrote in message
news:bb9m0r$nt6$1@sunsite.dk...

> <tr>
> <td><%=oRs("XXXXXX")%></td>
> <td><%=oRs("XXXXXX")%></td>
> </tr>



Det gik vidst lildt hurtigt, Her er en rettet version,

<% Do While Not oRs.EOF%>
<tr>
<td colspan="2">
<%=oRs("XXXXXX")%></td>
</tr>
<tr>
<td><% oRs.Movenext %><%=oRs("XXXXXX")%></td>
<td><% oRs.Movenext %><%=oRs("XXXXXX")%></td>
</tr>
</table>

Den er ikke testet, men bør virke


--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
" If something's hard to do, then it's not worth doing. Homer J. Simpson"



Tommy (31-05-2003)
Kommentar
Fra : Tommy


Dato : 31-05-03 14:49


"Christian M. Nielsen" <look_for_it@my.webpage> wrote in message
news:bb9m7h$oma$1@sunsite.dk...
>
> "Christian M. Nielsen" <look_for_it@my.webpage> wrote in message
> news:bb9m0r$nt6$1@sunsite.dk...
>
> > <tr>
> > <td><%=oRs("XXXXXX")%></td>
> > <td><%=oRs("XXXXXX")%></td>
> > </tr>
>
>
>
> Det gik vidst lildt hurtigt, Her er en rettet version,
>
> <% Do While Not oRs.EOF%>
> <tr>
> <td colspan="2">
> <%=oRs("XXXXXX")%></td>
> </tr>
> <tr>
> <td><% oRs.Movenext %><%=oRs("XXXXXX")%></td>
> <td><% oRs.Movenext %><%=oRs("XXXXXX")%></td>
> </tr>
> </table>
>
> Den er ikke testet, men bør virke
>
>
> --
>
> Mvh / Regards
> -=< Christian >=-
> What capital has 164 letters in its name? See my web page to find out.
> http://www.cmnielsen.dk ICQ: 25308942
> " If something's hard to do, then it's not worth doing. Homer J. Simpson"
>

Tusen takk.
Jeg har nå prøvd din kode, men får feilmelding:
Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.

Dette er min kode nå:

<%
Database = "nyheter.mdb"

Set Conn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.Recordset")

Conn.Open "DBQ=" & Server.Mappath(Database) & ";Driver={Microsoft Access
Driver (*.mdb)};"
oRS.Open "SELECT * FROM nyheter ORDER BY Id", Conn, 1, 3
%>

<div align="center">
<table style="border-collapse: collapse" bordercolor="#111111" border="1"
width="50%" cellspacing="0" cellpadding="0">
<tr>
<%
Do While Not oRS.EOF
%>
<td colspan="2">
<%=oRS("Overskrift")%></td>
</tr>
<tr>
<td><%=oRS.MoveNext %><%=oRS("Overskrift")%></td>

<td><%=oRS.MoveNext %><%=oRS("Overskrift")%></td>

</tr>
</table>
<%
Loop
%>

Hva er galt?

Tommy




Jens Gyldenkærne Cla~ (31-05-2003)
Kommentar
Fra : Jens Gyldenkærne Cla~


Dato : 31-05-03 21:29

Tommy skrev:

> Jeg har nå prøvd din kode, men får feilmelding:
> Either BOF or EOF is True, or the current record has been
> deleted. Requested operation requires a current record.

Problemet er at du udskriver data fra tre poster i din løkke - uden
at tjekke for EOF undervejs. Uanset antallet af poster vil du få en
fejl - enten fordi du forsøger at rykke forbi EOF eller også fordi
du forsøger at udskrive data ved EOF.

Her en kommenteret kode.

> Do While Not oRS.EOF
> %>

Her starter løkken. Nu er vi ved post 1.

> <td colspan="2">
> <%=oRS("Overskrift")%></td>

Udskriv fra post 1.

> </tr>

Hov - her lukker du en række der åbnes uden for løkken. Det giver
fejl i koden. Har du et åbn-element (<table>, <tr>, <td>) inde i
løkken skal det modsvares af et tilsvarende luk-element (</table>,
</tr>, </td>) inde i løkken - ellers ikke.

> <tr>
> <td><%=oRS.MoveNext %><%=oRS("Overskrift")%></td>

Ryk et trin videre. Udskriv fra post 2 (udskriften fejler hvis vi
er nået til EOF).

> <td><%=oRS.MoveNext %><%=oRS("Overskrift")%></td>

Ryk et trin videre. Udskriv fra post 3 (udskriften fejler hvis vi
er nået til EOF).

> </tr>

Luk rækken (fornuftigt nok)

> </table>

Luk tabellen! - hvorfor det? Det giver forkert kode at lukke en
tabel i en løkke når du ikke åbner den samme tabel i løkken.

> <%
> Loop
> %>

Fortsæt løkken.

For at rette op på koden skal du indføre tjek for EOF ved hver
ekstra movenext-kommando - og ikke have udskrivning efter sidste
movenext.

Her er et udkast:

<table>
<% Do While Not oRs.EOF %>
<tr><td colspan="2">
   <%=oRS("Overskrift")%>
</td></tr>
<%
oRs.movenext
If Not oRs.EOF Then ' <--- Tjek for EOF, VIGTIGT
%>    
   <tr><td><%=oRS("Overskrift")%></td>
<%
oRs.movenext
If Not oRs.EOF Then ' <--- Tjek for EOF, 2. gang, VIGTIGT
%>    
   <td><%=oRS("Overskrift")%></td>
   </tr>
<%
oRs.movenext ' Ryk frem inden næste løkkegennemløb -
            ' NB: Ingen dataudskrivning efter dette movenext.
Else ' Der er startet på en todelt række - den skal sluttes
   
%>
   </tr>
<%
End If ' 2. tjek
End If ' 1. tjek
Loop ' Vend løkken.    
%>
</table>
--
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

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste