Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

VBScript Calculation error

Status
Not open for further replies.
ITGuru2003

ITGuru2003

MIS
Feb 21, 2003
2
GB
I am trying to calculate the total cost of four items using checkboxes but getting back type mismatch for my "Calculate" function (see code extract below) - can you please tell me where I am going wrong? Any help would be greatly appreciated.

<head>
<SCRIPT LANGUAGE=&quot;VBScript&quot; type=&quot;text/vbscript&quot;>
<!--
Option Explicit
Dim curTotal

Sub Calculate
Dim MyForm
Set MyForm=Document.frmRegister
If MyForm.chkBOOK1.Checked Then
curTotal=curTotal+10
End If
MyForm.lblTotal.Caption=&quot;£&quot; & curTotal & &quot;.00&quot;
MyForm.txtTotal.Value=curTotal
End Sub
-->
</SCRIPT>
</head>

<body>
<TD COLSPAN=6>
<FORM NAME=&quot;frmRegister&quot; METHOD=&quot;POST&quot; ACTION=&quot;&quot; >

<TABLE WIDTH=400 BORDER=0>
<B><FONT SIZE=2>
<TR>
<TD COLSPAN=1>
</TD>
<TD NOWRAP COLSPAN=1>
<INPUT TYPE=&quot;CHECKBOX&quot; NAME=&quot;chkBOOK1&quot;
VALUE=&quot;Yes&quot; OnClick=&quot;Calculate&quot;>
BOOK1 £10 </br>
</TD>
<TD NOWRAP COLSPAN=1>
<INPUT TYPE=&quot;CHECKBOX&quot;
<OBJECT
ID=&quot;lblTotal&quot;
HEIGHT=20
WIDTH=100
>
<PARAM NAME=&quot;ForeColor&quot; VALUE=&quot;#000000&quot;>
<PARAM NAME=&quot;Caption&quot; VALUE=&quot;£50.00&quot;>
<PARAM NAME=&quot;BackStyle&quot; VALUE=&quot;0&quot;>
<PARAM NAME=&quot;FontName&quot; VALUE=&quot;Arial&quot;>
<PARAM NAME=&quot;FontSize&quot; VALUE=&quot;20&quot;>
<PARAM NAME=&quot;FontBold&quot; VALUE=&quot;True&quot;>
<PARAM NAME=&quot;Visible&quot; VALUE=&quot;True&quot;>
</OBJECT>
<INPUT TYPE=&quot;Text&quot; NAME=&quot;txtTotal&quot; VALUE=&quot;50&quot;>

</TD>
</TR>
<TR>
<TD COLSPAN=3 ALIGN=&quot;CENTER&quot;>

<INPUT TYPE=&quot;SUBMIT&quot;>
<INPUT TYPE=&quot;RESET&quot;>
</TABLE>
</FORM>
</BODY>
</HTML>
 
Sort by date Sort by votes
Type mismatch means u are doing something to a variable and it isnt the right type of variable.

i think you need to CStr your curtotal cos you're adding strings to a integer.

so

MyForm.lblTotal.Caption=&quot;£&quot; & CStr(curTotal) & &quot;.00&quot;

The following example uses the CStr function to convert a numeric value to a String:

Dim MyDouble, MyString
MyDouble = 437.324 ' MyDouble is a Double.
MyString = CStr(MyDouble) ' MyString contains &quot;437.324&quot;.



===============
Security Forums
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

K
  • Locked
  • Question
VBSCRIPT dont work windows 11 23h2 ???
Replies
2
Views
296
SoftwareRT
SoftwareRT
Alexvb6
  • Question
Deprecation of VBScript + Classic ASP: How to Ask Microsoft to cancel their planned craziness
Replies
0
Views
137
Alexvb6
Alexvb6
bdwilcox
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
851
SoftwareRT
SoftwareRT
bdwilcox
  • Locked
  • Question
HTA fails with Syntax Error when working VBScript inserted
Replies
2
Views
252
bdwilcox
bdwilcox
paullem
  • Locked
  • Question
vbscript to read properties of JPEG file
Replies
4
Views
322
paullem
paullem

Part and Inventory Search

Sponsor

Back
Top