Appeler Sub VBScript via onClick d'un lien href...
Bonjour à tous,
Me revoilà avec mes histoires de liens....
Alors voilà my problem...
J'ai une belle premiere page asp qui se présente comme suit :
Code:
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
|
<%@ LANGUAGE="VBScript" %>
<!--#include file="../code/fonctions.asp"-->
<html>
<head>
<title></title>
</head>
<body>
<ul>
<%
Call ListFolderContents(mes_arguments)
%>
</ul>
</body>
</html> |
Comme vous pouvez vous apercevoir j'inclus en en-tête une bibliothèque de fonctions qui contient la fonction ListFolderContents appelée plus bas.
Voici résumé, les grandes lignes de la bibliothèque de fonctions :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
<%
Sub ListFolderContents(mes_arguments)
'Je fais parcours classique de répertoire passé en paramètre dans "mes_arguments"
'Pour chacun des fichiers trouvés dans ce répertoire, je crée un lien pour pouvoir les ouvrir. Comme suit :
Response.Write("<li><a href=""" & url_fichier & """ target=""_blank"" onClick=""<%Call IncrementCounter()%>""> " & chaine & "</a></li>" & vbCrLf)
end Sub
Sub IncrementCounter()
'Ici je réalise l'incrémentation dans la base access pour compter les clics
end sub
%> |
Comme on peut s'en apercevoir, je voudrai pouvoir appeler IncrementCounter dans l'instruction onClick de chaque lien pour incrémenter un compteur de click se trouvant dans une base access
Mais comme le lien est créé avec un Response.Write dans ListFolderContents qui est, elle-même, appelée dans ma première page ASP, je pense que je me mélange les pinceaux et j'ai systématiquement une erreur quand je clic sur les liens. Mon appel de fonction ne marche pas !
En gros, comment est-ce possible d'appeler une sub VBScript de ma bibliothèque depuis un lien généré dynamiquement sur une page asp via une autre sub de la bibliothèque ?
Merci d'avance pour votre aide !
A
