John Sarby wrote in dk.edb.internet.webdesign.serverside.asp:
> Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> > On 15 Mar 2007 20:56:55 GMT, John Sarby <Playtime@post6.tele.dk> wrote:
> >
> > >Her er hele koden:
> > <snip>
> >
> > Fejlen er, at du udskriver subto uden for If'en. Det betyder, at den vil
> > blive udskrevet i hvert gennemløb.
> >
> > > intNummerGammel = 0
> > > subto = 0
> > > do while not rsprofit.eof
> >
> > Her er du inde i loopen
> >
> > > SQLfilm = "SELECT * FROM Tabel3 where nummer="&rsprofit("filmnummer")&""
> > > set rsfilm = Connection.Execute(SQLfilm)
> > >
> > > If rsfilm("titel") <> intNummerGammel Then
> >
> > Her er du inde i If'ens True-gren
> >
> > > Response.Write "<tr>"
> > > Response.Write "<td colspan=5><hr></td>"
> > > Response.Write "</tr>"
> > > Response.Write "<tr>"
> > > Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>"
> > > Response.Write "</tr>"
> > > subto = 0
> > > intNummerGammel = rsfilm("titel")
> > > subto = subto + rsprofit("prisen")
> > > x = x + 1
> > > else
> >
> > Her er du inde i If'ens Else-gren
> >
> > > subto = subto + rsprofit("prisen")
> > > End If
> >
> > Her er du igen ude af If'en - og det er først her, du udskriver:
> > > Response.Write "<tr>"
> > > Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"
> > > Response.Write "</tr>"
> >
> >
> > Erstat det ovenstående med:
> >
> > If rsfilm("titel") <> intNummerGammel Then
> > ' Denne del af If'en "aktivers" kun, når der skiftes titel
> >
> > ' Her udskriver du subto
> > ' Men da den ikke skal udskrives første gang,
> > ' pakker vi den ind i en If
> > If intNummerGammel <> 0 Then
> > Response.Write "<tr>" & vbcrlf
> > Response.write "<td>" & formatnumber(subto,2) & " DKK</td>" & vbcrlf
> > Response.Write "</tr>" & vbcrlf & vbcrlf
> > End If
> >
> > '- og sætter en ny "gammelværdi"
> > intNummerGammel = rsfilm("titel")
> > '- og nulstiller subto
> > subto = 0
> >
> > ' Her kommer skille-stregen
> > Response.Write "<tr>" & vbcrlf
> > Response.Write "<td colspan=5><hr></td>" & vbcrlf
> > Response.Write "</tr>" & vbcrlf & vbcrlf
> >
> > ' Her kommer så den nye titel
> > Response.Write "<tr>" & vbcrlf
> > Response.Write "<td colspan=5>" & rsfilm("titel") & "</td>" & vbcrlf
> > Response.Write "</tr>" & vbcrlf & vbcrlf
> >
> > '- og den nye pris
> > subto = subto + rsprofit("prisen")
> > x = x + 1
> > Else
> > subto = subto + rsprofit("prisen")
> > End If
> >
> > <snip resten>
> >
> > >Jeg ved godt at udskrivningen af beløbet ligger udenfor if sætningen, men jeg
> > >kan ikke få det til at virke, når jeg prøver at lægge den andre steder.
> >
> > Det er formentlig fordi du nulstiller subto, inden du opdaterer den.
> >
> >
> > Good luck,
> > Jørn
> >
> > --
> > Jørn Andersen, Brønshøj
> >
> > ALLE danske tropper HJEM fra Irak, NU
> > Demonstrér 17. marts:
www.nejtilkrig.dk
>
> Jeg takker for din indsats, deværre har det ikke løst mit problem, jeg ønsker kun
> at det sidste beløb bliver udskrevet - det volder mig store problemer.
>
> mvh
>
> John
Hej Jørn.
Jeg takker for din hjælp, har fået løst problemet.
Udskrivningen af subto skulle lægges ind før
Response.write "<td>" & formatnumber(subto,2) & " DKK</td>"
> > Response.Write "<tr>"
> > Response.Write "<td colspan=5><hr></td>"
> > Response.Write "</tr>"
så kom det til at virke.
mvh
John
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials