Her er det hele, så skulle der ikke være noget du mangler eller ikke forstår:
Response.write "<script language=""JavaScript""> " & vbcrlf
Response.write "<!-- " & vbcrlf
Response.write "function Entry(ID, Name, DescriptionText, URL) " & vbcrlf
Response.write "{ " & vbcrlf
Response.write " this.ID = ID; " & vbcrlf
Response.write " this.Name = Name; " & vbcrlf
Response.write " this.DescriptionText = DescriptionText; " & vbcrlf
Response.write " this.URL = URL; " & vbcrlf
Response.write "} " & vbcrlf & vbcrlf
sql= "SELECT * FROM Kunder Where KundeID > 0 Order By Navn"
rs.Open Sql, Conn,1
Response.write "var Kunde = new Array() ; " & vbcrlf
Response.write "Kunde[0] = new Entry(""1 "","" [Opret NY] "",""Tryk på overstående knap for at oprette en ny kunde."");"
counter = 1
Do While Not rs.EOF
%>
Kunde[<%=counter%>] = new Entry("<%=rs("KundeID")%> "," <%=rs("Navn")%> ","Navn: <%=rs("Navn")%><br>Domæne: <%=rs("website")%><br>Kontaktperson: <a href='mailto:<%=rs("Mail")%>'><%=rs("Kontaktperson")%></a><br>Telefon: <%=rs("Telefon")%><br>Aktiv / ikke aktiv");
<%
counter = counter + 1
rs.movenext
loop
Rs.Close
Set sql = Nothing
sql= "SELECT * FROM Modul Where KundeID > 0 Order By KundeID"
rs.Open Sql, Conn,1
Response.write vbcrlf & "var Modul1 = new Array() ; " & vbcrlf
Response.write "Modul1[0] = new Entry(""1_1 "","" - "",""Tryk på overstående knap for at oprette en ny kunde."");" & vbcrlf
Do While Not rs.EOF
If KundeID <> rs("KundeID") Then
KundeID = ""
End If
If KundeId = "" Then
Response.write vbcrlf & "var Modul" & rs("KundeID") & " = new Array() ; " & vbcrlf
Response.write "Modul" & rs("KundeID") & "[0] = new Entry(""1_1"","" [Opret Ny] "",""Opret et nyt Temaområde"");"
KundeId = rs("KundeID")
counter = 1
End If
%>
Modul<%=rs("KundeID")%>[<%=counter%>] = new Entry("<%=rs("KundeID")%>_<%=rs("ModulID")%> "," <%=rs("Navn")%> ","Her er noget om modulet");
<%
counter = counter + 1
rs.movenext
loop
ModulID = ""
Rs.Close
Set sql = Nothing
sql= "SELECT * FROM Temaområde Where KundeID > 0 Order By ModulId"
rs.Open Sql, Conn,1
Response.write vbcrlf & "var Tema1_1 = new Array() ; " & vbcrlf
Response.write "Tema1_1[0] = new Entry(""1 "","" - "",""Tryk på overstående knap for at oprette en ny kunde."");" & vbcrlf
Do While Not rs.EOF
If ModulID <> rs("ModulID") Then
ModulID = ""
End If
If ModulId = "" Then
Response.write vbcrlf & "var Tema" & rs("KundeID") & "_" & rs("ModulID") & " = new Array() ; " & vbcrlf
%>
Tema<%=rs("KundeID")%>_<%=rs("ModulID")%>[0] = new Entry("NY"," [Opret Ny] ","Opret et nyt Temaområde");
<%
ModulId = rs("ModulID")
counter = 1
End If
%>
Tema<%=rs("KundeID")%>_<%=rs("ModulID")%>[<%=counter%>] = new Entry("<%=rs("TemaområdeID")%>"," <%=rs("Navn")%> ","Her er noget om Temaområdet");
<%
counter = counter + 1
rs.movenext
loop
Rs.Close
Set sql = Nothing
sql="SELECT DISTINCT M.KundeID, M.ModulID FROM Modul AS M WHERE M.ModulID NOT IN (SELECT ModulID FROM TemaOmråde)"
rs.Open Sql, Conn,1
Do While Not rs.EOF
%>
var Tema<%=rs("KundeID")%>_<%=rs("ModulID")%> = new Array() ;
Tema<%=rs("KundeID")%>_<%=rs("ModulID")%>[0] = new Entry("NY"," [Opret Ny] ","Opret et nyt Temaområde");
<%
rs.movenext
loop
%>
<!-- #INCLUDE FILE="dbClose.asp" -->
function InitializeKunde(currentForm) {
for (var i=0; i < Kunde.length; i++) {
eval(currentForm + ".Kunde.options[i] = new Option('" + Kunde[i].Name + "')");
eval(currentForm + ".Kunde.options[i].value = " + Kunde[i].ID);
}
}
function PopulatePane(currentPane, paneToPopulate) {
var selectedArray, i;
var selected = currentPane.options[currentPane.selectedIndex].value
if (selected == 0) {
if (currentPane.selectedIndex != 0)
selected = currentPane.options[--currentPane.selectedIndex].value;
else {
currentPane.selectedIndex = -1;
return false;
}
}
selectedArray = eval(paneToPopulate + selected);
paneToPopulate = eval("currentPane.form." + paneToPopulate)
for (i = currentPane.form.elements.length - 1; i > 0; i--) {
paneToClear = paneToPopulate.form.elements[i]
if (paneToClear == paneToPopulate) {
break;
}
if (paneToClear.name == "Tema" || paneToClear.name == "Modul" || paneToClear.name == "Kunde") {
for (i = paneToClear.options.length; i != 0; i--) {
paneToClear.options[i - 1] = null;
}
}
}
while (selectedArray.length < paneToPopulate.options.length) {
paneToPopulate.options[(paneToPopulate.options.length - 1)] = null;
}
for (i = 0; i < selectedArray.length; i++) {
if ( selectedArray[i] == null || selectedArray[i] == "" ) {
alert("There is no " + paneToPopulate.Name + " associated with this " + currentPane.Name);
} else {
eval("paneToPopulate.options[i] = new Option('" + selectedArray[i].Name + "')");
eval("paneToPopulate.options[i].value = '" + selectedArray[i].ID + "'");
}
}
if (document.welcome.Tema.options[0] == null) {
document.welcome.Tema.options[0] = new Option("[Step 3] ");
document.welcome.Tema.options[0].value = 0;
}
}
function changePage(form) {
if (form.Tema.selectedIndex != -1 || form.Modul.selectedIndex != -1 || form.Kunde.selectedIndex != -1) {
PaneValues = form.Temaområde.options[form.Temaområde.selectedIndex].value.split("_");
ModulValue = PaneValues[0] + "_" + PaneValues[1]
DriverValue = ModulValue + "_" + PaneValues[2];
whichArray = eval("Temaområde" + PaneValues[0] + "_" + PaneValues[1]);
for (i = 0; i < whichArray.length; i++) {
if (whichArray[i].ID == DriverValue) {
form.action = "java script:document.location.href = '" + strURLPrefix + whichArray[i].URL + "';";
break;
}
}
return true;
} else {
alert("Du manlger at udføre en eller flere steps.");
return false;
}
}
function changeTextBlock(whichPane) {
if (whichPane.selectedIndex == -1)
return false;
var newDescription;
switch (whichPane.name) {
case "Kunde" :
newDescription = Kunde[whichPane.selectedIndex].DescriptionText;
break;
case "Modul" :
newDescription = eval("Modul" + whichPane.form.Kunde.options[whichPane.form.Kunde.selectedIndex].value + "[" + whichPane.selectedIndex + "].DescriptionText");
break;
case "Tema" :
newDescription = eval("Tema" + whichPane.form.Modul.options[whichPane.form.Modul.selectedIndex].value + "[" + whichPane.selectedIndex + "].DescriptionText");
break;
}
if (NS4) {
eval(layerRef + '["description"].document.open()');
eval(layerRef + '["description"].document.write(newDescription)');
eval(layerRef + '["description"].document.close()');
} else if (NS6) {
eval(layerRef + '("description").innerHTML=newDescription');
} else {
eval(layerRef + '["description"].innerHTML=newDescription');
}
}
var bName = navigator.appName;
var bVer = parseInt(navigator.appVersion);
var NS4 = (bName == "Netscape" && bVer == 4);
var NS6 = (navigator.vendor == "Netscape6");
var IE4 = (bName == "Microsoft Internet Explorer" && bVer >= 4);
var Opera = (window.opera)
if (NS4) {
layerRef="document.layers";
styleSwitch="";
} else if (IE4) {
layerRef="document.all";
styleSwitch=".style";
} else if (NS6 || Opera) {
layerRef="document.getElementById";
styleSwitch=".style";
}
// -->
</script>
</head>
<body onLoad="InitializeKunde('document.welcome');">
</td>
<td valign="top">
<!-- intro content -->
<table cellpadding="0" cellspacing="10" width="580" border="0">
<tr>
<td class="text" valign="top" width="490"><b>Welcome til CIFMs System side</b>.<br><br>Nedenunder har du mulighed for at oprette, ændre eller slette i systemets data.
</td></tr>
</table>
<form onSubmit="return changePage(this);" ACTION="System.asp" target="Bund" name="welcome" method="get" enctype="text/plain">
Vælg en kunde:
<div style="font-family: arial; font-size: 11px; margin-bottom: 3px;">
<select name="Kunde"
size="15"
onChange="PopulatePane(this, 'Modul'); changeTextBlock(this);"
style="font-family: arial; font-size: 11px">
<option value="0"> </option>
</select>
<select name="Modul"
size="15"
onChange="PopulatePane(this, 'Tema'); changeTextBlock(this);"
style="font-family: arial; font-size: 11px">
<option value="0">[Step 2] </option>
</select>
<select name="Tema"
size="15"
style="font-family: arial; font-size: 11px;"
onChange=" if (this.form.Tema.options[this.form.Tema.selectedIndex].value == 0) { this.form.Tema.selectedIndex -= 1 }; ">
<option value="0">[Step 3] </option>
</select>
</div>
<INPUT NAME="Submit" TYPE="submit" VALUE="Go!">
</FORM>
<DIV id="description"></DIV>
<script language="JavaScript" type="text/javascript">
<!--
document.welcome.Kunde.selectedIndex = -1;
document.welcome.Modul.selectedIndex = -1;
document.welcome.Tema.selectedIndex = -1;
//-->
</script>
