What happens when you try this code?

>hi all,
>i try to use this code below to sent amessage for users pc,
>any help to fixet
>
>

>**activate procedure
> If Not Used('trans1')
>    USE trans1.dbf Alias trans1 Again In 0 Shared
>Endif
>
>SELECT trans1 
>
>DO mac1
>*? dnshostname
>IF trans1.fexerno=3207 AND trans1.mark1=0 AND dnshostname="mohammadqasem"
>IF trans1.fexerno=2610 AND trans1.mark1=0 AND dnshostname="Tareq-Top"
>IF trans1.fexerno=3401 AND trans1.mark1=0 AND dnshostname="mohammed.ks"
>IF trans1.fexerno=2011 AND trans1.mark1=0 AND dnshostname="a-momy"
>
>         loSpeak = CREATEOBJECT("SAPI.SPVoice")
>         loSpeak.Voice = loSpeak.GetVoices().Item(0)  && set the voice
> 
>* FOR i=1 TO 10
>        loSpeak.SPEAK('you have a message')
>       MESSAGEBOX("you have a message")
>
>
>*next
>endif
>endif
>endif
>endif
> 
>/pre>
>thanks