Evet arkadaşlar kaldığımız yerden yola devam ediyoruz.
Sıra geldi veritabanımızda bulunan kaydı nasıl güncelleriz bu konuda ufak bir örnek ile devam ediyoruz, yine aynı tablo ve bağlantımız ile kayıt güncelleme işlemi :
Tablo Adı : Kitaplar
CREATE TABLE `Kitaplar` (
`id` int(11) unsigned NOT NULL AUTO_INCREMENT,
`kitapadi` varchar(200) NOT NULL,
`yazar` varchar(200) NOT NULL,
`ucret` varchar(100) NOT NULL,
PRIMARY KEY (`id`)
);

<%
Dim varServer, varUser, varPass, varDb, Baglan
varServer = "localhost"
varUser = "root"
varPass = "admin"
varDb = "Kitaplar"
Set Baglan = Server.CreateObject("ADODB.connection")
Baglan.Open "DRIVER={MySQL ODBC 3.51 Driver};Server="&varServer&";Uid="&varUser&";Pwd=" &varPass&";DB="&varDb&";"
%>

Bir önceki makalemizde kayıtları listelemeyi görmüştük listelenen kayıtlar ile şimdi kayıt güncellemeyi öğreneceğiz.
Bu kısım zaten default.asp dosyamızda listeleniyor sadece ufak bir değişiklik yapıyoruz ve kayıt çağırmak için gerekli bilgileri bağlıyoruz.

<%
Set varListe = Baglan.Execute("SELECT * FROM Kitaplar")
%>
<table width="663" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="288"> Kitap Adı</td>
<td width="233">Yazar</td>
<td width="142">Ücret</td>
</tr>
<tr>
<td colspan="3" valign="top">
<table width="663" border="0" cellspacing="0" cellpadding="0">
<%Do While Not varListe.Eof%>
<tr>
<td width="288"><a href="kayitguncelle.asp?action=duzenle&kitapid=<%=varListe("id")%>"><%=varListe("kitapadi")%></a></td>
<td width="233"><%=varListe("yazar")%></td>
<td width="142"><%=varListe("ucret")%></td>
</tr>
<%varListe.MoveNext : Loop%>
</table></td>
</tr>
</table>

Default.asp dosyamız buraya kadar
Evet buraya kadar herşey tamam burada yaptığımız değişiklik sadece <a href="kayitguncelle.asp?action=duzenle&kitapid=<%= varListe("id")%>"> kaydı çağırmamız için bir link oluşturmamız; artık bu linke tıklandığı zaman kaydımızı güncelleme sayfamızı çağıracağız, bunun için kayitguncelle.asp dosyası oluşturalım.

<%
If Request.QueryString("action") = "duzenle" Then
Set varSorgu = Conn.Execute("SELECT * FROM Kitaplar WHERE id='"&id&"'")
%>
id = katapid değerini çağırdığımızda aşağıdaki form ekrana gelecektir.
<form method="post" action="default.asp?action=guncelle&kitapid=<%=varSorgu("id")%>">
<table width="44%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="24%">Kitap Adı</td>
    <td width="2%">:</td>
    <td width="74%"><input type="text" name="kitapadi" id="kitapadi" value="<%=varSorgu("kitapadi")%>"></td>
  </tr>
  <tr>
    <td>Yazar</td>
    <td>:</td>
    <td><input type="text" name="yazar" id="yazar" value="<%=varSorgu("yazar")%>"></td>
  </tr>
  <tr>
    <td>Fiyatı</td>
    <td>:</td>
    <td><input type="text" name="fiyat" id="fiyat" value="<%=varSorgu("fiyat")%>"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td><input type="submit" name="b2" value="Kaydet"></td>
  </tr>
</table>
</form>
<% varSorgu.Close : Set varSorgu = Nothing %>
<%End If%>

<%If Request.QueryString("action") = "guncelle" Then
id = Request.QueryString("kitapid")
kitapadi = Request.Form("kitapadi")
yazar = Request.Form("yazar")
fiyat = Request.Form("fiyat")
Set varKaydiGuncelle = Conn.Execute("UPDATE Kitaplar Set kitapadi='"&kitapadi&"', yazar='"&yazar&"', fiyat='"&fiyat&"' WHERE id='"&id&"'")
Response.Write("Tebrikler Kaydınız Güncellendi")
Response.End
varKaydiGuncelle.Close : Set varKaydiGuncelle= Nothing
End If
%>

Böylece default.asp de bulunan Kitap Adına tıkladığımızda SELECT * FROM Kitaplar WHERE id='"&id&"'" değeri ile ilgili kayda ulaşacağız, sonra ilgili kayıtta Kaydet butonuna tıklandığında UPDATE Kitaplar Set kitapadi='"&kitapadi&"', yazar='"&yazar&"', fiyat='"&fiyat&"' WHERE id='"&id&"'" bu değer ile ilgili kaydın içeriğini güncellemeiş olacağız.
Bir sonraki dersimiz kayıt nasıl silini bunu göreceğiz.
%>