Pb de d'affichage de script

[ Lien ]

<script language="VBScript">
Function WinOS(theOS)
   Dim Navigateur
   Dim i
   Set Navigateur=window.navigator
   Agt = Navigateur.userAgent
   If InStr(Agt, "Win 9x" ) = 0 and InStr(Agt, "Windows 98") Then
    If theOS = 1 then
             WinOS="W98"
        Else
         WinOS="Votre Windows est 98"
      End If
   ElseIf InStr(Agt, "Windows NT 5.0") Then
    If theOS = 1 then
             WinOS="W2K"
        Else
         WinOS="Votre Windows est 2000"
      End If     
  ElseIf InStr(Agt, "Windows NT 5.") = 0 and InStr(Agt, "Windows NT" ) Then
    If theOS = 1 then
             WinOS="WNT"
        Else
         WinOS="Votre Windows est NT"
        End If
     ElseIf InStr(Agt, "Windows 98" ) <> 0 and InStr(Agt, "Win 9x") Then
    If theOS=1 then
             WinOS="WME"
        Else
         WinOS="Votre Windows est ME"
        End If    
     ElseIf InStr(Agt, "Windows NT 5.1" ) <> 0 Then
    If theOS = 1 then
             WinOS="WXP"
        Else
         WinOS="Votre Windows est XP"
        End If
     End If
End Function

</script>
<script language="VBScript">
  Dim theWinOS
  theWinOS = WinOS(2)
  Document.Write  theWinOS
</script>  

Bonjour

Utiliser javascript

Autre chose :
au lieu de :

if((screen.width==800)&&(screen.height==600))
{document.write("Votre resolution écran est de 800 x 600");}

if((screen.width==1024)&&(screen.height==768))
{document.write("Votre resolution écran est de 1024 x 768");}

if((screen.width==1152)&&(screen.height==864))
{document.write("Votre resolution écran est de 1152 x 864");}

if((screen.width==1280)&&(screen.height==960))
{document.write("Votre resolution écran est de 1280 x 960");}

if((screen.width==1280)&&(screen.height==1024))
{document.write("Votre resolution écran est de 1280 x 1024");}

if((screen.width==1600)&&(screen.height==1024))
{document.write("Votre resolution écran est de 1600 x 1024");}

if((screen.width==1600)&&(screen.height==1200))
{document.write("Votre resolution écran est de 1600 x 1200");}

Cordialement
Roro webDev