<% @ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim fileob, regel,gbfile, file_name
file_name = "/bestandje.txt"
Set fileob = Server.CreateObject("Scripting.FileSystemObject")
If fileob.FileExists(Server.MapPath("\") & file_name) Then
Set gbfile = fileob.OpenTextFile(Server.MapPath("\") & file_name,1,False)
While Not gbfile.AtEndOfStream
regel = gbfile.ReadLine
response.write regel & "<BR>"
Wend
gbfile.Close
End If
%>
<%@ LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
Dim fileob, regel,gbfile, file_name
file_name ="/bestandje.txt"
Set fileob = Server.CreateObject("Scripting.FileSystemObject")
If fileob.FileExists(Server.MapPath("\") & file_name) Then
Set gbfile = fileob.OpenTextFile(Server.MapPath("\") & file_name,1,False)