Ben er uit! gewoon in de script tage de language opgeven.
Onder het uiteindelijke resultaat (overige code heb ik er effe uit geknipt). Oude functie in Jscript was NewFolderF(H), de nieuwe functie die de inputbox/window.prompt wel in het midden plaatst, default al zonder zelfs coordinaten op te geven!, is de VBscript functie NewFolder2.
Wel debiel dat VBscript de inputbox al default in het midden plaatst en Javascript niet. Shame on you mister Gates>:) on giving your propriety scripting language better features then the open-industry scriptinglanguage.
Grapig detail, de in javascript gedeclareerde variabele selH, die dmv de jscript functie HighLight ook een waarde krijgt toegewezen, kon door het aanroepen van de VBscript functie door NewFolder2(selH); gewoon doorgegeven worden aan het VBscript functie gedeelte! Deze 'zag' de waarde van de jscript variabele selH!
-------------------------------------------------------------------------------------------------------------------------
<html>
<head>
<script language="JAVASCRIPT">
var selH;
function NewFolderF(H) {
document.Action.elements("action").value='ADD';
document.Action.elements("par").value=H;
document.Action.elements("Fol").value=window.prompt("new folder name","");
if (document.Action.elements("par").value=='undefined') {document.Action.elements("par").value='0'}
document.Action.submit();
}
function HighLight(H, N) {
var ctr=document.body.createTextRange();
ctr.moveToPoint(window.event.x-10, window.event.y-10);
ctr.moveEnd('character',1);
while (ctr.text.length!=N.length) { ctr.expand('character') }
ctr.select();
selH=H;
selN=N;
}
function MuisKlik() {
var C=window.event.srcElement.className ;
var I=window.event.srcElement.id;
if (I!="") {
if (I.substring(0,1)=='F') { HighLight('',window.event.srcElement.innerText); }
}
if (C=='Iplus') { klapuit() }
}
document.onclick = MuisKlik;
</script>
<SCRIPT LANGUAGE="VBScript">
Function NewFolder2(H)
Dim F
Set F = Document.Action
F.action.value="ADD"
F.par.value=H
F.Fol.value=InputBox("new folder name")
if F.par.value="undefined" then F.par.value="0"
F.Submit
End Function
</SCRIPT>
</head>
<body>
<%
if request.form("Action")<>"" and request.form("Par")<>"" and request.form("Fol")<>"" then
response.write request.form("Action") & "<br>"
response.write request.form("Fol") & "<br>"
response.write request.form("Par") & "<br>"
if request.form("Action") = "DELETE" then
' delete folder/report en children in tabel
o.execute "EXECUTE Portal.dbo.Verwijder '" & request.form("Fol") & "' "
elseIf request.form("Action") = "ADD" then
' submit alle data in tabel
o.execute "EXECUTE Portal.dbo.VoegToe @Name='" & request.form("Fol") & "', @HParent='" & request.form("Par") & "', @Type=2"
elseIf request.form("Action") = "MOVE" then
' verplaats de geselecteerde folder/report naar alle data in tabel
o.execute "EXECUTE Portal.dbo.Verplaats @H='" & request.form("Fol") & "', @To='" & request.form("Par") & "'"
' Response.write "EXECUTE Portal.dbo.Verplaats @H='" & request.form("Fol") & "', @To='" & request.form("Par") & "'"
end if
end if
%>
<table>
<td width=50>
[img]'NieuwRapport5.gif'[/img]
</td>
<td width=50>
[img]'NieuwRapport5.gif'[/img]
</td>
</table>
</body></html>