% @ Language=VBScript CODEPAGE=1254 %>
<%
set dosya=createobject("Scripting.FileSystemObject")
set kayit=dosya.opentextfile(server.mappath("\haberler.txt"),1)
set kayit2=dosya.opentextfile(server.mappath("\gununbilgileri.txt"),1)
set kayit3=dosya.opentextfile(server.mappath("\uclu.txt"),1)
set finans=dosya.opentextfile(server.mappath("\finans.txt"),1)
%>
İlanınızda
değişiklik yapabilmek için kayıt sırasında size verilen
ilan kodu ve şifresini giriniz...
Haberler
<%
do while not kayit.AtEndOfStream
link1=kayit.readline
link2=kayit.readline
%>
<%=link1%>
<%
loop
kayit.close
%>
<%
do while not finans.AtEndOfStream
dolar1=finans.readline
dolar2=finans.readline
euro1=finans.readline
euro2=finans.readline
altin1=finans.readline
altin2=finans.readline
loop
finans.close
%>