Programalama > ASP

<%   
Set Baglanti = Server.CreateObject("ADODB.Connection" )   
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &Server.MapPath("tablo.mdb" )   
Set DosyaSistemi=CreateObject("Scripting.FileSystemObject" )    
Set DosyaOkuma = DosyaSistemi.OpenTextFile(Server.MapPath("txt.txt" ),1)    
Set KayitSeti = Server.CreateObject     ("ADODB.Recordset" )   
KayitSeti.Open "select * from tblbilgi" , Baglanti, 1,3    
Do While Not DosyaOkuma.AtEndOfStream  
KayitSeti.Addnew  
KayitSeti("ad" )=DosyaOkuma.Readline    
KayitSeti.Update    
Loop    
KayitSeti.Close   
Set KAyitSeti = Nothing   
%>