How to use <Script Language =VBScript >

126 100+

Hi Helpful Good Guys,

I need your help. Please help me.

I have been asked to transfer the FUNCTION FCalculate from WebFrmLoan.aspx to Web Page CODEBEHIND. The Functon event is to calculate the Loan Monthly Repayment amount.

I have not done it before using VBScript and it generated this error message.

Option Strict On requires all Function, Property, and Operator declarations to have an 'As' clause.

This is the coding that generate the error message:

Expand|Select|Wrap|Line Numbers

 
<script language= "vbscript" runat=server>               

        Protected Function FCalculate(ByVal Sender As Object, ByVal e As EventArgs)

            Dim intPaym As Double = 0

            intPaym = (CType(Me.txtLoanAmt.Text, Double) / CType(Me.txtTotalMonth.Text, Long))

        End Function

    </script>

--------------------------------
Here are the overall coding from WEB PAGE CODEBEHIND:

Expand|Select|Wrap|Line Numbers

 
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebFrmClientSideScript.aspx.vb" Inherits="ASPNET2008DataEntry.WebFrmClientSideScript" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

    <title>Loan Repayment Page</title>

    <link href="StyleSheet1.css" rel="stylesheet" type="text/css" />

    <style type="text/css">

        .style1

        {

            width: 547px;

        }

    </style>

</head>

<!-- -------------------------------------------------------------------- -->

    <script language= "vbscript"  runat= server>
 
        Protected Function FCalculate(ByVal Sender As Object, ByVal e As EventArgs)

            Dim intPaym As Double = 0

            intPaym = (CType(Me.txtLoanAmt.Text, Double) / CType(Me.txtTotalMonth.Text, Long))

        End Function

    </script>  

<!-- -------------------------------------------------------------------- -->

<body>

    <form id="form1" runat="server">

    <div class="LeftMargin">

        <asp:Label ID="lbl1" CssClass="labelBanner" runat="server"

                 Text="Loan Monthly Repayment Calculation" >

        </asp:Label>                 

    </div>        

    <br />
 
    <div class="LeftMargin">

        <table style="width:100%;"

                <tr>

                    <td align="left" class="style1">

                        <asp:Label ID="lbl2" CssClass="labelText" runat="server" Width="300px" 

                                 Text="Loan Amount $:" ></asp:Label>

                        <asp:TextBox ID="txtLoanAmt" CssClass="textbox" runat="server"

                                   EnableViewState="true" AutoPostBack="false" TabIndex="1"></asp:TextBox>                        

                    </td> 

                 </tr>
 
                 &nbsp;

                 <tr>

                    <td class="style1">

                        <asp:Label ID="lbl3" CssClass="labelText" runat="server" Width="300px"

                                 Text="Repayment Months Count :"></asp:Label>

                        <asp:TextBox ID="txtTotalMonth" CssClass="textbox" runat="server"

                                  EnableViewState="true" AutoPostBack="false" TabIndex="2"></asp:TextBox>                                     

                    </td>                  

                    &nbsp;

                    <td>

                        <asp:Label ID="lbl4" CssClass="labelText" runat="server" Width="400px"

                                 Text="Monthly Repayment Amount :"></asp:Label>

                        <asp:TextBox ID="txtPayAmt" CssClass="textbox" runat="server"

                                 EnableViewState="true" AutoPostBack="false" TabIndex="3"

                                  Enabled="false" ></asp:TextBox>
 
                    </td>

                 </tr> 
 
                 <tr class="LeftMargin">

                    <td>

                        <asp:Label ID="lbl5" runat="server" Width="200px"></asp:Label>

                        <asp:Button ID="BtnCalculate" CssClass="Button" runat="server"

                                 Text="Monthly Payment Calculate" OnClick="FCalculate"

                                  Width="200px" />                             

                    </td>

                 </tr>
 
        </table>      

    </div>
 
    </form>

</body>

</html>

Aug 3 '10 #1

Subscribe Post Reply

✓ answered by Frinavale

Fistly, VBScript is not a .NET language as far as I know. VBScript is used for classic asp development (not ASP.NET).

You have posted VB.NET code...however a Function returns something to the calling code, whereas a Sub does not return anything. Since your method does not return anything to the calling code, change the Function into a Sub. Also, consider using the "Handles" keyword to handle events for controls.

-Frinny

10033

Frinavale

9,735

Expert Mod 8TB

Aug 3 '10 #2

lenniekuah

126

100+

Hi Frinavale,
Thank you for your additional information.

Due to my lack of experences and knowledge can you please make changes to my posted coding using HANDLES ? That would give me the opportunity to understand it logically.

Thank you for your help.

Aug 4 '10 #3

Frinavale

9,735

Expert Mod 8TB

Well it's all in the method signature.
If you have a button called "btn_FCalculate" and you want to handle the button click event for this button. You would implement a method that Handles that event:

Expand|Select|Wrap|Line Numbers

 Protected Sub btn_FCalculate(ByVal Sender As Object, ByVal e As EventArgs) Handles btn_FCalculate.Click

  '....

End Sub

Now when the button is clicked, and the Click event is fired, that method will be executed (it will handle the event) :)

-Frinny

Aug 4 '10 #4

lenniekuah

126

100+

Hi Wonderful Frinavale,
Thank you for helping me. I have tried out your suggestion and it's working.
Yaaa....Hooo

Aug 5 '10 #5

by: Randell D. | last post by:

Folks, Do I need to use the 'type' in the javascrpit external load request below? Is it mandatory or optional? I've not found a clear reference on this... <script language='JavaScript'...

Javascript

loop using <xsl:for-each> and external javascript function

by: jd | last post by:

Hi, I have an xsl as below. I am trying to loop using <xsl:for-each> and in the select attribute of <xsl:for-each> i am getting the nodeset from the external javascript function in the <CDATA>...

.NET Framework

by: cbakopanos | last post by:

Is there any way to write client side script purelly on C#? -- Costas Bakopanos MCSD .NET / MCT

C# / C Sharp

by: jason | last post by:

Pardon the newbie question... What's the difference between (asp.net)VB code inside one versus the other. And why have both?

ASP.NET

Does <script src=foo> require an end tag </script>

by: rhythmace | last post by:

W3C HTML validator passes this: .... <script type="text/javascript" src="foo.js"> <script type="text/javascript"> ....script in here... </script> ....

HTML / CSS

by: howa | last post by:

Just found a funny things.. in HTML4's dtd, http://www.w3.org/TR/html4/strict.dtd language is not valid, i.e. <!ELEMENT SCRIPT - - %Script; -- script statements --> <!ATTLIST...

HTML / CSS

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

How to use <Script Language =VBScript >

✓ answered by Frinavale

Similar topics