
Always IN Chaos
Novice
Apr 26, 2003, 12:19 AM
Post #1 of 9
(13748 views)
|
VB script question ( hey u said any non-pearl ;) )
|
Can't Post
|
|
Hey guys been a while lol, I still know nothing! I would like to use this vbcode as vbscript on a page buy it's not working for me. :( here's the code :
Private Sub Command1_Click() Dim a As String a = 0 If Text2.Text = 0 Then a = 1 ElseIf Text2.Text = 1 Then a = 0.7 ElseIf Text2.Text = 2 Then a = 0.7 * 0.7 ElseIf Text2.Text = 3 Then a = 0.7 * 0.7 * 0.7 ElseIf Text2.Text = 4 Then a = 0.7 * 0.7 * 0.7 * 0.7 ElseIf Text2.Text = 5 Then a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 ElseIf Text2.Text = 6 Then a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 ElseIf Text2.Text = 7 Then a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 Else End If If Text1.Text = "" Then MsgBox "put something in for x buttmunch", vbOKOnly ElseIf Text3.Text = "" Then MsgBox "please fill in the rest of the boxes before i calculte, or i will download porn onto your computer!!!", vbOKOnly Else Text4.Text = (Text1.Text * Text1.Text) * 0.13 * (a) / Text3.Text Text5.Text = (Text1.Text) * 0.169 Text7.Text = ((Text6.Text) * (1.5)) / 15.3 End If End Sub If you guys could Help i'd love ya for ever. posted this here cause I dont know where else to go to get honest helpful advise.
|