Jo !
Ik heb een script met 3 pulldownmenutjes. Maak je een keuze in het eerste pulldownmenutje, dan worden de waarden in het 2e aangepast naar de keuze in pulldownmenu 1. Kies je in de 2e een keuze, dan wordt pulldownmenu 3 gevuld met de logische volgende keuzes.
Afijn.. Een combinatie van veel database en Javascript. Alleen krijg ik bij het starten van deze pagina de volgende foutmelding :

Is deze foutmelding te onderdrukken, zodat mensen deze niet krijgen ?? Het is nl. voor een intranet, en als je IE het script verder laat uitvoeren, doet ie er welgeteld nog geen seconde over.
werkt niet.
Add-on
Ik heb een script met 3 pulldownmenutjes. Maak je een keuze in het eerste pulldownmenutje, dan worden de waarden in het 2e aangepast naar de keuze in pulldownmenu 1. Kies je in de 2e een keuze, dan wordt pulldownmenu 3 gevuld met de logische volgende keuzes.
Afijn.. Een combinatie van veel database en Javascript. Alleen krijg ik bij het starten van deze pagina de volgende foutmelding :

Is deze foutmelding te onderdrukken, zodat mensen deze niet krijgen ?? Het is nl. voor een intranet, en als je IE het script verder laat uitvoeren, doet ie er welgeteld nog geen seconde over.
code:
1
| <% On Error Resume Next %> |
werkt niet.
Add-on
code:
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
148
149
150
151
152
153
154
155
156
| <%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/Connections/ConnDienstgegevens.asp" -->
<% On Error Resume Next %>
<%
set Rs_Pulldown_1 = Server.CreateObject("ADODB.Recordset")
Rs_Pulldown_1.ActiveConnection = MM_ConnDienstgegevens_STRING
Rs_Pulldown_1.Source = "SELECT Niveau1 FROM TabTelefoongids GROUP BY Niveau1"
Rs_Pulldown_1.CursorType = 0
Rs_Pulldown_1.CursorLocation = 2
Rs_Pulldown_1.LockType = 3
Rs_Pulldown_1.Open()
Rs_Pulldown_1_numRows = 0
%>
<%
set Rs_Pulldown_2 = Server.CreateObject("ADODB.Recordset")
Rs_Pulldown_2.ActiveConnection = MM_ConnDienstgegevens_STRING
Rs_Pulldown_2.Source = "SELECT Niveau1, Niveau2 FROM TabTelefoongids ORDER BY Niveau1 DESC"
Rs_Pulldown_2.CursorType = 0
Rs_Pulldown_2.CursorLocation = 2
Rs_Pulldown_2.LockType = 3
Rs_Pulldown_2.Open()
Rs_Pulldown_2_numRows = 0
%>
<%
set Rs_Pulldown_3 = Server.CreateObject("ADODB.Recordset")
Rs_Pulldown_3.ActiveConnection = MM_ConnDienstgegevens_STRING
Rs_Pulldown_3.Source = "SELECT Niveau2, Niveau3 FROM TabTelefoongids ORDER BY Niveau2 DESC"
Rs_Pulldown_3.CursorType = 0
Rs_Pulldown_3.CursorLocation = 2
Rs_Pulldown_3.LockType = 3
Rs_Pulldown_3.Open()
Rs_Pulldown_3_numRows = 0
%>
<script language=Javascript src="/Unifloor2/optionex.js"></script>
<script language=Javascript>
// (C) 2001 Remco Siero - Bosgoed Automatisering - In opdracht voor Unifloor B.V.
// Pulldown opbouwen verschillende optie's van de verschillende typen vloeren (pulldownmenu 2)
var optionVloerOpties_pulldown2_Serie = new OptionCollection();
document.write('<% While (NOT Rs_Pulldown_2.EOF) %> ');
optionVloerOpties_pulldown2_Serie.Add("<%=(Rs_Pulldown_2.Fields.Item("Niveau2").Value)%>","<%=(Rs_Pulldown_2.Fields.Item("Niveau2").Value)%>","<%=(Rs_Pulldown_2.Fields.Item("Niveau1").Value)%>" );
document.write('<% Rs_Pulldown_2.MoveNext()%>');
document.write('<% Wend %>');
document.write('<% If (Rs_Pulldown_2.CursorType > 0) Then %>');
document.write('<% Rs_Pulldown_2.MoveFirst %>');
document.write('<% Else %>');
document.write('<% Rs_Pulldown_2.Requery %>');
document.write('<% End If %>');
// Einde Pulldown opbouwen verschillende optie's van de verschillende typen vloeren (pulldownmenu 2)
// Pulldown opbouwen Verschillende produkten per optie (pulldownmenu 3)
var optionProdukten_pulldown3_Serie = new OptionCollection();
document.write('<% While (NOT Rs_Pulldown_3.EOF) %> ');
optionProdukten_pulldown3_Serie.Add("<%=(Rs_Pulldown_3.Fields.Item("Niveau3").Value)%>","<%=(Rs_Pulldown_3.Fields.Item("Niveau3").Value)%>","<%=(Rs_Pulldown_3.Fields.Item("Niveau2").Value)%>" );
document.write('<% Rs_Pulldown_3.MoveNext()%>');
document.write('<% Wend %>');
document.write('<% If (Rs_Pulldown_3.CursorType > 0) Then %>');
document.write('<% Rs_Pulldown_3.MoveFirst %>');
document.write('<% Else %>');
document.write('<% Rs_Pulldown_3.Requery %>');
document.write('<% End If %>');
// Einde Pulldown opbouwen Verschillende produkten per optie (pulldownmenu 3)
</script>
<p class="fontcontent"> </p>
<br>
<form name=Produktoverzicht id=Produktoverzicht action="/modules/6__Vloerkeuze__UNIFLOOR/info.asp" method="post" target="produktinfo">
<br>
<table width="90%" border="0" cellspacing="0" cellpadding="0" class="fontcontent" align="center">
<tr>
<td></td>
</tr>
<tr>
<td>
<SELECT name=model id=model onchange="UpdateSelect('series','Produktoverzicht',this.options[this.selectedIndex].value,optionVloerOpties_pulldown2_Serie);">
<option value="">Selecteer uw dienst</option>
<%
While (NOT Rs_Pulldown_1.EOF)
%>
<option value="<%=(Rs_Pulldown_1.Fields.Item("Niveau1").Value)%>" ><%=(Rs_Pulldown_1.Fields.Item("Niveau1").Value)%></option>
<%
Rs_Pulldown_1.MoveNext()
Wend
If (Rs_Pulldown_1.CursorType > 0) Then
Rs_Pulldown_1.MoveFirst
Else
Rs_Pulldown_1.Requery
End If
%>
</select>
</td>
</tr>
</table>
<br>
<br>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" class="fontcontent">
<tr>
<td></td>
</tr>
<tr>
<td>
<SELECT name=series id=series onchange="UpdateSelect('carcolors','Produktoverzicht',this.options[this.selectedIndex].value,optionProdukten_pulldown3_Serie);">
<option>_____________________</option>
<option></option>
<option></option>
<option></option>
</select>
</td>
</tr>
</table>
<br>
<br>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" class="fontcontent">
<tr>
<td height="20"></td>
</tr>
<tr>
<td>
<SELECT name=carcolors id=carcolors >
<option>_____________________</option>
<option></option>
<option></option>
<option></option>
</select>
</td>
</tr>
<tr>
<td><br>
<br>
<p>
<input type="submit" name="Submit" value="Bekijken">
</p>
</td>
</tr>
</table>
<br>
</form>
<tr>
<td>
</td>
</tr>
<%
Rs_Pulldown_1.Close()
%>
<%
Rs_Pulldown_2.Close()
%>
<%
Rs_Pulldown_3.Close()
%> |