kayıt düzenleme yardım

arkadaşlar kayıt düzenlemek için kullandığım şağıdaki kodlar hep boş kayıt olark düzeltiyor veriyi boşaltıyor neydendir acaba_?
-----------------------------------

<%
id = request.QueryString("id")
db="kariyervt.mdb" 
Set baglanti = Server.createobject("adodb.connection" ) 
baglanti.open " Provider = Microsoft.jet.oledb.4.0;Data source= "&Server.mappath(""&db&"" ) 
set rskisiler = server.createobject("ADODB.Recordset")
rskisiler.open "Select * from kisiler where id=" & id,baglanti,1,3 
If request.ServerVariables("REQUEST_METHOD")="POST" Then
  rskisiler("adi") = request.Form("adi")
  rskisiler("ice") = request.Form("ice")
  rskisiler.update
  response.Redirect("guncelle.asp?id=" & id)
End if
%>
<table width="201" border="3">
  <tr>
    <td width="54">adi</td>
    <td width="8">:</td>
    <td width="113"><form id="form1" name="form1" method="post" action="">
      <label>
        <input name="adi" type="text" id="adi" value="<%=rskisiler("adi")%>" />
        </label>
    </form>    </td>
  </tr>
  <tr>
    <td>soyadi</td>
    <td>:</td>
    <td><input name="ice" type="text" id="ice" value="<%=rskisiler("ice")%>" /></td>
  </tr>
  <tr>
    <td>yaşı</td>
    <td>:</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td><form id="form2" name="form2" method="post" action="">
      <label>
        <input type="submit" name="Submit" value="G&uuml;ncelle" />
        </label>
    </form>
    </td>
  </tr>
</table>

<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/datam.mdb")

id=Request.QueryString("id")
Set uranyumsoft = Server.CreateObject("ADODB.Recordset")
sor = "Select * from tablon where id="&id
uranyumsoft.Open sor,Sur,1,3

islem=Request.QueryString("islem")
if islem="duzenle" then
call duzenle
end if
%>


<form method="POST" action="guncelle.asp?id=<%=("id")%>&islem=duzenle" >
<input type="hidden" name="id" value="<%=("adi")%>">
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#D1D1D1">
<tr>
<td bgcolor="#999999" height="20">
<p align="center"><b><font color="#FFFFFF">uye Düzenleme</font></b>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="100%" cellspacing="1" align="left">
<tr>
<td width="14%" align="right">ice :</td>
<td width="86%">
<input type="text" size="25" class="form1" value="../<%=("adi")%>" name="resim">
</td>
</tr>
<tr>
<td width="14%" align="right">adi:</td>
<td width="86%">
<input type="text" name="urun" size="25" class="form1" value="<%=("ice")%>">
</td>
</tr>
</div>
</td>
</tr>
<tr>
<td width="14%"></td>
<td colspan="2" width="86%">
<div align="right">
<input type="submit" name="Submit" value="ekle">&nbsp;
</div>
</tr>
</table>
</div>
</form>



<%
sub duzenle
id=Request.Form("adi")
urun= request.form("ice")

if id="" then
Response.Write "Hata! Eksik bilgi"

else
Set duz = Server.CreateObject("ADODB.RecordSet")
sor = "select * from tabloadın where id="&id
duz.open sor, Sur, 1, 3

duz("adi") =urun
duz("urun") =resim

duz.Update

Response.Write "<center><font face=verdana color=black size=1>Bilgiler Güncellendi<br><a href=../default.asp>Ana Sayfa</a></font></center>"

Response.End
end if
end sub
%>

kendine gore duzenlersen calisacaqini umuyorum ama uykusuzum test edemedim bi eksiklik varsa yazarsin yine halletmeye calisiriz inş sacmalamamisimdir

1- Kayıt işlemini kodun sonunda gerçekleştir, kodun üstünde ki işlevi görmez
2- Boşu boşuna her sayfada veritabanına bağlanma, bi veritabanı bağlantısı yap (include ile)
3- Recordset ile bağlanmadan önce request.Form("adi") işlevlerini adi= request.Form("adi")
olarak al
4- Recordset bağlandıktan sonra recordset kodunla bunları update et. Örneğin ekle("adi")= [Tabloda Eklenecek Yer]

Bu sorunları düzelttin mi update edecektir...

Merhaba,

Kodları pek açıklayıcı göremedim. O yüzden mantık yürütmeyi uygun görüyorum. Eğer veritabanında id ile belirttiğin kayıt düzenlenmiyor içleri boşalıyorsa muhtemelen request metodu ile almaya çalıştığın değişken isimleri hatalıdır. Bunu kontrol etmeni tavsiye ederim.

Saygılarımla
Emin ÖZTÜRK