<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = -1
Response.Buffer = True
%>
<!-- #include file="../si_include/General.asp" -->
<!-- #include file="ReportHandler.asp" -->
<!-- #include file="../Menus/MenuProcessor2.asp"" -->
<%
dim iErrWnd
dim vCarrierImg
iErrWnd = Request.QueryString("ErrWnd")
if iErrWnd = "" then
iErrWnd = 0
end if
On Error Resume Next
%>
<html>
<head>
<title><%=gstrSiteTitle%> - Case Run Messages</title>
<link REL="stylesheet" href="../VIP.css">
</head>
<%
If iErrWnd = 0 And Not gbSideMenus Then
Response.Write "<script language=""JavaScript"" src=""../si_include/toolbar.js""></script>"
Response.Write "<script language=""JavaScript"" src=""../Menus/MenuProcessor.asp?xml=Messages""></script>"
End If
%>
<body leftMargin="0" topMargin="0" MARGINWIDTH="0" MARGINHEIGHT="0">
<%
If iErrWnd = 0 And gbSideMenus Then
Response.Write "<table border=0 cellpadding=0 cellspacing=0><tr valign=""top""><td class='MenuStrip'>"
vDrawMenu "../Menus/MainMenu.xml", Nothing
Response.Write "</td><td>"
End If
%>
<% If iErrWnd = 0 And Not gbSideMenus Then %>
<script language="JavaScript">
<!--// Hide from old browsers
var ToolBar_Supported = ToolBar_Supported;
if (ToolBar_Supported != null && ToolBar_Supported == true)
{
drawToolbar();
}
//-->
</script>
<% End If %>
<%if iErrWnd = 1 then
vCarrierImg = "../" & oIllus("Plan.Carrier") & "/close.gif"
%>
<table width="100%" border="0" cellpadding=2 cellspacing=2 ID="Table1">
<tr>
<td>An error occured proceessing your illustration. Close this window to return to your work:</td>
<td align=right><a href="JavaScript:window.close()"><img src=<%=vCarrierImg%> border="0" style="filter: chroma(color:white)" alt="Click to return to work"></a></td>
</tr>
</table>
<%end if
if iErrWnd = 0 then
vBuildReportHeader "LPWL05", "Product Specifications"
end if
%>
[COLOR=red]
<%
Response.Write("<p align= center> <font size=3 face='Times New Roman'>PACIFIC GUARDIAN LIFE INSURANCE COMPANY, LIMITED<br>HORIZON JUNIOR+ & FLEX GUARANTEE<br>FORM NUMBER: LPWL05</font></p>")
Response.Write("<p align= center> <font size=3 face='Times New Roman'>PRODUCT SPECIFICATIONS</font></p>")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.fileexists("C:\Program Files\SunGard Insurance Systems\VIPONLINE\PresASP\Specs\LPWL05.txt") then
Set f=fs.OpenTextFile("C:\Program Files\SunGard Insurance Systems\VIP\VIPONLINE\PresASP\Specs\LPWL05.txt", 1, true, -1)
Response.Write escape(f.ReadAll)
f.Close
set f=nothing
else
response.write "Cannot find the file."
end if
Set fs=Nothing
%>
[/color red]