x="D:\d"
y="ehgfh"
button onclick="zips (x,y)" id=button1 name=button1>clickme
function zips(x,y)
alert(y)
dim shell,z
z="c.bat " & x
set shell=createobject("wscript.shell")
shell.Run z, 1, true
shell.Run "a.bat", 1, true
set shell=nothing
end function
how to eliminate the error? any help is really appriciated.