G
Guest
I have developed an ActiveX button which was working for old server. Now it
does not work in new Server machine. I can not remember if I did any
configuration in old machine.
However it works for local HTML test file.
The HTML file in ASP.NET web form design is in the following. The error
message:
---erorr---
Object doesn't support this property or method: 'AxButtonID.SetReFile'
----
Thanks.
David
-------Code -------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>WebForm For Triangle</title>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" Content="C#">
<meta name="vs_defaultClientScript" content="VBScript">
<meta name="vs_targetSchema"
content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<!--Note: object and SCRIPT tegs must be outside of form tag. Otherwise,
it does not work-->
<OBJECT id="AxButtonID" title="Load and View" style="Z-INDEX: 101; LEFT:
384px; WIDTH: 96px; POSITION: absolute; TOP: 64px; HEIGHT: 32px"
classid="clsid:790E746B-B975-46E4-A98D-A4C1D92F5D34" name="AxButton"
VIEWASTEXT>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="2540">
<PARAM NAME="_ExtentY" VALUE="847">
<PARAM NAME="_StockProps" VALUE="66">
<PARAM NAME="Caption" VALUE="Load">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="UrlPathFile" VALUE="IM1">
</OBJECT>
<form id="Form1" method="post" runat="server">
<asp
ataGrid id="dgPatients" style="Z-INDEX: 102; LEFT: 40px; POSITION:
absolute; TOP: 224px"
runat="server" AllowPaging="True" BorderColor="White"
BorderStyle="Ridge" CellSpacing="1"
BorderWidth="2px" BackColor="White" CellPadding="3" GridLines="None">
<SelectedItemStyle Font-Bold="True" ForeColor="White"
BackColor="#9471DE"></SelectedItemStyle>
<ItemStyle ForeColor="Black" BackColor="#DEDFDE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#E7E7FF"
BackColor="#4A3C8C"></HeaderStyle>
<FooterStyle ForeColor="Black" BackColor="#C6C3C6"></FooterStyle>
<Columns>
<asp:ButtonColumn Text="Select" HeaderText="Select"
CommandName="Select"></asp:ButtonColumn>
</Columns>
<PagerStyle HorizontalAlign="Center" ForeColor="Black"
BackColor="#C6C3C6" Mode="NumericPages"></PagerStyle>
</aspataGrid>
<asp:TextBox id="txtLocation" style="Z-INDEX: 103; LEFT: 168px; POSITION:
absolute; TOP: 64px"
runat="server" Width="160px"></asp:TextBox>
<asp:Label id="lblLocation" style="Z-INDEX: 104; LEFT: 32px; POSITION:
absolute; TOP: 64px"
runat="server" Font-Bold="True">Image Location </asp:Label>
<asp:TextBox id="txtFileName" style="Z-INDEX: 105; LEFT: 168px; POSITION:
absolute; TOP: 128px"
runat="server" Width="160px"></asp:TextBox>
<asp:Label id="lblFileName" style="Z-INDEX: 106; LEFT: 32px; POSITION:
absolute; TOP: 128px"
runat="server" Font-Bold="True">File Name</asp:Label>
<asp:TextBox id="txtPath" style="Z-INDEX: 107; LEFT: 168px; POSITION:
absolute; TOP: 96px" runat="server"
Width="160px"></asp:TextBox>
<asp:Label id="lblPath" style="Z-INDEX: 108; LEFT: 32px; POSITION:
absolute; TOP: 96px" runat="server"
Width="48px" Font-Bold="True">Path</asp:Label>
<asp:Label id="lblInfo" style="Z-INDEX: 109; LEFT: 384px; POSITION:
absolute; TOP: 128px" runat="server"
Width="320px" ForeColor="Red"></asp:Label>
<asp:Label id="Label1" style="Z-INDEX: 110; LEFT: 32px; POSITION:
absolute; TOP: 176px" runat="server"
Font-Bold="True">Patient List</asp:Label>
<asp:Label id="Label2" style="Z-INDEX: 111; LEFT: 32px; POSITION:
absolute; TOP: 24px" runat="server"
Font-Bold="True">Select a patient and then click the Load button to view
image </asp:Label>
</form>
<SCRIPT LANGUAGE="VBScript">
<!--
AxButtonID.SetReFile(Form1.txtFileName.value)
AxButtonID.SetRePath(Form1.txtPath.value)
AxButtonID.SetReHost(Form1.txtLocation.value)
Sub AxButtonID_Click()
rem
if(!(txtLocation.value==""||txtLocation.value==NULL||txtFileName.value==""||txtFileName.value==NULL)){
rem call AxButtonID.SetURL(txtLocation.value+"/"+txtFileName.value)
rem call AxButtonID.AboutBox()
}
end sub
//-->
</SCRIPT>
<!--
Update On Aug 29, 2007: use above to replace the following
AxButtonID.reFile=Form1.txtFileName.value rem "IM1"
AxButtonID.rePath=Form1.txtPath.value rem "testDir"
AxButtonID.reHost=Form1.txtLocation.value rem "137.122.236.12"
AxButtonID.SetReFile(Form1.txtFileName.value)
AxButtonID.SetRePath(Form1.txtPath.value)
AxButtonID.SetReHost(Form1.txtLocation.value)
-->
</body>
</HTML>
does not work in new Server machine. I can not remember if I did any
configuration in old machine.
However it works for local HTML test file.
The HTML file in ASP.NET web form design is in the following. The error
message:
---erorr---
Object doesn't support this property or method: 'AxButtonID.SetReFile'
----
Thanks.
David
-------Code -------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>WebForm For Triangle</title>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" Content="C#">
<meta name="vs_defaultClientScript" content="VBScript">
<meta name="vs_targetSchema"
content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<!--Note: object and SCRIPT tegs must be outside of form tag. Otherwise,
it does not work-->
<OBJECT id="AxButtonID" title="Load and View" style="Z-INDEX: 101; LEFT:
384px; WIDTH: 96px; POSITION: absolute; TOP: 64px; HEIGHT: 32px"
classid="clsid:790E746B-B975-46E4-A98D-A4C1D92F5D34" name="AxButton"
VIEWASTEXT>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="2540">
<PARAM NAME="_ExtentY" VALUE="847">
<PARAM NAME="_StockProps" VALUE="66">
<PARAM NAME="Caption" VALUE="Load">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="UrlPathFile" VALUE="IM1">
</OBJECT>
<form id="Form1" method="post" runat="server">
<asp
ataGrid id="dgPatients" style="Z-INDEX: 102; LEFT: 40px; POSITION: absolute; TOP: 224px"
runat="server" AllowPaging="True" BorderColor="White"
BorderStyle="Ridge" CellSpacing="1"
BorderWidth="2px" BackColor="White" CellPadding="3" GridLines="None">
<SelectedItemStyle Font-Bold="True" ForeColor="White"
BackColor="#9471DE"></SelectedItemStyle>
<ItemStyle ForeColor="Black" BackColor="#DEDFDE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#E7E7FF"
BackColor="#4A3C8C"></HeaderStyle>
<FooterStyle ForeColor="Black" BackColor="#C6C3C6"></FooterStyle>
<Columns>
<asp:ButtonColumn Text="Select" HeaderText="Select"
CommandName="Select"></asp:ButtonColumn>
</Columns>
<PagerStyle HorizontalAlign="Center" ForeColor="Black"
BackColor="#C6C3C6" Mode="NumericPages"></PagerStyle>
</asp
ataGrid><asp:TextBox id="txtLocation" style="Z-INDEX: 103; LEFT: 168px; POSITION:
absolute; TOP: 64px"
runat="server" Width="160px"></asp:TextBox>
<asp:Label id="lblLocation" style="Z-INDEX: 104; LEFT: 32px; POSITION:
absolute; TOP: 64px"
runat="server" Font-Bold="True">Image Location </asp:Label>
<asp:TextBox id="txtFileName" style="Z-INDEX: 105; LEFT: 168px; POSITION:
absolute; TOP: 128px"
runat="server" Width="160px"></asp:TextBox>
<asp:Label id="lblFileName" style="Z-INDEX: 106; LEFT: 32px; POSITION:
absolute; TOP: 128px"
runat="server" Font-Bold="True">File Name</asp:Label>
<asp:TextBox id="txtPath" style="Z-INDEX: 107; LEFT: 168px; POSITION:
absolute; TOP: 96px" runat="server"
Width="160px"></asp:TextBox>
<asp:Label id="lblPath" style="Z-INDEX: 108; LEFT: 32px; POSITION:
absolute; TOP: 96px" runat="server"
Width="48px" Font-Bold="True">Path</asp:Label>
<asp:Label id="lblInfo" style="Z-INDEX: 109; LEFT: 384px; POSITION:
absolute; TOP: 128px" runat="server"
Width="320px" ForeColor="Red"></asp:Label>
<asp:Label id="Label1" style="Z-INDEX: 110; LEFT: 32px; POSITION:
absolute; TOP: 176px" runat="server"
Font-Bold="True">Patient List</asp:Label>
<asp:Label id="Label2" style="Z-INDEX: 111; LEFT: 32px; POSITION:
absolute; TOP: 24px" runat="server"
Font-Bold="True">Select a patient and then click the Load button to view
image </asp:Label>
</form>
<SCRIPT LANGUAGE="VBScript">
<!--
AxButtonID.SetReFile(Form1.txtFileName.value)
AxButtonID.SetRePath(Form1.txtPath.value)
AxButtonID.SetReHost(Form1.txtLocation.value)
Sub AxButtonID_Click()
rem
if(!(txtLocation.value==""||txtLocation.value==NULL||txtFileName.value==""||txtFileName.value==NULL)){
rem call AxButtonID.SetURL(txtLocation.value+"/"+txtFileName.value)
rem call AxButtonID.AboutBox()
}
end sub
//-->
</SCRIPT>
<!--
Update On Aug 29, 2007: use above to replace the following
AxButtonID.reFile=Form1.txtFileName.value rem "IM1"
AxButtonID.rePath=Form1.txtPath.value rem "testDir"
AxButtonID.reHost=Form1.txtLocation.value rem "137.122.236.12"
AxButtonID.SetReFile(Form1.txtFileName.value)
AxButtonID.SetRePath(Form1.txtPath.value)
AxButtonID.SetReHost(Form1.txtLocation.value)
-->
</body>
</HTML>