[ERREUR] ONCLICK vbscript

**michelr06** · 02/12/2015, 16h20

Bonjour,

J'ai un problème sur onckick qui ne s’exécute pas avec une erreur fonction non definie
je lance depuis un carrousel un vbscript
Si je la lance par un bouton ça marche nickel des que je l'integre a mon carrousel et je la lance en cliquant sur l'image j'ai une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
</head>
<script src="../jquery-1.11.3.min.js"></script> 
<script src="../jquery.circular-carousel.js"></script> 
<script src="js/script.js"></script>
<script Language = VBScript>
 
function lance()
Dim WshSHell 
set WshShell = CreateObject("WScript.Shell") 
WshShell.Run("%windir%\System32\cmd.exe /v /c C:\AppExec.bat") 
End function
</script>
 
 
<body>
</div>
<div class="row">
  <ul class="carousel">
    <li class="item active"><a href="#" onclick="lance"><img src="images/finance.jpg" alt = "appexec"></li>

une idée
Merci

**ProgElecT** · 02/12/2015, 16h40

Salut
Ligne 5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<SCRIPT language="VBScript">

**michelr06** · 03/12/2015, 10h57

Bonjour,
Ca ne fonctionne toujours pas.
je mets le code complet de ma page

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<Html>
<Head>
<Title>Menu Lanceur</Title>
<HTA:Application
Caption = Yes
Icon = "C:\Specif\repair.ico"
Border = Thick
ShowInTaskBar = Yes
Navigable = No
Scroll = No
SingleInstance = Yes
MaximizeButton = No
MinimizeButton = No>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" href="css/normalize.css">
<link rel="stylesheet" href="css/foundation.min.css">
<link rel="stylesheet" href="css/style.css">
<link rel="stylesheet" href="../jquery.circular-carousel.css">
<title>Menu Lanceur</title>
 
</head>
 
<script Language="VBScript">
function lance()
Dim WshSHell 
set WshShell = CreateObject("WScript.Shell") 
WshShell.Run("%windir%\System32\cmd.exe /v /c C:\AppExec.bat") 
End function
</script>
 
 
<body>
</div>
<h1 align="center" style="margin-top:150px;">Menu Lanceur</h1>
<div class="row">
  <ul class="carousel">
    <li class="item active"><a href="#" onclick="lance"><img src="images/compta.jpg"></li>
    <li class="item"><img src="images/rh.jpg" alt = "RH"></li>
 
  </ul>
</div>
<div class="controls">
 <a href="#" class="previous">Precedent</a> 
 <a href="#" class="next">Suivant</a>
</div>
 
<script src="../jquery-1.11.3.min.js"></script> 
<script src="../jquery.circular-carousel.js"></script> 
<script src="js/script.js"></script>
 
</html>