UYEMAX

<% response.buffer = True %> <% Set Con=Server.Createobject("ADODB.Connection") con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/ziyaretci.mdb") id = request.querystring("id") set rs=Con.execute("SELECT * FROM ziyaretciler WHERE id = " & id) %> UYEMAX <% if Request("guncelle") = "kaydet" then guncelle else %>

?guncelle=kaydet&id=<%=id%>" method="post">

	Ziyaretçi Güncelleme Formu * bilgileri güncelleyin ve"Güncelle" tuşuna basın
İsim:	<%= rs("isim") %>
eposta:	<%= rs("eposta") %>
ziyaretciler:	<%= rs("mesaj") %>
ONAY	Evet Hayır Gizle ve Sakla

<% end if sub guncelle Dim id, SQLstmt id = request.querystring("id") onayx = Request.Form("onay") epostax = Request.Form("eposta") tarih1x = date() tarihx = day(tarih1x) & "/" & month(tarih1x) & "/" & year(tarih1x) %> <% 'Set Baglanti="" 'Server.CreateObject("ADODB.connection") ''BAGLANTI.Open DSN Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from ziyaretciler where id=" & id Rs.Open Sorgu, Con, 1, 3 if not Rs.EOF then Rs("onay")=onayx 'Rs("tarih")= tarihx Rs.Update end if %> <% Rs.Close Set Rs=Nothing 'BAGLANTI.CLOSE Set Baglanti=Nothing %>

Ziyaretçi güncellemesi başarı ile yapılmıştır.
<% set rs=Con.execute("SELECT * FROM ziyaretciler WHERE id = " & id) %>

<% %> <% end sub %> <% sub hata Response.Write "Lütfen geri dönüp düzeltin ve yeniden deneyin" Response.End end sub %>

< Yeni İşlem >