<%@ Language=VBScript %>
<%
'for each thing in Request.QueryString
' Response.Write thing & "=" & request(thing) & " "
'next
'Response.end
Option Explicit
Const Filename = "/admin/rate.txt" ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
' Get a handle to the file
Dim file
set file = FSO.GetFile(Filepath)
' Get some info about the file
Dim FileSize
FileSize = file.Size
Response.Write "
"
' Open the file
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, _
TristateUseDefault)
' Read the file line by line
Do While Not TextStream.AtEndOfStream
Dim Line
Line = TextStream.readline
' Do something with "Line"
Line = Line & vbCRLF
Response.write Line
Loop
Response.Write "
"
Set TextStream = nothing
Else
Response.Write "
File " & Filename &_
" does not exist
"
End If
Set FSO = nothing
response.end
%>
Products- Evdara - Optical Instruments in South Africa
