select_calls(Ref,Fd,NumberOfCalls) ->
        case odbc:next(Ref) of 
                {selected,["CS_CALLER_ID","CS_CALLED_ID","CS_CALL_ID","CS_TAG_TO","CS_TAG_FROM","CS_ROUTE_TO","CS_ROUTE_FROM"], [{Caller,Called,SessionID,TagTo,TagFrom,RouteTo,RouteFrom}]} ->
                        send_msg (Fd,Caller,Called,SessionID,TagTo,TagFrom,RouteTo),
                        send_msg (Fd,Called,Caller,SessionID,TagFrom,TagTo,RouteFrom),
                        select_calls(Ref,Fd,NumberOfCalls+1);
                Error -> 
                        io:format("Select next FAILED!\n")
        end.

send_msg (Fd,Caller,Called,SessionID,TagTo,TagFrom,Route) ->
        Msg = "BYE sip:127.0.0.1:5060 SIP/2.0 \r\n"
        "Via: SIP/2.0/UDP 127.0.0.1:3456\r\n"
        "From: <" ++ Caller ++ ">;tag=" ++ TagFrom ++ "\r\n"
        "To: <" ++ Called ++ ">;tag=" ++ TagTo ++ "\r\n"
        "Call-ID: " ++ SessionID ++ "\r\n"
        "Route: <" ++ Route ++ ">\r\n"
        "CSeq: 123 BYE\r\n"
        "Content-Length: 0\r\n"
        "\r\n",

        gen_udp:send(Fd,"127.0.0.1",5060, [Msg]).