Hi Luke ,
i attached 3 aspx files with the problem .
i m getting the following error
Compilation Error
Description: An error occurred during the compilation of a resource required
to service this request. Please review the following specific error details
and modify your source code appropriately.
Compiler Error Message: BC30188: Declaration expected.
Source Error:
Line 4: '------------------------------------
Line 5: Dim bResult As Boolean = False
Line 6: bResult = VerHeader()
Line 7: Response.Write("Header = " & bResult)
Line 8:
good luck :-)
10x
[quoted text, click to view] "[MSFT]" <lukezhan@online.microsoft.com> wrote in message
news:b$VjTUCLEHA.308@cpmsftngxa10.phx.gbl...
> Hi Tiranman,
>
> Can you post more detail code to show how you call the fuctions defined in
> Header.aspx and footer.aspx? I have created a simple test project but I
> haven't found the problem:
>
> Main.aspx:
>
> <form id="Form1" method="post" runat="server">
> <!--#include file="Header.aspx"-->
> <!--#include file="Footer.aspx"-->
> </form>
>
> Header.aspx:
>
> <script language="vbscript" runat="server">
>
> Function Header() As Boolean
> 'do nothing
> Header = True
> End Function
>
> sub buttonclick(sender As Object, e As System.EventArgs)
>
> dim s
>
> TextBox1.Text=Footer()
>
> end sub
>
> </script>
> </HEAD>
> <body MS_POSITIONING="GridLayout">
>
> <asp:Button id="Button22" style="Z-INDEX: 101; LEFT: 208px; POSITION:
> absolute; TOP: 32px" runat="server"
> Text="Button" OnClick="buttonclick"></asp:Button>
> <asp:TextBox id="TextBox1" style="Z-INDEX: 102; LEFT: 24px; POSITION:
> absolute; TOP: 32px" runat="server"></asp:TextBox>
> </body>
>
> Footer.aspx:
>
> <script runat=server language=vbscript>
>
> Function Footer() As Boolean
> 'do nothing
> Footer = True
> End Function
>
>
> sub cc(sender As Object, e As System.EventArgs)
>
> dim bb
>
> bb=header()
>
> end sub
>
> </script>
>
> <body MS_POSITIONING="GridLayout">
>
> <FONT face="ËÎÌå">
> <asp:Button id="Button33" style="Z-INDEX: 101; LEFT: 216px; POSITION:
> absolute; TOP: 184px" runat="server"
> Text="Button" OnClick="cc" ></asp:Button></FONT>
>
> </body>
>
>
> Luke
> Microsoft Online Support
>
> Get Secure!
www.microsoft.com/security > (This posting is provided "AS IS", with no warranties, and confers no
> rights.)
>
begin 666 Footer.aspx
M/%-#4DE05"!,04Y'54%'13TB=F(B(%)53D%4/2)S97)V97(B/@T*"2<M+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"@DG*BHJ*BH@("!(
M96%D97(@=F5R:69I8V%T:6]N"2HJ*BHJ#0H))RTM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+0D)"0T*"41I;2!B4F5S=6QT($%S($)O;VQE
M86X@/2!&86QS90T*"6)297-U;'0@/2!697)(96%D97(H*0T*"5)E<W!O;G-E
M+E=R:71E*")(96%D97(@/2 B("8@8E)E<W5L="D)"0T*#0H))RTM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+0T*"2<J*BHJ*B @($9O;W1E
M<B!C;VYF:7)M871I;VX)*BHJ*BH-"@DG+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM#0H)1G5N8W1I;VX@1V5T1F]O=&5R*"D@07,@0F]O
M;&5A;@T*"0E297-P;VYS92YW<FET92@B/$(^1F]O=&5R($5X:7-T(#PO0CX\
M0E(^(BD-"@D)1V5T1F]O=&5R(#T@5')U90T*"45N9"!&=6YC=&EO;@T*"0T*
M"49U;F-T:6]N($=E=%=E;&-O;65-<V<H*2!!<R!3=')I;F<-"@D)1V5T5V5L
M8V]M94US9R ](")796QC;VUE(%1O($UY(%-I=&4@(3Q"4CXB#0H)16YD($9U
3;F-T:6]N#0H\+U-#4DE05#X-"@``
`
end
begin 666 Header.aspx
M/%-#4DE05"!,04Y'54%'13TB=F(B(%)53D%4/2)S97)V97(B/@D-"@T*"5-U
M8B!086=E7TQO860H;U-E;F1E<B!!<R!/8FIE8W0@+"!%($%S($5V96YT07)G
M<RD-"@D)#0H)"7)E<W!O;G-E+G=R:71E*")086=E7TQO860@5V%S($-A;&QE
M9" \0E(^(BD-"@D)#0H)"2<M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2T-"@D))RHJ*BHJ(" @1F]O=&5R('9E<FEF:6-A=&EO;@DJ*BHJ
M*@T*"0DG+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM#0H)
M"4EF($YO="!'971&;V]T97(H*2!4:&5N#0H)"0E297-P;VYS92YW<FET92@B
M0V%N)W0@1FEN9"!4:&4@1F]O=&5R("$B*0T*"0D)4F5S<&]N<V4N16YD#0H)
M"45N9"!)1@D-"@D)"0T*"45N9"!3=6(-"@D-"@DG+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM#0H))RHJ*BHJ(" @2&5A9&5R(&-O;F9I
M<FUA=&EO;@DJ*BHJ*@T*"2<M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2T-"@E&=6YC=&EO;B!697)(96%D97(H*2!!<R!";V]L96%N#0H)
M"2=D;R!N;W1H:6YG#0H)"59E<DAE861E<B ](%1R=64-"@E%;F0@1G5N8W1I
/;VX-"CPO4T-225!4/@T*
`
end
begin 666 Main.aspx
M/"5 (%!A9V4@3&%N9W5A9V4](G9B(B E/@T*/"$M+2-);F-L=61E($9)3$4]
M(DAE861E<BYA<W!X(BTM/@T*/$A434P^#0H)/&AE860^#0H)"3QT:71L93Y4
M:&4@36%I;B!086=E/"]T:71L93X\+VAE860^#0H)/&)O9'D^#0H)"3PE4F5S
M<&]N<V4N5W)I=&4H1V5T5V5L8V]M94US9R@I*24^#0H)/"]B;V1Y/@T*/"](
H5$U,/@T*/"$M+2-);F-L=61E($9)3$4](D9O;W1E<BYA<W!X(BTM/@``
`
end