Private Sub ExecuteQuery2 (con As SQL, in As InputStream, resp As ServletResponse) As String
Dim ser As B4XSerializator
Dim m As Map = ser.ConvertBytesToObject(Bit.InputStreamToBytes(in))
Dim cmd As DBCommand = m.Get("command")
Dim limit As Int = m.Get("limit")
''' my addtions starts
Dim newcmd As String=cmd.Name
Dim nstat As Int =newcmd.IndexOf("|")
If nstat>0 Then
newcmd=newcmd.SubString(nstat+1)
dbName=cmd.name.SubString2(0,nstat) & "."
End If
'''' my addtions end
Dim ns As String= Main.rdcConnector1.GetCommand(newcmd) ''' modified cmd to newcmd
ns=ns.Replace("&",dbName) ''' inserting dbname n place of &