I´ve the folloing code:
Expand|Select|Wrap|Line Numbers
- <%
- pat = Request.Form("rapport")
- Set vbalans = Server.CreateObject("ADODB.Connection")
- vbalans.Provider = "Microsoft.Jet.OLEDB.4.0"
- MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb")
- vbalans.ConnectionString = "Data Source='" & MdbFilePath & "'"
- vbalans.open
- strSQL = "SELECT f.FluidNamn, f.FluidID, v.Dag, v.PatID, v.Volym,
- v.Energi," &_
- " p.ftEnamn, p.ftFnamn FROM (tblVetskebalans v INNER JOIN
- tblFluids f"&_
- " ON v.FluidID = f.FluidID) INNER JOIN tblPersonuppgifter p
- ON v.PatID = p.PatID" &_
- " WHERE p.PatID = "& pat &""
- Set rs1 = vbalans.Execute (strSQL)
- 'formatera till svensk personnummer
- Function SvPnr(txt)
- personnummer =Left(txt,6) & " - " & Right(txt,4)
- SvPnr = personnummer
- End Function
- Function FirstVersal(txt)
- versal = UCase(Left(txt,1)) & LCase(Right(txt, Len(txt)-1))
- FirstVersal = versal
- End Function
- Response.Write SvPnr(rs1("PatID")) & "<BR>"
- Response.Write "<B>" & FirstVersal(rs1("ftEnamn")) & ", " &
- FirstVersal(rs1("ftFnamn")) & "</B><P><P><P>"
- %>
- <TABLE border=1>
- <TR>
- <TD><B>Datum</B></TD>
- <TD><B>Vätska</B></TD>
- <TD><B>Volym</B></TD>
- <TD><B>Energi</B></TD>
- </TR>
- <%
- v = 0
- e = 0
- dat = ""
- Do While Not rs1.EOF
- v = v + cint(rs1("Volym"))
- e = e + cint(rs1("Energi"))
- If dat <> CDate(rs1("Dag")) then
- dat = CDate(rs1("Dag"))
- Response.Write "<TR><TD>" & CDate(rs1("Dag"))& "</TD>"
- Response.Write "<TD>" & rs1("FluidNamn") & "</TD>"
- Response.Write "<TD>" & rs1("Volym") & "</TD>"
- Response.Write "<TD>" & rs1("Energi") & "</TD></TR>"
- Else
- Response.Write "<TR><TD> </TD>"
- Response.Write "<TD>" & rs1("FluidNamn") & "</TD>"
- Response.Write "<TD>" & rs1("Volym") & "</TD>"
- Response.Write "<TD>" & rs1("Energi") & "</TD></TR>"
- End If
- rs1.MoveNext
- Loop
- vbalans.Close
- Set vbalans = Nothing
- %>
- </TABLE>
- <BR><BR><BR>
- <%
- Response.Write "<B><U>Totala volymen är</U></B>" & ": " & v &
- "<BR>"
- Response.Write "<B><U>Totala energi är</U></B>" & ": " & e &
- "<BR>"
111111 - 1111
Elvansson, Elvan
Datum Vätska Volym Energi
2004-03-21 Blod 1000 0
Sondmat 550 275
Sondmat 550 275
Sondmat 50 35
2004-04-29 Albumin 76 0
2004-05-02 Proviva 123 0
Totala volymen är: 2849
Totala energi är: 825
But I would like the add upp for each datum:
i.e 2004-03-21 totVolym= 2150 and energi = 585
Can you please help me with this code?
All help we´ll be appiciated
/Peter L