<%
'-- Öncelikle FileSystemObject nesnesi DosyaNesnesi isimli degiskene aktarildi.
Set strDosya=CreateObject("Scripting.FileSystemObject" )
'-- Server'in kök klasörü altinda Canim_Textim.txt isimli dosya açildi.
Set Dosya=StrDosya.OpenTextFile(Server.MapPath("\canim_textim.txt" ),1,False,False)
'-- canim_textim.txt içindeki ilk satirimizi okuyoruz ve okunandeger isimli degiskene aktariyoruz...
okunandeger=Dosya.ReadLine
'-- okunan deger içerigi ekrana yazdirildi.
Response.Write(okunandeger)
'-- Dosya degiskeni server'in belleginden atildi.
Dosya.Close
'-- DosyaNesnesi degiskeni server'in belleginden atildi.
Set Dosya=Nothing
Set StrDosya=Nothing
%>