Exécuter du VBScript coté client à partir d'un GridView.

Voici mon début de code; mais il ne compile pas :
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
<scriptlanguage="VBScript">
window.resizeto 310,700
window.moveto 25,25
 
' Create an instance of the event sink.
Set snk = CreateObject( "Tripos.DynamicEventSink" ) 
 
 
 
snk.MoleculeAdd = GetRef( "OnMoleculeAdd" )
snk.MoleculeRemove = GetRef( "OnMoleculeRemove" )
 
' Now hook up the event sink with the event source.
Set app = CreateObject( "Lithium.Application.1" )
Set mdl = app.ActiveModel
Call snk.Advise(mdl) 
Sub
 
LoadMolecule(filename2)
app.Visible= True
' point to files in my local installation
filename = "C:\Bench3DExplorer\20080226\Http\Web_Interaction2\" + filename2
Call mdl.ImportFile(fileName)
Call mdl.Views(1).UpdateChanges 
End
 
Sub
</ script >
 
< asp : gridview id ="GridView2" AutoGenerateColumns = "false" runat ="server" datasourceid ="ObjectDataSource1" AllowPaging ="True" AllowSorting ="True" DataKeyNames ="Name" onrowcommand ="GridView2_RowCommand" onrowcreated ="GridView2_RowCreated"> 
 
 
< Columns > 
 
< asp : BoundField DataField ="Name" HeaderText ="Name" InsertVisible ="False" ReadOnly ="True" SortExpression ="Name" /> 
 
< asp : BoundField DataField ="Gif" HeaderText ="Gif" InsertVisible ="False" ReadOnly ="True" SortExpression ="Gif" /> 
 
< asp : BoundField DataField ="Pdb" HeaderText ="Pdb" InsertVisible ="False" ReadOnly ="True" SortExpression ="Pdb" /> 
 
< asp : ImageField NullImageUrl ="~/Image/Null.JPG" HeaderText ="Gif" DataImageUrlField ="Gif" ></ asp : ImageField > 
 
< asp : buttonfield buttontype ="Image" ImageUrl ="~/B3d/green.jpg" commandname ="B3DDisplayMol" onclick ="LoadMolecule( <%= Pdb %> ) /> 
 
< asp : buttonfield buttontype ="Link" Text = "Hide" commandname ="B3DHideMol" /> 
 
</ Columns >