Wieso soll ich Z_Bereich in eine Zahl konvertieren? Ich will doch einen Text.
Gru� Anja -----Urspr�ngliche Nachricht----- Von: Sven Klermund [mailto:[EMAIL PROTECTED]] Gesendet: Friday, March 08, 2002 11:17 AM An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] AW: Teilstring Hast du schon dran gedacht "z_bereich" in einer zahl zu konvertieren ?????? Z_Bereich = cdbl(Request("Bereich")) Nur mal so auf die schnelle Gruss Sven Klermund Vielleicht bringt dir das ja einwenig weiter wenn du teilen in "" setz -----Urspr�ngliche Nachricht----- Von: Weisselberg Anja [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 8. M�rz 2002 11:06 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] Teilstring 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 | 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 | 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
