asp de split ile ayırdığım kayıtları toplayamıyorum. Acil yardım!!!

24-11-2018, 18:31:18

Kimlik doğrulama veya yönetimden onay bekliyor.

Merhaba Arkadaşlar;
Bir sistem içerisinde soru-cevap sistemi yaptım. Soruları soruyorum. Cevapları da ip ile (12,13,15) şeklinde yazdırıyorum "soru_ip" adlı tabloya.
"cevap" sutununda verilen, virgül ile ayrılan rakamların aynı olanlarının toplam sayılarını yazdırmak istiyorum.

yazdığım kod;

id=22
set tur_index=server.CreateObject("adodb.Recordset")
sql="select * from soru_soru where event_id="& id &" order by id asc"
tur_index.open sql,murat,1,3

for a = 0 to tur_index.recordcount
do while not tur_index.eof
response.write tur_index("soru")

set tr=server.CreateObject("adodb.Recordset")
sql="select * from soru_ip where event_id="& id &" order by id asc"
tr.open sql,murat,1,3
do while not tr.eof
gelenveri = tr("cevap")
gelenveriParcala = Split(gelenveri,",")
gelenveriAdeti = Ubound(gelenveriParcala)
Response.Write gelenveriParcala(a)&"-"
set strBC = murat.execute("select * from soru_cevap where id="& gelenveriParcala(a) &" Group by soru_id order by id asc;")
Response.Write strBC("cevap")&"|<br>"
'strBC.RecordCount
response.write "<br>"

strBC.close
tr.movenext
loop
tr.close

tur_index.movenext
a = a + 1
loop
next
tur_index.close

sonuc bu şekilde;

0Yemeklerimizi beÄendiniz mi?
26-deneme cevap 1| 127.0.0.111

27-deneme cevap 2| 127.0.0.122

26-deneme cevap 1| 127.0.0.1

28-deneme cevap 3| 178.243.45.132

29-deneme cevap 4| 213.74.248.178

29-deneme cevap 4| 95.6.46.251

27-deneme cevap 2| 178.243.45.137

26-deneme cevap 1| 178.243.45.138

26-deneme cevap 1| 176.238.29.242

1Konferans Organizasyonumuz Sizce NasÄ±l Oldu?

30-deneme cevap 1| 127.0.0.111

31-deneme cevap 2| 127.0.0.122

31-deneme cevap 2| 127.0.0.1

31-deneme cevap 2| 178.243.45.132

31-deneme cevap 2| 213.74.248.178

32-deneme cevap 3| 95.6.46.251

32-deneme cevap 3| 178.243.45.137

33-deneme cevap 4| 178.243.45.138

33-deneme cevap 4| 176.238.29.242

acil yardım arkadaşlar!!!

24-11-2018, 20:26:40

#2