VBScript

junedali10 · September 25th, 2006, 02:10 PM

Hi, i am new to vbscript and brought the vbscript book.
I just needed to know why the following code does not work properly.
It's on page 14.
------------------------------------------------------
Dim Greeting
Dim YourName
Dim TryAgain

Do

   TryAgain = "No"

      YourName = InputBox("Please enter your name:")

      If YourName = "" Then
      MsgBox "You must enter your name to continue."
   TryAgain = "Yes"
Else
      Greeting = "Hello, " & YourName & ", great to meet you."
End If

Loop While TryAgian = "Yes"

MsgBox Greeting

------------------------------------------------------------------

The code does not seem to start again from the begining when i dont enter any input. I get the first MsgBox and then when i click "ok" i get a second MsgBox with no message. When i click "ok" it just closes and nothing else seems to happen.

Can anyone tell me why this is?

Raghavendra_Mudugal · September 26th, 2006, 12:38 AM

YUP!!! done with changes. IT WORKS.

Dim Greeting
Dim YourName
Dim TryAgain

Do
TryAgain = "No"
YourName = InputBox("Please enter your name:")

If YourName = "" Then
    MsgBox "You must enter your name to continue."
    TryAgain = "Yes"
Else
    Greeting = "Hello, " & YourName & ", great to meet you."
    exit do
End If
Loop Until TryAgian = "Yes"

MsgBox Greeting

With Regards,
Raghavendra Mudugal

junedali10 · September 26th, 2006, 07:44 AM

Thanks Raghavendra_Mudugal. It is works perfectly.

BrianWren · September 27th, 2006, 03:06 PM

Code:

    Dim YourName
    YourName = ""

    Do Until YourName <> ""
        YourName = InputBox("Please enter your name:")

        If YourName = "" Then
            MsgBox "You must enter your name to continue."
        End If
    Loop

   MsgBox "Hello " & YourName & ", great to meet you."