Toon posts:

VBScript werkt niet meer zodra JavaScript

Pagina: 1
Acties:

donderdag 3 maart 2005 13:54

Acties:
  • BikkelZ
  • Registratie: Januari 2000
  • Laatst online: 28-03 23:19

BikkelZ

CMD+Z

Topicstarter
Als ik de onLoad er uit sloop, dan doet het VBScript nog wat het moet doen. Gebruik ik een keer insertForm() dan werkt het niet meer.

HTML:
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147

<html>
<head>
<title>Testscript</title>
<script language="javascript" type='text/javascript'>
var formAmount = 1;
var itemCount = new Array(250);
var vraagCount = new Array(250);
var veldCount = new Array(250);
var levelCount = new Array(250);
var tekstCount = new Array(250);

function removeForm(aidie) {
    var lastForm = aidie;
    if (!(aidie == (formAmount - 1))) {
        amountOfOver = formAmount - 1 - aidie;
        lastForm = formAmount;
        for (i=0 ; amountOfOver>i; i++) {
            target = parseInt(aidie) + i;
            origin = target  + 1;
            document.getElementById(vraagCount[target]).value = document.getElementById(vraagCount[origin]).value;
            document.getElementById(veldCount[target]).value = document.getElementById(veldCount[origin]).value;
            document.getElementById(levelCount[target]).value = document.getElementById(levelCount[origin]).value;
            document.getElementById(tekstCount[target]).value = document.getElementById(tekstCount[origin]).value;
        }
    }
    document.getElementById(itemCount[formAmount - 1]).outerHTML = "";
    formAmount -=1;
}

function insertForm() {
    itemCount[formAmount] = formAmount;
    vraagCount[formAmount] = "vraag" + formAmount;
    veldCount[formAmount] = "veld" + formAmount;
    levelCount[formAmount] = "level" + formAmount;
    tekstCount[formAmount] = "tekst" + formAmount;
    document.body.innerHTML = document.body.innerHTML + "<form id=\"" + itemCount[formAmount] + "\">Vraag: <textarea cols=\"12\" rows=\"1\" id=\"" + vraagCount[formAmount] + "\"></textarea>&nbsp;Veld: <textarea cols=\"12\" rows=\"1\" id=\"" + veldCount[formAmount] + "\"></textarea>&nbsp<SELECT id=\"" + levelCount[formAmount] + "\"><Option value=\"1\">Level 1<Option value=\"2\"> Level 2<Option value=\"3\"> Level 3<Option value=\"4\"> Level 4<Option value=\"5\"> Level 5</SELECT>&nbsp;<br><textarea cols=\"75\" rows=\"5\" id=\"" + tekstCount[formAmount] + "\"></textarea><br><table width=\"600\"><tr><td width=\"60\"><div align=\"left\"><input type=\"reset\" name=\"wissen\" value=\"Schonen\"></div></td><td><div align=\"right\"><input type=\"button\" name=\"wissen\" value=\"Naar boven\" onClick=\"switchUp(this.form.id)\"></div></td><td width=\"60\"><div align=\"left\"><input type=\"button\" name=\"wissen\" value=\"Naar onderen\" onClick=\"switchDown(this.form.id)\"></div></td><td width=\"60\"><div align=\"right\"><input type=\"button\" name=\"wissen\" value=\"Verwijderen\" onClick=\"removeForm(this.form.id)\"></div></td></tr></table></form>";
    formAmount += 1;
}

function switcher(target, aidie) {
    vraag = document.getElementById(vraagCount[target]).value;
    veld = document.getElementById(veldCount[target]).value;
    level = document.getElementById(levelCount[target]).value;
    tekst = document.getElementById(tekstCount[target]).value;
    document.getElementById(vraagCount[target]).value = document.getElementById(vraagCount[aidie]).value;
    document.getElementById(veldCount[target]).value = document.getElementById(veldCount[aidie]).value;
    document.getElementById(levelCount[target]).value = document.getElementById(levelCount[aidie]).value;
    document.getElementById(tekstCount[target]).value = document.getElementById(tekstCount[aidie]).value;
    document.getElementById(vraagCount[aidie]).value = vraag;
    document.getElementById(veldCount[aidie]).value = veld;
    document.getElementById(levelCount[aidie]).value = level;
    document.getElementById(tekstCount[aidie]).value = tekst;
}

function switchUp(aidie) {
    if (aidie > 1) {
        switcher((parseInt(aidie) - 1), aidie);
    }
    else alert("Eerste item kan niet omhoog!");
}

function switchDown(aidie) {
    if (aidie < formAmount - 1) {
        switcher(parseInt(aidie) + 1, aidie);
    }
    else alert("Laatste item kan niet omlaag!");
}
    
