User Guide

ARTS PDF Split Pro™ Guide
COM Object
txtOutput, txtCoordinateFile)
Case 3
lSplitResult = SplitPro.SplitByFileSize(txtInput, txtOutput,
txtFileSize)
Case 4
lSplitResult = SplitPro.SplitIntoSinglePages(txtInput,
txtOutput, txtBaseName)
End Select
'Check if an error occurred
If lSplitResult <> 0 Then
'If an error has occurred display the error message
MsgBox (SplitPro.GetErrorMessage(lSplitResult))
End If
Set SplitPro = Nothing
End Sub
8.5.2. ASP
<%
Dim ARTSSplitPro
Set ARTSSplitPro =server.CreateObject("ARTSSplitPro.ARTSSplitPro")
'Check to see if title has been entered or not
u_title=request.form("u_title")
if u_title = "" then
%>
<!-- Input form area - This will only display when no Title has been
entered -->
<form method="POST" action="<%=
request.servervariables("script_name")%>">
<p>Input File Name<br><input type="text" name="u_title"
size="30"></p>
<p>Page Range<br><input type ="text" name= "pagerange" size
="35"></p>
<p>Output File Name<br><input type="text" name="outputfilename"
size="35"><input type="submit" value="Submit" ></p>
</form>
<%
end if
%>
<%
if u_title <> "" then
' If there is a user inputted title
' get all of the user's input values
u_title=request.form("u_title")
pagerange=Request.form("pagerange")
outputfilename = Request.Form("outputfilename")
| CONTENTS |  Page 44 of 58 