Most Valued User Stefan Fuchs Posted May 4, 2022 Author Most Valued User #26 Share Posted May 4, 2022 Hallo Tom, danke für die schnelle Antwort. Jetzt bekomme ich leider einen Kompilierungsfehler. Hoffe habe deinen Block richtig eingesetzt: 'Bereitschaft sSQL = "select * from bereit_plan1 where getDate() between bereit_start and bereit_ende" Set rs = CreateObject("ADODB.Recordset") rs.Open sSQL, db, adOpenDynamic, adLockOptimistic, adCmdText PBXScript.OutputTrace sSQL ' if there are records in recordset, this caller seems to be known bReturn = not rs.EOF If bReturn = TRUE Then name_bereit1 = rs.fields("bereit_name1").value name_bereit2 = rs.fields("bereit_name2").value PBXScript.OutputTrace "name_bereit1 =" & name_bereit1 PBXScript.OutputTrace "name_bereit2 =" & name_bereit2 End If sSQL = "select * from bereit_nummern where (bereit_name = '" & name_bereit1 & "'") or (bereit_name = '" & name_bereit2 & "'") rs.Open sSQL, db, adOpenDynamic, adLockOptimistic, adCmdText PBXScript.OutputTrace sSQL Dim nFeld nFeld = 1 vTelefon1 = "" vTelefon2 = "" while not rs.EOF select case nFeld case 1 vTelefon1 = rs("bereit_nummer") case 2 vTelefon2 = rs("bereit_nummer") end select nFeld = nFeld + 1 rs.MoveNext wend rs.close PBXScript.OutputTrace "vTelefon1 =" & vTelefon1 PBXScript.OutputTrace "vTelefon2 =" & vTelefon2 End If PBXScript.OutputTrace "<--------- KnownCallerId" end function Link to comment Share on other sites More sharing options...
Tom Wellige Posted May 4, 2022 #27 Share Posted May 4, 2022 Zwei Dinge: Setz mal in der Mitte noch ein "rs.Close" End If rs.Close sSQL = "select * from bereit_nummern where (bereit_name = '" & name_bereit1 & "'") or (bereit_name = '" & name_bereit2 & "'") Und am Ende ist ein "End If" zu viel: PBXScript.OutputTrace "vTelefon1 =" & vTelefon1 PBXScript.OutputTrace "vTelefon2 =" & vTelefon2 PBXScript.OutputTrace "<--------- KnownCallerId" Link to comment Share on other sites More sharing options...
Most Valued User Stefan Fuchs Posted May 4, 2022 Author Most Valued User #28 Share Posted May 4, 2022 Leider will es immer noch nicht so recht. A callrouting script has been terminated or could not be executed due to a script error. Script: callrouting.vbs (User, Bereitschaft) Error: Kompilierungsfehler in Microsoft VBScript, Anweisungsende erwartet, 800a0401 Link to comment Share on other sites More sharing options...
Tom Wellige Posted May 4, 2022 #29 Share Posted May 4, 2022 Poste doch bitte mal die komplette Fehlermeldung und häng auch Dein Skript als .RSE Datei exportiert mit an. Link to comment Share on other sites More sharing options...
Most Valued User Stefan Fuchs Posted May 4, 2022 Author Most Valued User #30 Share Posted May 4, 2022 Hallo Tom, anbei die rse. Die Fehlermeldung aus der Ereignisanzeige siehe oben. Bereitschaft_vt.rse Link to comment Share on other sites More sharing options...
Tom Wellige Posted May 4, 2022 #31 Share Posted May 4, 2022 Hallo Stefan, was ich meinte, war die komplette Fehlermeldung aus dem Server Trace. So wie Du sie ja auch vorher schonmal gepostet hattest. Link to comment Share on other sites More sharing options...
Most Valued User Stefan Fuchs Posted May 5, 2022 Author Most Valued User #32 Share Posted May 5, 2022 05 08:27:01.302 0018ec Info SrvScrAPI 07D00540 00000813 SScriptLoader::LoadScript (callrouting.vbs, U:71 Bereitschaft) 05 08:27:01.303 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) callrouting.vbs', scope User 05 08:27:01.303 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) Templates_V4.3.vbs', scope SystemDefault 05 08:27:01.303 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) rulePreProcessing.vbs', scope SystemDefault 05 08:27:01.304 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) rulePostProcessing.vbs', scope SystemDefault 05 08:27:01.304 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) Functions.vbs', scope SystemDefault 05 08:27:01.306 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) actionStandardVoicemail.vbs', scope SystemDefault 05 08:27:01.311 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) actionStandardRemoteInquiry.vbs', scope SystemDefault 05 08:27:01.312 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) actionRedirection.vbs', scope SystemDefault 05 08:27:01.316 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) Resources.vbs', scope SystemDefault 05 08:27:01.318 0018ec Info SrvScCache 06084B00 00000813 SScriptFCache::LoadFile () Done loading (Success) ruleBereitschaft0503211.vbs', scope User 05 08:27:01.320 0018ec Info SrvScrAPI 07BD4E10 00000813 SScriptHostVbs::Initialize () loaded 'callrouting.vbs (User, Bereitschaft)' with 622336 bytes in 0.017s 05 08:27:01.332 00239c *Err SrvScrAPI 07C03FB8 00000813 SPBXScriptSiteVbs::OnScriptError () ~Code: 0 ~Src: Kompilierungsfehler in Microsoft VBScript ~Desc: Anweisungsende erwartet ~RetVal: 800a0401 ~Line: 15301 ~Column: 85 ~Source code: ~ sSQL = "select * from bereit_nummern where (bereit_name = '" & name_bereit1 & "'") or (bereit_name = '" & name_bereit2 & "'") ~ ^ error position Zeigt das ^ error position wirklich die Position des Fehlers? Dann ist es die erste schließende Klammer. Link to comment Share on other sites More sharing options...
Tom Wellige Posted May 5, 2022 #33 Share Posted May 5, 2022 Hallo Stefan, da hatte sich ein kleiner Fehler in das 2. SQL Statement eingeschlichen. Ich habe den Code mal entsprechend angepasst, aufgeräumt und die Funktion umbenannt (da sie ja nicht mehr überprüft, ob der Anrufer bekannt ist). Das GSE Skript habe ich entsprechend angepasst und auch noch eine kleine Überprüfung eingebaut, ob es überhaupt eine 2. Nummer aus der Datenbnk gelesen wurde, bevor versucht wird auf diese zu zustellen. Bereitschaft_vt_v2.rse Link to comment Share on other sites More sharing options...
Most Valued User Solution Stefan Fuchs Posted May 5, 2022 Author Most Valued User Solution #34 Share Posted May 5, 2022 Hallo Tom, vielen Dank für deine Hilfe. Eine Kleinigkeit musste ich noch anpassen. Denn ich habe immer den Fehler bekommen: A callrouting script has been terminated or could not be executed due to a script error. Script: callrouting.vbs (User, Bereitschaft) Error: Laufzeitfehler in Microsoft VBScript, Falsche Anzahl an Argumenten oder ungültige Eigenschaftszuweisung: 'GetDestinations', 800a01c2 In deinem SkriptCode einfügen Block steht nun folgendes GetDestinations ( callerID ). Dann geht es. Link to comment Share on other sites More sharing options...
Tom Wellige Posted May 5, 2022 #35 Share Posted May 5, 2022 Ah, sorry, da hatte ich nicht dran gedacht. Ich hatte das Skript auf meiner Seite nicht ausprobiert, da ich ja Deine Datenbank nicht habe. Freut mich, dass jetzt alles läuft 🙂 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now