Gönderen: 09-Ocak-2008 Saat 22:33 | Kayıtlı IP

asp de kayıt düzenleme işlemi yapmak istiyorum.

duzenle.asp kodları

<%
id = Request.Querystring("id")
If Not Isnumeric(id) Or Len(id)=0 Then
mesaj "Yanlış Sorgu Cümlesi"
End If
'----------------------------------------------------------- ------------------------
Veri_yolu = Server.MapPath("proje.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set kset = bag.execute("SELECT * FROM sepet where id=" & id)
If kset.eof Then
mesaj "Olmayan Kayıt İstendi"
End If
%>
<center><a href="kayitlar_sepet.asp">Kayıtlar</a>
<form method=post action="guncelle_sepet.asp">
<table border=1>
<tr>
<td>Sepet Numarası</td>
<td><input type="text" name="sepet_no" value="<%= kset("sepet_no") %>"></td>
</tr>
<tr>
<td>Tarih</td>
<td><input type="text" name="tarih" value="<%= kset("tarih") %>"></td>
</tr>
<tr>
<td>Kitap Adı</td>
<td><input type="text" name="kitap_adi" value="<%= kset("kitap_adi") %>"></td>
</tr>
<tr>
<td>Müşteri İsim</td>
<td><input type="text" name="musteri_isim" value="<%= kset("musteri_isim") %>"></td>
</tr>
<tr>
<td>Müşteri Soyisim</td>
<td><input type="text" name="musteri_soyisim" value="<%= kset("musteri_soyisim") %>"></td>
</tr>
<tr>
<td>Müşteri E-posta</td>
<td><input type="text" name="eposta" value="<%= kset("eposta") %>"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="güncelle"></td></tr>
</table>
<input type="hidden" name="id" value="<%= kset("id") %>">
</form>
<%
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing
%>
<%'--------------------------%>
<% Sub mesaj(msg) %>
<p><%= msg %></p>
<% response.end %>
<% End Sub %>
<%'--------------------------%>

güncelle asp kodları ise,

<%
id=request.QueryString("id")
if id="" then
    id = 0
end if
sepet_no = Request.Form("sepet_no")
tarih = Request.Form("tarih")
kitap_adi = Request.Form("kitap_adi")
musteri_isim = Request.Form("musteri_isim")
musteri_soyisim = Request.Form("musteri_soyisim")
eposta = Request.Form("eposta")
'----------------------------------------------------------- ------------------------
Veri_yolu = Server.MapPath("proje.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
 Set kset = Server.Createobject("ADODB.Recordset")
sql = "UPDATE sepet SET sepet_no = '" & sepet_no & "', tarih = '" & tarih & "', kitap_adi = '" & kitap_adi & "', musteri_isim = '" & musteri_isim & "', musteri_soyisim = '" & musteri_soyisim & "', eposta = '" & eposta & "' WHERE id = " & id
Set kset = bag.execute(sql)
Set kset = Nothing
bag.Close
Set bag = Nothing
Response.Write "<p>Kayıt Güncellendi.</p>"
Response.Write "<p><a href=""kayitlar_sepet.asp"">Kayıtlar</a></p>"
%>

şimdi burda duzenle asp yi çalıştırıyorum.kayıtı düzeltiyorum.güncelle butonuna basıyorum..guncelle asp çalışıyor.kayıt güncelledi yazıyor.ancak kayıta baktığımda kayıtın eskisi gibi durduğunu gördüm.yani kayıtım düzenlenmiyo.sebebini anlayamadım.

UMARIM DERDİMİ ANLATABİLMİŞİMDİR.

ÖDEV HAZIRLIYORUM.YARDIMLARINIZI BEKLİYORUM.