sayfile=server.mappath("says.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
if DR=1 then

else

            Set thisfile = fs.OpenTextFile(sayfile,1,False)
            do while not thisfile.AtEndOfStream
                   thisline = thisfile.readline
                   SHD(SHDi) = thisline
                   SHDi = SHDi + 1
            loop
            thisfile.Close


end if



            Set outfile = fs.CreateTextFile(sayfile)
            for i=0 to countsay-1
                   If i > 300 Then
                       Exit For
                    Else
                       outfile.WriteLine say(i)
                    End If
             next
             outfile.Close
             set fs=nothing

%>


	Set thisfile = fs.OpenTextFile(sayfile,1,False)
		do while not thisfile.AtEndOfStream
			thisline = thisfile.readline
			SHD(SHDi) = thisline
			SHDi = SHDi + 1
		loop
	thisfile.Close