mdb den mysql a geçmek istiyorum değiştirmem gereken kodlar ve yazdırma silme guncelleme satır ekleme son verı ekleme gıbı kodları yazarmısın ?

Veritabanı Bağlantısı:

Kod Alanı:

<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=kullanici; pwd=sifre; database=veritabani; option=3; port=3306;"
%>



Kayıt Listeleme ve Sayfalama:

Kod Alanı:

<%
SayfalamaKayitSayi = 30

iSayfa = Request.QueryString("sayfa")
if Not Isnumeric(iSayfa) OR iSayfa = "" Then
iSayfa = 1
iBaslangic = 0
else
iBaslangic = (iSayfa-1)*SayfalamaKayitSayi
end if

strSQL = "SELECT * FROM tablo order by id desc Limit "& iBaslangic &", "& SayfalamaKayitSayi

Set rs = baglan.execute(strSQL)

if rs.EOF Then
Response.write "Kayıt bulunamadı."
else
Do While not rs.eof
%>
<%=rs("sutun")%>
<%
rs.movenext
loop
%>
Sayfalar:
<%
Set TopKt = baglan.Execute("SELECT COUNT(id) FROM tablo")
iToplamSay = TopKt(0)

for i = 1 To cint(replace(iToplamSay,",","."))/SayfalamaKayitSayi+1

if i = int(iSayfa) Then

response.Write "<strong>"& i &"</strong> "

else

Response.Write "<a href=""?sayfa="& i &""">"& i &"</a> "
end if
next
end if
%>



Kayıt Ekleme:

Kod Alanı:

<%
ad=Request.Form("ad")
soyad=Request.Form("soyad")
Set kayit=baglan.Execute("insert into tablo(ad,soyad) values('"&ad&"','"&soyad&"')")
%>



Kayıt Güncelleme:

Kod Alanı:

<%
id=Request.Querystring("id")
ad=Request.Form("ad")
soyad=Request.Form("soyad")
baglan.Execute("update tablo Set ad='"&ad&"',soyad='"&soyad&"' where id="&id&"")
%>


Kayıt silmeyi unutmuşum..

Kayıt Silme:

Kod Alanı:

<%
id=Request.Querystring("id")
baglan.execute("delete from tablo where id="&id&"")
%>


saolasın hocam ellerın dert görmesın

ozaman işime yaramadı ama şimdi çok işime yaradı sağolasın