Merhaba arkadaşlar, localde kullanabileceğim bir sevkiyat takip gibi birşey hazırlıyorum. Herşey tamam ama raporlama kısmında sıkıntı yaşadım. veritabanından listelediğim verilere checkbox ekledim ve işaretli olanların ID'lerini başka sayfaya gönderip, gelen ID'ye göre orada A4 yazılabilir hale getirdim. Fakat şöyle bir sorunla karşılaştım.

gelen verilerde Adet kısmı var ve bunların toplamını sayfanın altına yazdırmam gerekiyor.

set ckToplam = Conn.Execute("Select Sum (ckadet) As ckToplam from tbkayit")
Yaptığımda tablodaki bütün adetleri topluyor

set ckToplam = Conn.Execute("Select Sum (ckadet) As ckToplam from tbkayit where ID = "&x&"") şeklinde ID eklediğimde ise son listelenen adeti veriyor.

Nasıl ID'lerini çektiğim verilerin toplamını yazdırabilirim.



<%
nakliye=Request.Querystring("cknakliyeci")
ID=Request.Querystring("dok")
For Each x in Split(ID,",")

Set baglanti=Server.Createobject("Adodb.Connection")
baglanti.provider="Microsoft.Jet.Oledb.4.0"
baglanti.open Server.Mappath("logo.jpg.mdb")

sql="select * from tbkayit where ID = "&x&""
Set rs=baglanti.execute(Sql)

set ckToplam = Conn.Execute("Select Sum (ckadet) As ckToplam from tbkayit where ID = "&x&"")

if rs.eof then
response.write "Kayıt Bulunamadı !!!"
else
%>
<% do while not rs.eof %>

<%=rs("ID")%>
<%=rs("unvani")%>
<%=rs("ckadet")%>
<%
rs.movenext:loop
end if
next
%>



<%=ckToplam("ckToplam")%>