</script>
<script language="VBScript">
<!--

head="<head><title>OBAssist</title><script src=""layers.js"" language=""JavaScript"" type=""text/javascript""></script><STYLE TYPE=""text/css"">@import url (""style.css"")</STYLE></head><body>"
tablebegin="<table width=""650"" border=""3"" margin=""0"" bordercolor=""#aaaaaa""><tr><td bgcolor=""#aaaaaa""><font size=6><center>Online Betalen Assistent</center></font></td></tr><tr><td>"
tableend="</td></tr></table>"
bottom="</body></html>"

sub confsave_onclick
 on error resume next

 set cf = createobject("Scripting.FileSystemObject")
   if err.number then
   msgbox "Er is een fout opgetreden.", vbcritical
   err.clear : exit sub
   end if

 set a = cf.getdrive("E:\")
   if not a.isready then
   msgbox "Station E is niet toegankelijk.", vbinformation
   set cf = nothing : set a = nothing : exit sub 
   end if 
   
 set conffile = cf.createtextfile("E:\ElektronischOnlineBankieren\Lucas\OBAssist\" & date() & ".txt")  
conffile.write("<a href=""#"" onClick=""showDiv(this, '" + document.forms("1").elements("veld1").value + "')"">" + document.forms("1").elements("vraag1").value + "</a><br>")
 conffile.write("<div id=" + document.forms("1").elements("veld1").value + " class=""level" + document.forms("1").elements("level1").value + """><div align=""left"">")
 conffile.write(document.forms("1").elements("tekst1").value)
 conffile.write("</div></div>")
 conffile.close

 msgbox "TXT document is opgeslagen op schijf."

 set cf = nothing : set a = nothing : set conffile = nothing
end sub 

sub htmlsave_onclick
 on error resume next 

 set bs = createobject("Scripting.FileSystemObject")
   if err.number then
   msgbox "Er is een fout opgetreden.", vbcritical
   err.clear : exit sub
   end if

 set a = bs.getdrive("E:\")
   if not a.isready then
   msgbox "Station E is niet toegankelijk.", vbinformation
   set bs = nothing : set a = nothing : exit sub 
   end if 
   
 set bestand = bs.createtextfile("E:\ElektronischOnlineBankieren\Lucas\OBAssist\" & date() & ".html")  
 bestand.write(head)
 bestand.write(tablebegin)
 bestand.write("<a href=""#"" onClick=""showDiv(this, '" + document.forms("1").elements("veld1").value + "')"">" + document.forms("1").elements("vraag1").value + "</a><br>")
 bestand.write("<div id=" + document.forms("1").elements("veld1").value + " class=""level" + document.forms("1").elements("level1").value + """><div align=""left"">")
 bestand.write(document.forms("1").elements("tekst1").value)
 bestand.write("</div></div>")
 bestand.write(tableend)
 bestand.write(bottom)
 bestand.close
 msgbox "HTML document is opgeslagen op schijf."

 set bs = nothing : set a = nothing : set bestand = nothing
end sub 
-->
</script>

</head>

<body onLoad="insertForm()">
<input type="button" name="confsave" value="Gegevens opslaan">
<input type="button" name="htmlsave" value="Omzetten naar HTML">
<br>
<input type="button" value="Invoegen" onClick="insertForm()">
<br>
<br>
</body>
</html>


Ik ben bang dat er te veel HTML-door-JavaScript-door-VBScript loopt.....maar ik krijg de vinger er niet achter.


*edit* titel is niet helemaal lekker.....

[ Voor 20% gewijzigd door BikkelZ op 03-03-2005 13:55 ]

iOS developer

donderdag 3 maart 2005 15:20

Acties:
  • André
  • Registratie: Maart 2002
  • Laatst online: 06-05 11:13

André

Analytics dude

Wat werkt er niet meer dan? Wat gaat er precies fout? Kun het script wat specifieker?

donderdag 3 maart 2005 15:57

Acties:
  • BikkelZ
  • Registratie: Januari 2000
  • Laatst online: 28-03 23:19

BikkelZ

CMD+Z

Topicstarter
Als ik <body onLoad="insertForm()"> er uit sloop, dan wil hij de file op gaan slaan. Maar als ik die laat staan of een keer handmatig op Invoegen klik (onClick="insertForm()") dan werkt het VBScript helemaal niet meer.

Ik heb als debug ook een msgbox meteen onder sub htmlsave_onclick gezet, die doet al niets, dus het script lijkt gewoon niet meer aangeroepen te kunnen worden.

Het is overigens de complete code van de page.

iOS developer

Reageer