Mit Javascript Value eines select/option feldes ändern

esilio

Grünschnabel
Hallo Leute, ich habe ein Problem bei dem ich nichtmehr weiter komme.
Eines vorwerg, mit Javascript kenn ich mich nicht sooo gut aus.

Und Zwar:

Ich habe ein lokales html file das ein javascript dowpdown besitzt, dort will ich etwas auswählen und je nachdem was ausgewählt wurde soll der Value des ausgewählten Wertes in eine txt Datei lokal abgelegt werden.


Klappt auch alles bis auf die aufnahme des value wertes in meine vbs variable:

das problem liegt daran ich weiß nicht wie ich per javascript den valuewert der ausgewählten option ändern kann, Ich habe es mit

document.verzeichnis.elements["unterkategorie"].value = "KTR1";

probiert, aber das funktioniert irgendwie nicht.



Javascript:
<html>
<head>
<title>test v0.2</title>

<script language="Javascript">
<!-- Start
function update_auswahl()
{
var kategorieAuswahl = document.forms.verzeichnis.kategorie;
var unterkategorieAuswahl = document.forms.verzeichnis.unterkategorie;
unterkategorieAuswahl.options.length = 0; // DropDown Menü entleeren

if (kategorieAuswahl.options
[kategorieAuswahl.selectedIndex].
value == "Email")
{
unterkategorieAuswahl.options[1] = new Option("Software");
document.verzeichnis.elements["unterkategorie"].value = "KTR1"; 
unterkategorieAuswahl.options[2] = new Option("Anbieter");
document.verzeichnis.elements["unterkategorie"].value = "KTR2"; 
}
else if (kategorieAuswahl.options
[kategorieAuswahl.selectedIndex].
value == "Internet")
{
unterkategorieAuswahl.options[1] = new Option("Internetzugang");
document.verzeichnis.elements["unterkategorie"].value = "KTR3"; 
unterkategorieAuswahl.options[2] = new Option("Webseiten erstellen");
document.verzeichnis.elements["unterkategorie"].value = "KTR4"; 
}
}
// Ende -->
</script>
<script language="vbscript" type="text/vbscript"> 

sub go_ktr_onClick

	dim TheForm
	set TheForm = Document.Verzeichnis
	r = TheForm.unterkategorie.value
		if r <> "" Then
			Set oFSO = CreateObject("Scripting.FileSystemObject")
				do until oFSO.FolderExists("C:\timelog")
					oFSO.createFolder("c:\timelog")
				loop
					sLBFile = "C:\timelog\TL_" & date & ".txt"
					Set oLBFile = oFSO.OpenTextFile(sLBFile, 8, True)
					oLBFile.WriteLine time & ":  " & r
					msgbox("Zeit für " & r & " aufgezeichnet")
		else
			msgbox("Bitte einen Kostenträger auswählen.")
		end if

end sub

</script>

</head>
<body>

<form name="verzeichnis"> 
<select size="1" name="kategorie" onchange="update_auswahl()"> 
<option selected></option> 
<option value="Email">Email</option> 
<option value="Internet">Internet</option> </select> 
<select size="1" name="unterkategorie">
<option selected></option>  
</select>
<INPUT type="button" name="go_ktr" value="   Go!   "> 
</form>
</body>
</html>
 
Zuletzt bearbeitet:

Neue Beiträge

Zurück