' Rptserver.asp
Case "SRCH"
Call Retrieveobjects
Call Checkforerror
' Create page variable
Gvpagenumber = CInt (PAGE)
Select Case VFMT
Case "ENCP"
If Gopagegenerator.findtext (TEXT, 0, Gvpagenumber) then
Response.ContentType = Emfmimetype
Session ("OEMF"). Sendpagenumberrecord (Gvpagenumber)
Else
Gserrortext = "The specified text, '" & Text & "' is not found in the"
Response.ContentType = Emfmimetype
Session ("OEMF"). Senderrormsg, Gserrortext
End If
Case "Html_frame"
' We are being called by HTML Viewer
' Need to get the text ' form post
Dim searchfound
Text = Request.Form ("text")
' Now find out what page the ' text was on
Tempnumber = Gvpagenumber + 1
If (CBool (Gopagegenerator.findtext (TEXT, 0, Tempnumber)) then
Session ("Currentpagenumber") = Tempnumber
Searchfound = 1
Else
Session ("Currentpagenumber") = Gvpagenumber
Searchfound = 0
End If
If Brch <> "" Then
Gvurl = "framepage.asp?brch=" & Brch & "&searchfound=" & Searchfound
Else
Gvurl = "framepage.asp?" Searchfound= "& Searchfound
End If
Response.Redirect Gvurl
Case "Html_page"
' We are being called by HTML Viewer
' Need to get the text ' form post
Text = Request.Form ("text")
' Now find out what page the ' text was on
Tempnumber = Gvpagenumber
If (CBool (Gopagegenerator.findtext (TEXT, 0, Tempnumber)) then
Gvpagenumber = Tempnumber
Set gopage = gopagecollection (gvpagenumber)
Session ("Opageengine"). Imageoptions = 1
Response.BinaryWrite gopage.renderhtml (1,3,3,request. ServerVariables ("Script_name"), 8209)
Else
' Send back an HTML page indicating the text is not found.
Response.Write "End If
End Select
Case "Toolbar_page"
' Redirect to the framepage, need to know if we are
' On the last page.
If session ("Lastpagenumber") <> "then"
If CInt (page) > CInt (Session ("Lastpagenumber")) Then
Session ("Currentpagenumber") = Session ("Lastpagenumber")
Else
Session ("Currentpagenumber") = PAGE
End If
Else
Call Retrieveobjects
Call Checkforerror
' Create the actual page '
Set gopage = gopagecollection (PAGE)
' Check for a exception on the page number
Call Validatepagenumber
If Gopage.islastpage Then
Session ("Lastpagenumber") = Gopage.pagenumber
Session ("Currentpagenumber") = Session ("Lastpagenumber")
Else
Session ("Currentpagenumber") = PAGE
End If
End If
If Brch <> "" Then
Gvurl = "Framepage.asp?brch=" & Brch
Else
Gvurl = "Framepage.asp"
End If
Response.Redirect Gvurl
Case "EXPORT"
Set exportoptions = Session ("Orpt"). Exportoptions
if (Fillexportoptionsobject (EXPORT_FMT)) Then
Call Retrieveobjects
Response.BinaryWrite Gopagegenerator.export (8209)
Call Checkforerror
Else
Response.ContentType = Emfmimetype
Session ("OEMF"). Senderrormsg 1, "Invalid Export Type Specified"
End If
Case "MAP_DD"
' Only supported in Java and active X smart viewers
Select Case VFMT
Case "ENCP"
' Get page Coll
