<%@ Language=VBScript %> <% dim sToDo ' --- Was ist zu tun ? dim sData ' --- Der Inhalt des Javascript-Arrays dim sJava ' --- Der Javascript-CodesToDo = Request.QueryString("ToDo") select case sToDo case "DoThis" ' --- Javascript Anweisungen generieren sData = "'Werte','die','wir übergeben','" & Request.QueryString("id") & "'" sJava = "var arrContent = new Array(" & sData & ");" & vbCrlf sJava = sJava & "window.returnValue=arrContent;" & vbCrlf sJava = sJava & "window.close();" end select %> <HTML> <HEAD> <SCRIPT LANGUAGE=javascript> <!-- var i = new Number(0); setInterval('Loading()', 100); function Loading() { document.all.iLoading.innerHTML+='@'; i++; if (i > 3) CallBack(); } function CallBack() { <%=sJava%> } //--> </SCRIPT> </HEAD> <BODY><div id="iLoading"><b>Loading</b></div></BODY></HTML> |