Digite o seu nome completo ( Preencha sem acentos )

 Dia de Nascimento (dd/mm/aaaa}

 Sexo (Homem/Mulher)

 

" document.write "

" document.write "
Nome: " + Nome + "
" document.write "Idade: " + idade + "
" document.write "Signo: "+ Signo(sig) + "
" document.write "Planeta regente :"+Planeta(sig)+"
" document.write "Elemento :"+elemento+"
" document.write "N�mero de Ambi��o : " +Cstr(Numero(Ambicao)) + "

" document.write "N�mero de Personalidade : " + Cstr(Numero(Personal))+"

" document.write "N�mero de Express�o: " + cstr(Numero(Expres)) + "

" document.write "N�mero de Destino: "+ cstr(Numero(Desti))+"

" document.write "Segundo seu dia de nascimento.....

" document.write "" + pelonas(day(Data)) + "

" document.write "A sua ambi��o � ....

" document.write "" + Amb(Numero(Ambicao)) + "

" document.write "Voc� �...

" document.write ""+Pers(Numero(Personal))+"

" document.write "Segundo seu n�mero de Express�o....

" document.write "" + Exp(Numero(Expres)) +"

" document.write "Segundo seu n�mero de Destino ...

" document.write ""+Des(Numero(Desti))+"

" document.write "
" document.write "" document.write "
Hosted by www.Geocities.ws

" document.close End sub function Numero (byval Num) Dim Final Dim Nums Dim f Final = 0 DO WHILE true IF Num<10 OR Num=11 OR Num=22 then Final = Num Exit do End if Nums = " " Nums = Num Num = 0 FOR f=1 TO len(trim(Nums)) Num = Num + mid(Nums,f,1) NEXT loop Numero = Final End Function -->

Hosted by www.Geocities.ws

1