<%Option Explicit dim FO, fpath, FN set FO = Server.CreateObject("Scripting.FileSystemObject") fpath = FO.GetParentFolderName(Request.ServerVariables.Item("PATH_TRANSLATED")) & "/" set FN = FO.OpenTextFile(fpath & "news.txt") %> Latest Stone News
Home | Stone Map | Iran | General Info | Contact  

Latest Stone News
  Home > Stone Gallery

Quick Links
 
 
 
 
 
 





















 
 <%Response.Write(FN.ReadLine)%>
 
<%While not FN.AtEndOfStream Response.Write(FN.ReadLine) Response.Write("
") Wend FN.Close%>
Copyright© 2002 - 2007 Rock Stone. All Rights Reserved. Design by AryaWeb.com Administration Section