VB Script sender data til JavaScript
Jeg har et script (standart FSO script) der lister alle billeder + stinavn fra en bestemt mappe.Jeg vil gerne have, at når man klikker på et af billederne, skal et javascript udføre disse to kommandoer:
self.returnValue = <Denne value skal så være et img tag, hvor stinavnet bliver hentet fra FSO scriptet>
og
window.close()
Håber at i forstår hvad jeg mener, og at der er en der kan hjælpe mig...
FSO Scriptet:
--------------------------------------------------
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
Dim objFileScripting, objFolder
dim filename, filecollection, strDirectoryPath, strUrlPath
strDirectoryPath = Server.MapPath("..\img")
strUrlPath="..\img\"
'get file scripting object
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
'Return folder object
Set objFolder = objFileScripting.GetFolder(Server.MapPath("..\img"))
'return file collection in folder
Set filecollection = objFolder.Files
'Shows the picture, and filename
For Each filename in filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
Response.Write "<img src=""" & strUrlPath & filename & """><br>" & filename & "<br><br>"
Next
%>
</BODY>
</HTML>
