Lägga ihop värden av checkbox

5 svar · 219 visningar · startad av Bj 3 feb. 2002

BjMedlem sedan sep. 2000314 inlägg

Trådstart3 feb. 2002 20:53#1

Nu skall vi se om jag kan förklara vad jag vill fråga om.
Jag tar fram en sida med obetalda medlemsavgifter (fakturor)genom följande:

WHERE betald=false

Där checkboxens namn är betald.
Sedan bockar jag i kryssrutorna för de som betalar och skickar till en sida som heter betala2.asp som delvis ser ut så här:

mSQL="UPDATE orders set betald=1 WHERE Faktnr IN(" & request("betala") & ")"
connect.execute mSQL

I databasen har jag ett textfält som i ett tidigare skede räknat fram totalbeloppet av fakturan. Detta fält heter "totalt"
Finns det någon möjlighet att när man bockar i och sedan skickar till betala2.asp att det på något sätt räknar fram den totala summan som är betald vid just detta tillfälle?

LarsGMedlem sedan dec. 200012 464 inlägg

3 feb. 2002 21:22#2

Något liknande detta

sql = "select sum(totalt) from orders where Faktnr IN(" & request("betala") & ")"

Det förutsätter dels att jag har förstått din luddiga beskrivning och dels att totalt är numeriskt och inte text.

BjMedlem sedan sep. 2000314 inlägg

4 feb. 2002 07:08#3

Luddigt var ordet LarsG...

Nej, fältet "totalt" är text...
Och hur visar man resultatet på betala2.asp med ditt exempel här ovan?

mSQL="UPDATE orders set betald=1 WHERE Faktnr IN(" & request("betala") & ")"
	connect.execute mSQL

	Connect.Close
	%>
<br><br>SUMMA MEDLEMSAVGIFTER XXXXXXXX: ÄR NU AVBOKADE OCH LIGGER SOM BETALDA!

BjMedlem sedan sep. 2000314 inlägg

4 feb. 2002 13:26#4

Har försökt på flera sätt utan att lyckas. Senast testade jag detta.

	<%
	Set Connect = Server.CreateObject("ADODB.Connection")
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Connect.Open "DSN=databasen;UID=;PWD="

	mSQL="UPDATE orders set betald=1 WHERE Faktnr IN(" & request("betala") & ")"
	SQL = "SELECT SUM(totalt) AS TotalBetalning FROM orders WHERE Faktnr IN(" & request("betala") & ")"
	connect.execute mSQL
	Connect.Close
	%>

<font face="verdana" size="2">
<br><br><br><br><center><b>

<% Response.Write "Fakturor med nummer " & request("betala") & ", är avbokande och ligger som betalda" %></b><br>
<% Response.Write " " & request("TotalBetalning") & " " %>

Nu visar den vilka fakturor som är betalda men inget visas om totalsumman.

LarsGMedlem sedan dec. 200012 464 inlägg

4 feb. 2002 15:59#5

Du får byta datatyp på kolumnen total till number.

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Open "DSN=databasen;UID=;PWD="
mSQL="UPDATE orders set betald=1 WHERE Faktnr IN(" & request("betala") & ")"
connect.execute mSQL
mSQL = "SELECT SUM(totalt) AS TotalBetalning FROM orders WHERE Faktnr IN(" & request("betala") & ")"
set rs = connect.execute(mSQL)
total = rs(0)
if isnull(total) then total = 0
rs.close
connect.close
%>

<font face="verdana" size="2">
<br><br><br><br><center><b>

<% Response.Write "Fakturor med nummer " & request("betala") & ", är avbokande och ligger som betalda" %></b><br>
<% Response.Write " " & Total & " " 
%>

BjMedlem sedan sep. 2000314 inlägg

4 feb. 2002 16:14#6

Löste det för en liten stund sedan på följande sätt. Verkar funka men skall även testa det du gjort. Tack LarsG!!!

	<%
	Set Connect = Server.CreateObject("ADODB.Connection")
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Connect.Open "DSN=databasen;UID=;PWD="

	mSQL="UPDATE orders set betald=1 WHERE Faktnr IN(" & request("betala") & ")"
	connect.execute mSQL

	SQL = "SELECT SUM(totalt) AS TotalBetalning FROM orders WHERE Faktnr IN(" & request("betala") & ")"
    	RecSet.Open SQL, Connect
	%>

<font face="verdana" size="2">
<br><br><br><br><center><b>

<% Response.Write "Fakturor med nummer " & request("betala") & ", är avbokande och ligger som betalda" %><br><br>
med en total inbetalning idag på: <% = RecSet("TotalBetalning") %> kronor</b><br><br>
	<%
	RecSet.Close
	Set RecSet = Nothing
	Connect.Close
	Set Connect = Nothing
	%>