Hvordan +'er jeg tal i et loop?

hvis jeg forstår dig rigtigt så

strPrisIalt = 0;

loop start

strPrisIalt = strPrisIalt + cint(UdregnID);

loop slut

Ja.....

strPrisIalt = 0;
loop start
strPrisIalt = strPrisIalt + cint(UdregnID);
Indtil der ikke er flere UdregnID
loop slut

Hvor henter du "UdregnID" fra?
Er det en database, array, hvad?

/theSurfer

hvis du har en loop der løber produkter igennem med id = 1 er loopen begrænset af antallet. Da får du da hvad du søger.
Hvordan er din loop, og ja hvor kommer udregnid fra

....... så er i også selv ude om det ;o)

<%

' Databaseforbindelse1

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

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "

DSN = DSN & "DBQ=" & Server.MapPath("../db/FFdatabase.mdb")

Conn.Open DSN

' Databaseforbindelse2

Set ConnFF = Server.CreateObject("ADODB.Connection")

ConnFF.Open DSN

' Den skal benyttes til at lave opslag i den FFTabel

strSQL = "Select * From KundeTabel where LoginID = '" & Session("navn") & "'"

Set rs = Conn.Execute(strSQL)

If rs.eof Then

    Response.Write "Bruger findes ikke"

Else

    strNav = "" & rs("IDkunde") & ""

End If

strSQL1 = "Select * From BestilTabel where KundeID = " & strNav & ""

Set rs = Conn.Execute(strSQL1)

Do While Not rs.EOF

    strPlan = "" & rs("PlanteID") & ""

    strAntal = "" & rs("AntalID") & ""

    strPris = "" & rs("IDpris") & ""

    strUdr = "" & rs("UdregnID") & ""



    ' lav et link til SLETplante.asp med Id-vaerdien i URL

    strSlet = "<a href='SLETplante.asp?id=" & rs("IDplante") & "'>Slet</a>"

     

strSQL2 = "Select * From FFtabel where ID = " & strPlan & ""

Set rsFF = ConnFF.Execute(strSQL2)

Do While Not rsFF.EOF

    strTr = "<tr>"

    strBil = "<td class='norm' valign='bottom'><br><img src='../db/upload/" & rsFF("BilledeNavn") & "' height='28' width='28' border='1'>"

    strPlant = "<br>" & rsFF("SortID") & "&nbsp;" & rsFF("DKnavnID") & "&nbsp;</td><td class='norm' valign='bottom' align='right'>" & strAntal & "&nbsp;stk&nbsp;a</td><td class='norm' valign='bottom' align='right'>&nbsp;" & strPris & ".00&nbsp;kr.</td><td class='norm' valign='bottom' align='left'>Ialt</td><td class='norm' valign='bottom' align='right'>&nbsp;" & strUdr & ".00&nbsp;kr.</td>"

    strSlut = "<td class='links' valign='bottom'>&nbsp;" & strSlet & "</td></tr>"

    Response.Write strTr

    Response.Write strBil

    Response.Write strPlant

    Response.Write strSlut

rsFF.moveNext

Loop





rs.MoveNext

Loop

Conn.Close

ConnFF.Close

Set Conn = Nothing

Set ConnFF = Nothing

%>

Hvor vil du så have, at den lægger UdregnID sammen?

her?: ... align='right'>&nbsp;" & strUdr & ".00&nbsp;kr.</td>"

/theSurfer

Efter strSlut

Sådan her:

en ny som laver udregningen på loopen: strUdrIalt = "alt det jeg ikke kan finde ud af"

strIalt = "<tr><td class="norm" colspan="4" align="right">Ialt til betaling&nbsp;</td><td>&nbsp;" & strUdrIalt & ".00&nbsp;kr.</td></tr>"

strUdr er UdregnID

jeg ved ikke om jeg forstår dig helt. "I alt til betaling" skal den være i den inderste loop og derfor står flere steder på siden, eller skal den stå en gang sidst på siden?

I så fald kan du jo lægge alle id'erne sammen i loopen og når de er overstået udskrive den

Jeg tror at "strUdrIalt" er "totalt", dvs nederest på siden..

Eksempel:

strUdr = "" & rs("UdregnID") & ""
strUdrIalt = strUdrIalt + CInt(strUdr)

Så skal du bare udskrive strUdrIalt:

strIalt = "<tr><td class="norm" colspan="4" align="right">Ialt til betaling&nbsp;</td><td>&nbsp;" & strUdrIalt & ".00&nbsp;kr.</td></tr>"

/theSurfer

En gang sidst på siden....

Det kan jeg ikke forstå.... kan man ikke bare ligge dem sammen efterhånden, og det er jo ikke id det er jo " & strUdr & " der skal som skal ligges til " & strUdr & " ind til loopet er slut, og så skal resultatet  & strUdrIalt & vises.

Se 05/06-2005 16:41:10.

Husk at sætte strUdrIalt til 0 først:

dim strUdrIalt
strUdrIalt = 0

Do While Not rs.EOF

    strPlan = "" & rs("PlanteID") & ""

    strAntal = "" & rs("AntalID") & ""

    strPris = "" & rs("IDpris") & ""

    strUdr = "" & rs("UdregnID") & ""
strUdrIalt = strUdrIalt + CInt(strUdr)

og til sidst:

strIalt = "<tr><td class="norm" colspan="4" align="right">Ialt til betaling&nbsp;</td><td>&nbsp;" & strUdrIalt & ".00&nbsp;kr.</td></tr>"

/theSurfer

Ja det ligner noget af det rigtige tak...

Jeg prøver det lige af om en times tid, har ærinde nu, men lig begge et svar til mig.

fauer

Svar lagt :-)

/theSurfer

Svar

hmm.. jeg forstår ikke helt pointsfordelingen..?

/theSurfer