Sayfa ID Düzenleme

duzenle.asp?id=1 - Bu sayfa çalışıyo veri ekrana geliyo
<%
set Baglanti= Server.CreateObject("ADODB.Connection")
Baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/6969.mdb"))
ID=Request.QueryString("ID")
Set veriduzenleme = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from kurumsal where ID=" & ID
veriduzenleme.Open Sorgu,Baglanti,1,3
%>
<form method="POST" action="guncelle.asp">
<input type="hidden" name="ID" value="<%=veriduzenleme("ID")%>">
<input type="text" name="mesaj" size="34" maxlength="250" value="<%=veriduzenleme("kurum")%>">
<input type="submit" value="Güncelle" name="Gönder">
</form>
<%
veriduzenleme.Close
Set veriduzenleme=Nothing
%>




guncelle.asp - bu sayfada veri güncellenmiyo nerde hata yapıyorum acaba?
<%
set Baglanti= Server.CreateObject("ADODB.Connection")
Baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/6969.mdb"))
%>
<%
ID=Request.Form("ID")
kurum=Request.Form("kurum")
If ID="" or kurum="" then
%>
Uyarı: Kayıt numarası alınamadı veya mesaj alanını boş bıraktınız.
<%
else
Set veriguncelleme = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from kurumsal where ID=" & ID
veriguncelleme.Open Sorgu,Baglanti,1,3
veriguncelleme("kurum")=kurum
veriguncelleme.Update
veriguncelleme.close 
set veriguncelleme=nothing
%>
Veriniz Güncellenmiştir.
<% end if %>