db ye tekrar bos kayıt atıyor:(

her cevaptansonra db mdeki toplamaları yapıyor fakat uye ismi yazıp karsına "0" değeri atıyor uye her cevapladıgında toplamalıyor altına bos alan atınca yer kaplıyor kodda ne hata var baksanız

<meta http-equiv="Content-Language" **********tr">

<%

if session("uyedurum") = True Then

%>

<%

Set Baglanti = Server.CreateObject("ADODB.Connection")

Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("denemem.mdb")

%>

<%

sql = "Select * from puan"

Set mahir = Server.CreateObject("Adodb.Recordset")

mahir.Open sql,Baglanti,1,3

%>

<%

mahir.AddNew

mahir("kadi")=session("kadi")

mahir.Update

%>

<%

sql = "Select * from puan WHERE kadi='"&session("kadi")&"'"

Set mahir = Server.CreateObject("Adodb.Recordset")

mahir.Open sql,Baglanti,1,3

mahir("puan")=mahir("puan")-5

mahir("dogru")=mahir("dogru")+0

mahir("yan")=mahir("yan")+1

mahir("toplam")=mahir("dogru")+mahir("yan")

mahir.Update

%>
<META ********************* **********0;URL= yanlis.asp?msg=yanlis">

<%

else

response.redirect "default.asp"

end if

%>


yazan su db deneden dogru topladıgı halde sagı satırlara bos bos "0" veriyor kodda ne yanlıs :cry:

puan kuid kadi puan dogru yan toplam

35 123456 56 12 3 30

37 123456 0 0 0 0

38 123456 0 0 0 0

39 123456 0 0 0 0