Kayıt Güncelleme Sorunu

Arkadaşlar merhabalar,

sorunum şu şekilde,
alt alta textboxlar içinde dbden çektiğim veriler var.her satırın yanında bir adet güncelle linki bulunmakta.Ancak verileri değiştirip ilgili satırın güncelle linkine tıkladığımda işlemi yapmış gibi gösteriyor ancak bütün veriler eski haline dönüyor.Kodlar aşağıda.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

<%
set rsaidat = Server.CreateObject("ADODB.Recordset")
rsaidat.open "select * from 2008aidat",baglan,3,3
guncelle = request.QueryString("guncelle")
aidat2008id = request.QueryString("aidat2008id")

If guncelle = "guncelle" Then

baglan.execute("select * from 2008aidat Where aidat2008id=" & aidat2008id)
rsaidat("katmalik") = request.Form("katmalik")
rsaidat("ocak") = request.Form("ocak")
rsaidat("subat") = request.Form("subat")
rsaidat("mart") = request.Form("mart")
rsaidat("nisan") = request.Form("nisan")
rsaidat("mayis") = request.Form("mayis")
rsaidat("haziran") = request.Form("haziran")
rsaidat("temmuz") = request.Form("temmuz")
rsaidat("agustos") = request.Form("agustos")
rsaidat("eylul") = request.Form("eylul")
rsaidat("ekim") = request.Form("ekim")
rsaidat("kasim") = request.Form("kasim")
rsaidat("aralik") = request.Form("aralik")
rsaidat.update
response.Redirect("admin2008aidat.asp")

End If

%>

buda güncelle linki :

<a href="admin2008aidat.asp?guncelle=guncelle&aidat20 08id=<%=rsaidat("aidat2008id")%>">

update stringini şu şekilde yap

Degisken=Request.Form("degisken")

Set Guncelle=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM tablom"
Guncelle.Open sql,Baglanti,1,3

Guncelle.Update
Guncelle("hucre")=Degisken
Guncelle.Update

Guncelle.Close : Set Guncelle=Nothing

Response.redirect "default.asp"