Guten Morgen,
ich habe da zwei (für euch wohl kleine) Probleme.
Zum einen, ich möchte das sich mein Formular sich nach Auswahl eines Pulldown Feldes aktualisiert, was aber nicht funktioniert.
Fehlermeldung:
Das Objekt unterstützt diese Eigenschaft oder Methode nicht
Warum?
Hier die Codezeile:
Zweitens: wenn ich das Form manuell neu lade und z.B. die DepartmentID mitgebe, zeigt er mir an, dass diese z.B. 80 ist.
Wenn ich aber nun das Formular neu aufbauen lasse und sage, das dort wo die DepartmentID 80 ist, das Objekt selektiert sein soll, macht das Script das nicht.
Codezeile:
hier mal das ganze Script:
Bin noch absoluter Anfänger mit ASP und wäre für einen Gedankenanstoss sehr dankbar.
Gruß, Oliver
ich habe da zwei (für euch wohl kleine) Probleme.
Zum einen, ich möchte das sich mein Formular sich nach Auswahl eines Pulldown Feldes aktualisiert, was aber nicht funktioniert.
Fehlermeldung:
Das Objekt unterstützt diese Eigenschaft oder Methode nicht
Warum?
Hier die Codezeile:
Code:
<select class="form_field" name="select_DepartmentID" id="select_DepartmentID" onChange="document.LoginForm.submit()">
Zweitens: wenn ich das Form manuell neu lade und z.B. die DepartmentID mitgebe, zeigt er mir an, dass diese z.B. 80 ist.
Wenn ich aber nun das Formular neu aufbauen lasse und sage, das dort wo die DepartmentID 80 ist, das Objekt selektiert sein soll, macht das Script das nicht.
Codezeile:
Code:
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3 = "SELECT * FROM AbtListe"
rs3.Open sql3, cn, 0, 1, 1
Do While Not rs3.EOF
if wert_department = rs3.Fields(0).value then
Response.Write("<option select ")
else
Response.Write("<option ")
end if
Response.Write("value='" & rs3.Fields(0).value & "'>" & rs3.Fields(2).value & "</option>")
rs3.MoveNext
LOOP
hier mal das ganze Script:
Code:
<%@ LANGUAGE="VBScript" %>
<html>
<head>
<title>Test TimeKeeping</title>
<link href="layout/design.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
openStr = "Data Source=../../Inetpub/wwwroot/FTP-Test/TimeKeepingXP.mdb; Provider=Microsoft.Jet.OLEDB.4.0"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open openStr
Set rs1 = Server.CreateObject("ADODB.Recordset")
wert_location=request.Form("select_LocationID")
if wert_location <> "" then
sql1="SELECT * FROM Personen WHERE LocationID = " & select_LocationID
end if
wert_department = request.Form("select_DepartmentID")
if wert_department <> "" then
sql1="SELECT * FROM Personen WHERE DepartmentID = " & select_DepartmentID
end if
if (wert_department = "") or (wert_location = "") then
sql1 = "SELECT * FROM Personen"
end if
rs1.Open sql1, cn, 0, 1, 1
%>
<br>
<table align="center" border="0" cellspacing="0" cellpadding="0" background="graphics/window_05.jpg">
<tr>
<td width="21" height="29" colspan="2" background="graphics/window_01.jpg"></td>
<td background="graphics/window_02.jpg"> <span class="cattitle">Choose the Name:</span></td>
<td width="28" height="29" colspan="3" background="graphics/window_03.jpg"></td>
</tr>
<tr>
<td width="3" background="graphics/window_04.jpg"></td>
<td width="18"></td>
<td>
<form action="auswahl.asp" method="post" name="LoginForm">
<table>
<tr>
<td><div class="maintitle">Name:</div></td>
<td><select class="form_field" name="last_name">
<%
Do While Not rs1.EOF
Response.Write("<option value='" & rs1.Fields(0) & "'>" & rs1.Fields(1).value & " " & rs1.Fields(2).value & "</option>")
rs1.MoveNext
LOOP
%>
</select></td>
</tr>
<tr>
<td colspan="2" height="10"></td>
</tr>
<tr>
<td><div class="gen">Location:</div></td>
<td><select name="LocationID" class="form_field" id="select_LocationID">
<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT * FROM DelphiLocations"
rs2.Open sql2, cn, 0, 1, 1
Do While Not rs2.EOF
Response.Write("<option value='" & rs2.Fields(0).value & "'>" & rs2.Fields(1).value & "</option>")
rs2.MoveNext
LOOP
%>
</select></td>
</tr>
<tr>
<td><div class="gen">Department:</div></td>
<td><select class="form_field" name="select_DepartmentID" id="select_DepartmentID" onChange="document.LoginForm.submit()">
<%
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3 = "SELECT * FROM AbtListe"
rs3.Open sql3, cn, 0, 1, 1
Do While Not rs3.EOF
if wert_department = rs3.Fields(0).value then
Response.Write("<option select ")
else
Response.Write("<option ")
end if
Response.Write("value='" & rs3.Fields(0).value & "'>" & rs3.Fields(2).value & "</option>")
rs3.MoveNext
LOOP
%>
</select></td>
</tr>
<tr>
<td colspan="2" height="10">
<%
Response.Write(wert_department)
%>
</td>
</tr>
<tr>
<td></td>
<td><input type="submit" class="form_submit" name="submit" value="OK"></td>
</tr>
</table>
</form>
</td>
<td width="25"></td>
<td width="3" background="graphics/window_06.jpg"></td>
</tr>
<tr>
<td height="3" colspan="5" background="graphics/window_07.jpg"></td>
</tr>
</table>
<%
rs1.Close
rs2.Close
rs3.Close
cn.Close
%>
</body>
</html>
Bin noch absoluter Anfänger mit ASP und wäre für einen Gedankenanstoss sehr dankbar.
Gruß, Oliver