Ders 6 - Asp ve Ado Birlikteliği
<BODY>
<!--#include file="ADOvbs.inc"-->
<%
Dim varMusteriKodu
varMusteriKodu=Request.Form("txtkodu")
Dim Rs
StrSql = "SELECT * FROM MUSTERI"
StrProvider="Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=c:\data\musteriler.mdb"
Set Rs = Server.CreateObject("ADODB.recordset")
Rs.Open StrSql, StrProvider, adOpenDynamic, adLockOptimistic
Rs.Find "kodu = " & varMusteriKodu
If Rs.EOF Then
Response.Write "Girilen kod bulunamadi"
Else
Rs.Delete adAffectCurrent
Response.Write "kayit silinmistir."
End If
Rs.Close
Set Rs=Nothing
%>
</BODY>
</HTML>
Tarih:
Hit: 2411
Yazar: renegadealien