Swyx Callback Script (help)

[CasperP 0]

Hi Swyx forum

I'm trying to make a script that will do.
When the supporter call a customer and the customer do not take the phone but call back later it will return the call back to the supporter.
But it's not working and i am kinda stuck what to do know.

 

Function Callback(lokal)

    Dim bReturn
    Dim Strcs
	Strcs = "Provider=SQLOLEDB;Data Source=*********;Initial Catalog=DB_*********;User ID=USER;Password=*********"

    ' open connection to database
    Dim db
    db = CreateObject("ADODB.Connection")
    db.Open(Strcs)

    ' open recordset

    Dim sSQL
    Dim rs
	sSQL = "select * from IpPbxCDR where CalledNumber = '" & _
         IpPbx.CallingNumber & "'"


    rs = CreateObject("ADODB.Recordset")
    rs.Open(sSQL, db, adOpenDynamic, adLockOptimistic,
         adCmdText)
	lokal = rs("OriginationNumber")
    
	bReturn = not rs.EOF
	
    ' destroy var
    rs.Close
    rs = Nothing

    db.Close
    db = Nothing

    Callback = bReturn
End Function

 

Edited January 31, 2019 by CasperP

[Tom Wellige 61]

In case the problem this persists, there is a syntax error in your code. At the marked position a "_" character (underline) is missing to tell VBScript that the command continues in the next line.

 

Alternatively you can also remove the line feed from there so that "adCmdText)" follows immediately after the "," in the same line.