17 lines
312 B
Plaintext
17 lines
312 B
Plaintext
<%@ Language=VBScript%>
|
|
|
|
<%
|
|
Function handleImage()
|
|
Dim handler
|
|
On Error Resume Next
|
|
Set handler = CreateObject("CrystalReports.CrystalImageHandler")
|
|
Call handler.HandleImage(Request, Response)
|
|
if Err.number <> 0 then
|
|
Response.Write Err.Description
|
|
Err.Clear
|
|
end if
|
|
End Function
|
|
%>
|
|
|
|
<% handleImage %>
|