'SPString.SQL
if exists (select name from sysobjects where name = 'SPROCString')
drop proc SPROCString
GO
CREATE PROCEDURE SPROCString
@pTitle varchar(80)
AS
SET NOCOUNT ON
SELECT
*
FROM
TitleView
WHERE
Title = @pTitle
or @pTitle = '*'
'toolbar.ASP
<%
' 05/02/98
' Added the following features:
' Tab Query String Parameter
' - This is the selected tab's tabArray index value.
' Page Expiry Time
' - The page will expire when downloaded by browser so that user is insured that all data
' will be current.
' DrillDown Tabs
' - Added in the session("tabArray") object to keep track of the drill down tabs.
' Search
' - Added javascript window.alert function call to indicate when text is not found in rpt view.
' Goto Page Text Box
' - Added textbox and filenew.gif so user can enter and request desired page number.
' NOTE: Netscape 2.0 browsers do not call the on submit event handler when the image is selected.
' Thus, the user will not be warned when incorrect data is entered into the goto page box.
' This problem does not happen when the user selects return.
Response.Expires = 0
' Viewer Tab images
drilld = "
"
drillu = "
"
previewu = "
"
previewd = "
"
' Set the correct numbers on the paging buttons
brch = request.querystring("BRCH")
if brch <> "" then
brch = "&" & "brch=" & brch
basepage = ""
end if
getPageCommand = "rptserver.ASP?cmd=toolbar%5Fpage&viewer=HTML%5Fframe&vfmt=HTML%5Fframe" & brch
searchFound = request.querystring("SEARCHFOUND")
if searchFound <> "" then
if Cint(searchFound) = 0 then
messageText = "onLoad = " & chr(34) & "window.alert('Text Not Found in the Report');" & chr(34)
end if
end if
CurrentPageNumber = CStr(session("CurrentPageNumber"))
lastknownpage = CStr(session("lastknownpage"))
LastPageNumber = CStr(session("LastPageNumber"))
if CurrentPageNumber = "" then
CurrentPageNumber = "1"
end if
if lastknownpage = "" then
lastknownpage = "0"
end if
if LastPageNumber <> "" and (CurrentPageNumber = LastPageNumber) then
lastknownpage = CurrentPageNumber
' remember the last known page
session("lastknownpage") = CurrentPageNumber
nextlink = ""
lastlink = ""
if CInt(CurrentPageNumber) > 1 then
previouspage = CInt(CurrentPageNumber) - 1
previouslink = ""
firstlink = ""
else
previouslink = ""
firstlink = ""
end if
else
if (CInt(lastknownpage) < CInt(CurrentPageNumber)) and LastPageNumber = "" then
' remember the last known page
session("lastknownpage") = CurrentPageNumber
lastknownpage = CurrentPageNumber & "+"
else
if lastknownpage <> LastPageNumber then
lastknownpage = lastknownpage & "+"
end if
end if
if CInt(CurrentPageNumber) > 1 then
previouspage = CInt(CurrentPageNumber) -1
previouslink = ""
firstlink = ""
else
previouslink = ""
firstlink = ""
previouspage = 1
end if
nextpage = CInt(CurrentPageNumber) + 1
nextlink = ""
lastlink = ""
end if
%>
>'SmartViewerHTMLFrame.ASP
<%
'=================================================================
' This file contains the ASP code for the Smart Viewer HTML Page
'=================================================================
response.redirect ("htmstart.ASP")
%>
'SmartViewerHTMLPage.ASP
<%
'=================================================================
' This file contains the ASP code for the Smart Viewer HTML Page
'=================================================================
response.redirect ("rptserver.ASP")
%>
'SmartViewerJava.ASP
<%
'This file contains the HTML code to instantiate the Smart Viewer Java.
'
'You will notice that the Report Name parameter references the rptserver.ASP file.
'This is because the report pages are actually created by rptserver.ASP.
'Rptserver.ASP accesses session("oApp"), session("oRpt") and session("oPageEngine")
'to create the report pages that will be rendered by the ActiveX Smart Viewer.
'
%>