Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Servus, folgendes Script habe ich benutzt um in einer Datenzugriffseite mit Hilfe von 2 Kombinationsfeldern meherere Datensätze zu filtern. Allerdings habe ich nach ausführen des scripts nur ein weißes feld! alle Textfelder sind weg! Kann mal jemand schauen, warum es nicht funktioniert? Danke! Tabelle: tbl_Datastore Auswahl soll key1 und key2 kombifeld denjenigen Datensatz ausgeben, der das in keyword1 und keyword2 spalte der Tabelle enthält. <SCRIPT language=vbscript event=DataPageComplete(dscei) for=MSODSC> <!-- 'fINited stellt sicher, dass dieser Code nur beim ersten LAden der Seite Ausgeführt wird If (fInited = False And dscei.DataPage.GroupLevel.Recordsource = "tbl_Datastore") then fInited = true 'Bedingung leere Listenfelder key1.value = "" key2.value = "" 'Undo Startband beim Laden der Seite zu unterdrücken MSODSC.DataPages(0).Undo End If --> </SCRIPT> <SCRIPT language=vbscript event=onchange for=key1> <!-- OnFilterComboChange() --> </SCRIPT> <SCRIPT language=vbscript event=onchange for=key2> <!-- OnFilterComboChange() --> </SCRIPT> <SCRIPT language=vbscript> 'fInited wird nur einmalig ausgeführt Dim fInited fInited=False 'Prozedur OnFilterComboChange-Definition Sub OnFilterComboChange() Dim stwhere 'Führe erst dann eine Aktion durch,wenn das Listenfeld ausgewählt If (key1.value <> "" And key2.value <> "") Then stwhere = "Keyword1=" & key1.value & "" stwhere = stwhere & "And Keyword2='" &key2.value&"' " 'Serverfilter auf das tbl_Datastore-Recordset einstellen MSODSC.RecordsetDefs.Item("tbl_Datastore").ServerFilter = stwhere End If End Sub

• RUNDLL Fehler - kann in Logfile nichts finden - HILFE
• Hardwareprogramm
• Lüfter defekt? wie kann ich das checken?
• fehler 357
• Fehler 0x0000008E (0xC00000005, 0x81D570E6, 0x949C794C, 0x00000000)