CasperP

Swyx Callback Script (help)

Recommended Posts

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

 

callbackforum.jpg

Edited by CasperP

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now