5 svar · 197 visningar · startad av Bj
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?
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.
------------------
essentitia preter non sans multiplicandum
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!
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.
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 & " "
%>
------------------
essentitia preter non sans multiplicandum
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
%>