% use DemoASP; $demo = &DemoASP::new(); # send output out immediately # in case we are on non-Win32 platform, # which dies on $Server->CreateObject() # $Response->{Buffer} = 0; %>
<%
$file_obj = $Server->CreateObject('Scripting.FileSystemObject');
print "Creating file system object: $file_obj
\n";
$0 =~ /([^\\\/]*)$/;
$file_name = $1;
print "Opening self, file name: $file_name\n";
$file_stream = $file_obj->OpenTextFile($file_name);
%>
First 15 lines here...
<% for(1..15) { %> <%=$Server->HTMLEncode($file_stream->ReadLine())%> <% } %>End lines read.