Udregn totalpris fra databasen i loop. ASP/ACCESS
Hej Geni'er...Jeg har en side "recordztest.asp" der viser noget data fra min database/access.
I databasen har jeg en ROW der hedder = Total_allincluded1 - med tal.
Jeg vil gerne vise resultatet af ovenstående Row, sammenlagt.
Dvs. Total_allincluded1 + Total_allincluded1 i loop =?
Og så vise resultatet i et Textfield.
Jeg har vedlagt hele ASPkoden.
Det skulle være let at se/grafisk hvad jeg mener, hvis man indsætter koden i en Editor.
Mvh Ian/ChakaZulu
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/e-shop.mdb")
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"
'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT Kvitteringer.* FROM Kvitteringer Order By kvitteringsID Asc;"
'Open the recordset with the SQL query
rsGuestbook.Open strSQL, adoCon
%>
<html>
<table width="747" border="1" cellspacing="0" cellpadding="3" bordercolor="#000000">
<tr>
<td>
<table width="735" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="20%">
<div align="center">
<a href="order_frameset.asp"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Go to start</font></a></div>
</td>
<td width="20%">
<div align="center">
<font face="Verdana, Arial, Helvetica, sans-serif"><font size="2"><a href="search_record.asp">Søg på indbetalinger</a></font></font></div>
</td>
<td width="20%">
<div align="center">
</div>
</td>
<td width="20%">
<div align="center">
</div>
</td>
<td width="20%">
<div align="center">
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%
'Write the HTML to display the current record in the recordset
'Loop through the recordset
Do While not rsGuestbook.EOF
%><%
Response.Write ("<TABLE BORDER=1 cellspacing=0 cellpadding=1 bordercolor=#ffffff bgcolor=#eeeeee>")
Response.Write ("<tr>")
Response.Write ("<td width=100><b><font face=verdana size=1>")
Response.Write ("navn")
Response.Write ("</b></td></font>")
Response.Write ("<td width=100><b><font face=verdana size=1>")
Response.Write ("Adr")
Response.Write ("</b></td></font>")
Response.Write ("<td width=100 ><b><font face=verdana size=1>")
Response.Write ("Post nr")
Response.Write ("</b></td></font>")
Response.Write ("<td width=100 ><b><font face=verdana size=1>")
Response.Write ("By")
Response.Write ("</b></td></font>")
Response.Write ("<td width=200><font face=verdana size=1>")
Response.Write ("Email")
Response.Write ("</td></font>")
Response.Write ("<td width=100 ><font face=verdana size=1>")
Response.Write ("Tlf")
Response.Write ("</td></font>")
Response.Write ("<td width=100><b><font face=verdana size=1>")
Response.Write ("Besked")
Response.Write ("</b></td></font>")
Response.Write ("<td width=100 ><b><font face=verdana size=1>")
Response.Write ("<a title=Se kvitteringen a href=""orderrecord_delete.asp?ID=" & rsGuestbook("kvitteringsID") & """><b>")
Response.Write ("Kvittering")
Response.Write ("</b></td></font>")
Response.Write ("<td width=100 ><b><font face=verdana size=1>")
Response.Write ("Dato")
Response.Write ("</b></td></font>")
Response.Write ("<td width=200><font face=verdana size=1>")
Response.Write ("Ialt Ex. Moms")
Response.Write ("</td></font>")
Response.Write ("<td width=100 ><font face=verdana size=1>")
Response.Write ("MOMS")
Response.Write ("</td></font>")
Response.Write ("<td width=100 ><font face=verdana size=1>")
Response.Write ("IALT Incl. Moms")
Response.Write ("</td></font>")
Response.Write ("<td width=100 ><font face=verdana size=1>")
Response.Write ("Betalingstype")
Response.Write ("</td></font>")
Response.Write ("<td width=100 ><font face=verdana size=1><b>")
Response.Write ("<font color=#d80e15>")
Response.Write ("SLET - ID nr.:")
Response.Write ("</b></td></font>")
Response.Write ("</tr>")
Response.Write ("<tr>")
Response.Write ("<td><font face=verdana size=1>")
Response.Write (rsGuestbook("OrderForm_Name1"))
Response.Write ("</td></font></div>")
Response.Write ("<td><font face=verdana size=1>")
Response.Write (rsGuestbook("OrderForm_Street1"))
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=Left>")
Response.Write (rsGuestbook("OrderForm_Postalcode1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=center>")
Response.Write (rsGuestbook("OrderForm_city1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=center>")
Response.Write (rsGuestbook("OrderForm_email1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=center>")
Response.Write (rsGuestbook("OrderForm_phone1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><font color=#4c3bee><div align=center>")
Response.Write (rsGuestbook("OrderForm_Message1"))
Response.Write ("</td></font></div>")
Response.Write ("<td><font face=verdana size=1>")
Response.Write ("<a title=Se_kvittering a href=""se_kvittering.asp?ID=" & rsGuestbook("kvitteringsID") & """><b>")
Response.Write ("Se kvittering<br>Klik her!")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=Left>")
Response.Write (rsGuestbook("dato2"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=center>")
Response.Write (rsGuestbook("AddShipping1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=center>")
Response.Write (rsGuestbook("AddTax1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=center>")
Response.Write (rsGuestbook("Total_AllIncluded1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><div align=center>")
Response.Write (rsGuestbook("OrderForm_Company1"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("<td height=30><font face=verdana size=1><font color=#4c3bee><div align=center>")
Response.Write ("<a title=SLET a href=""orderrecord_delete.asp?ID=" & rsGuestbook("kvitteringsID") & """><b>")
Response.Write (rsGuestbook("kvitteringsID"))
Response.Write ("<br>")
Response.Write ("</td></font></div>")
Response.Write ("</tr>")
Response.Write ("</td>")
Response.Write ("</TABLE>")
Response.Write ("<TABLE><b>")
Response.Write ("<tr>")
Response.Write ("<td>")
Response.Write ("<font face=verdana size=1>")
Response.Write ("Slet Database ID nr. ")
Response.Write ("<font color=#d80e15>")
Response.Write ("<a title=SLET a href=""orderrecord_delete.asp?ID=" & rsGuestbook("kvitteringsID") & """><b>")
Response.Write (rsGuestbook("kvitteringsID"))
Response.Write ("</font>")
Response.Write ("<br>")
Response.Write ("</td>")
Response.Write ("</tr>")
Response.Write ("</b></TABLE>")
Response.Write ("<br>")
%></font><font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif">Ialt Incl. Moms: </font><font size="1" color="black" face="Verdana, Arial, Helvetica, sans-serif"><b>ID_NR <% Response.Write (rsGuestbook("kvitteringsID")) %><br>
</b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="Pris" value="<%Response.Write (rsGuestbook("Total_AllIncluded1"))%>" size="20">
<br><br><br><br>
<%
'Move to the next record in the recordset
rsGuestbook.MoveNext
Loop
%><%
'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%></font></td>
</tr>
<tr>
<td>
<div align="right">
<i>Vis Total værdien af <font color="#999999">Total_allincluded1</font> fra min Access Database</i><br>
<font size="2" color="#ff3300" face="Verdana, Arial, Helvetica, sans-serif"><b>Subtotal</b></font> = <input type="text" name="textfieldName" size="24"><br>
<br>
</div>
</td>
</tr>
<tr>
<td><a href="order_frameset.asp">Go to start</a></td>
</tr>
</table>
</body>
</html>
