arts-pdf split pro 2.0 User Manual

 

 

 

 

set fso = createobject("scripting.filesystemobject") 

 

 

 

 

 

' create the text file  

 

 

Set act = fso.CreateTextFile("C:\test\test.txt", true) 

 

 

set filename = fso.GetFile("c:\test\test.txt") 

 
 

 

' write all of the user input to the text file  

 

 

act.WriteLine pagerange & vbTab & outputfilename 

 

 

Response.Write "<br> " 

 
 

 

' close the document  

  

act.Close 

%> 
 
<p>Text file created using ARTS PDF Split Pro COM 
v.<b><%=ARTSSplitPro.GetVersionNumber%></b></p> 
Your page has been successfully create and can be viewed by clicking  
<a href="c:\test\test.txt">here</a> 
<br> 
<br> 
 
<%  
 end 

if 

 
 

Dim InputFile  

 Dim 

OutputFolder 

 Dim 

ControlFile 

 

 

 

InputFile = Request.Form("u_title") 

 

Outputfolder = "C:\test" 

 

ControlFile = filename 

 
 Response.write(ARTSSplitPro.SplitByControlFile(InputFile,OutputFolde
r, ControlFile, true)) 
%> 
  

  Page 45 of 58