arkadaşlar bana bir konuda yardım lazım yardım lazım sitem üzerinde üyelerin bir birlerine oy vermeleri için kod hazırladım özellikleri
üye olmayan oy veremez
üye kendine oy veremez
ama bir noktada kilitlendim
şunuda belirtiyim database temizlenince hiç veri olmayınca yapıyo hatayı
**üyeler 1 kişiye sadece 1 oy verebilecek 2. oy olmuyacak
bu kodu yapamadım
not = oyları silme işlemi manuel olucak
yazdıgım kodun birazı altta ama şu kısım
if kontrol("kim")=kim then
kodundan
Hata Tipi:
(0x80020009)
Özel durum oluştu.
çıkıyo çözümünü bilen söylerse minnettar kalırım
Alıntı
Set kontrol = Server.CreateObject("ADODB.RecordSet")
sql_kontrol = "Select * from oylar where kime = '"&kuladi&"'"
kontrol.open sql_kontrol,bag,1,3
if kontrol("kime")=kime then
Response.write "<p><center><b>HATA : Bu üye için Oy kullanmışsınız<br><a href='javascript
:history.back()'><b>Geriye dön</b></a>"
else
if kime=kim then
Response.write "<p><center><b>HATA : Kendinize oy kullanamazsınız<br><a href='javascript
:history.back()'><b>Geriye dön</b></a>"
else
if kim = "" then
Response.write "<p><center><b>HATA : Oy kullana bilmek için üye olmanız gerekiyor<br><a href='javascript
:history.back()'><b>Geriye dön</b></a>"
else
Set kaydet = Server.CreateObject("ADODB.RecordSet")
sql_kaydet = "Select * from oylar"
kaydet.open sql_kaydet,bag,1,3
kaydet.addnew
kaydet("kime") = kime
kaydet("kim") = kim
kaydet("puan") = puan
kaydet.update
kaydet.close
set kaydet = Nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
end if
end if
