Hej!

Jag har i en access bas bl.a. uppgifter om försäljningskontrakt.
Kontraktsnummer, datum och försäljningsbelopp.
Jag håller på att göra en funktion för att räkna ut lön för detta.

Jag väljer från ett formulär mellan vilka datum som jag vill hämta kontrakt. Dessa visas sedan i en tabellform.

Problemet som jag behöver hjälp med är att jag vill summera alla försäljningsbelopp från dom hämtade kontrakten, och visa denna summa.

<%

Dim from_date
Dim to_date

from_date = Request.Form ("from_date")
to_date = Request.Form ("to_date")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\Bas 1.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
ShowContracts = "SELECT ContractNumber, Datum, TotalSalesInEuro FROM Contract2000 WHERE Datum Between #" & from_date &"# And #" & to_date & "# Order By Datum"
RecSet.Open ShowContracts, Connect, adOpenStatic, adLockOptimistic
%>
<left>
<table width="60%" Border="0">
<tr>
<td width="30%" align="center"><b>Contract</b></td>
<td width="40%" align="center"><b>Date</b></td>
<td width="30%" align="right"><b>Total Sales</b></td>
</tr>
</left>
<% Do Until RecSet.EOF %>
<left>
<tr>
<td align="center" width="30%"><% =RecSet("ContractNumber") %></td>
<td align="center" width="40%"><% =RecSet("Datum") %></td>
<td align="right" width="30%"><% =RecSet("TotalSalesInEuro") %>&nbsp;Euro</td>
</tr>
</left>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>

</table>

Tacksam för all hjälp

Peter

<code>
Eftersom du ändå loopar igenom RS:et kan du ju summera i en variablel, såhär:

<%

Dim from_date
Dim to_date

from_date = Request.Form ("from_date")
to_date = Request.Form ("to_date")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\Bas 1.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
ShowContracts = "SELECT ContractNumber, Datum, TotalSalesInEuro FROM Contract2000 WHERE Datum Between #" & from_date &"# And #" & to_date & "# Order By Datum"
RecSet.Open ShowContracts, Connect, adOpenStatic, adLockOptimistic
%>
<left>
<table width="60%" Border="0">
<tr>
<td width="30%" align="center">Contract</td>
<td width="40%" align="center">Date</td>
<td width="30%" align="right">Total Sales</td>
</tr>
</left>
<% Do Until RecSet.EOF %>
<left>
<tr>
<td align="center" width="30%"><% =RecSet("ContractNumber") %></td>
<td align="center" width="40%"><% =RecSet("Datum") %></td>
<td align="right" width="30%"><% =RecSet("TotalSalesInEuro") %>&nbsp;Euro</td>
</tr>
</left>
<%
Summa = Summa + RecSet("TotalSalesInEuro")
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
<td align="center" width="30%">Summa</td>
<td align="center" width="40%"> </td>
<td align="right" width="30%"><% =Summa %>&nbsp;Euro</td>



Om du vill plocka ut summan med en egen SQL-Sats kan du göra såhär:


<%

Dim from_date
Dim to_date

from_date = Request.Form ("from_date")
to_date = Request.Form ("to_date")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\Bas 1.mdb"

Set RecSet = Server.CreateObject("ADODB.Recordset")
ShowContracts = "SELECT Sum(TotalSalesInEuro) FROM Contract2000 WHERE Datum Between #" & from_date &"# And #" & to_date & "#"
RecSet.Open ShowContracts, Connect, adOpenStatic, adLockOptimistic

Response.Write "Summa: " & RecSet(0)

RecSet.Close
Connect.Close
%>


/Johan

ShowContracts = "SELECT Datum, sum(TotalSalesInEuro) as TotalSalesInEuro
FROM Contract2000 WHERE Datum Between #" & from_date &"# And #" & to_date & "#
group by datum,
Order By Datum"

Perlemo:
Din SQL-sats kommer summera per datum, om jag inte tolkar frågan fel så är det totalsumman som efterfrågas...

/Johan

ShowContracts = "SELECT sum(TotalSalesInEuro) as TotalSalesInEuro
FROM Contract2000 WHERE Datum Between #" & from_date &"# And #" & to_date & "# " då!

Då kan man ju fundera på vad som skiljer ditt svar från mitt... (om man bortser från att du har namngivit resultatet då...)?

/Johan

Oj, hemskt ledsen. Läste ditt inlägg slarvigt, mao, ingen skillnad.