Hallo Liste,
ich habe in einer SQL-Tabelle eine Spalte und m�chte die Datens�tze trennen und in
zwei Dropdownliste schreiben.
Bekomme aber immer die Fehlermeldung:
Microsoft VBScript runtime Type mismatch
/ASP-Seiten/Zeiterfassung/DatenSuche.asp, line 96
Der Code:
Set DatenBereich = Server.CreateObject("ADODB.Recordset")
DatenBereich.Open "SELECT Bereich FROM ProductTime ORDER BY Bereich", VerbindenSQL,
adOpenDynamic, adLockOptimistic
Z_Bereich = Request("Bereich")
Set DatenProdukt = Server.CreateObject("ADODB.Recordset")
DatenProdukt.Open "SELECT Produkt FROM Daten WHERE Bereich = '" & Z_Bereich & "' ORDER
BY Produkt", Verbinden, adOpenDynamic, adLockOptimistic
Z_Produkt = Request("Produkt")
<TD width="25%">Bereich:</TD>
<TD><SELECT name="Bereich" size="1" onChange="return aktualisieren()">
<% If Z_Bereich = "" Then %>
<OPTION></OPTION>
<% End If
BereichNr = 0
Do until DatenBereich.EOF
Teilen = DatenBereich("Bereich")
Teilen = Split(Teilen, "-")
If Z_Bereich = Teilen AND BereichNr = 0 Then %> <------ Zeile 96
<OPTION selected><%= Teilen %></OPTION><BR>
<% VergleichBereich = Teilen
BereichNr = 1
ElseIf VergleichBereich <> Teilen Then %>
<OPTION><%= Teilen %></OPTION><BR>
<% VergleichBereich = Teilen
DatenBereich.MoveNext
Else
DatenBereich.MoveNext
End If
Loop %>
</SELECT></TD>
</TR>
<TR>
<TD>Produkt:</TD>
<TD><SELECT name="Produkt" size="1" onChange="return aktualisieren()">
<% If Z_Produkt = "" Then %>
<OPTION></OPTION>
<% End If
ProduktNr = 0
Do until DatenProdukt.EOF
Teilen = DatenBereich("Bereich")
Teilen = Split("-", Teilen)
If Z_Produkt = Teilen AND ProduktNr = 0 Then %>
<OPTION selected><%= Z_Produkt %></OPTION><BR>
<% DatenProdukt.MoveNext
ProduktNr = 1
Else %>
<OPTION><%= Teilen %></OPTION><BR>
<% DatenProdukt.MoveNext
End If
Loop %>
</SELECT></TD>
</TR>
Kann mir jemand sagen was ich falsch mache. Vielen Dank im vorraus.
Gru� Anja
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
