RFC function results with CodePage

Question

Hi everybody,
I'm trying to call RFC SAP Z-function from ASP page:
<%Response.Buffer = false
  Response.Expires = -1
  Response.CacheControl ="no-cache"
  Session.CodePage = "65001"
  Response.charset = "UTF-8"
%>
The result  string is '####' , the problem in codepage?...
We works 640 Final Release - Unicode system.
Have any idea to help me.
Thanks, Natalia.

Answer 1

Hi,
<b>The way I connect to SAP:</b>
(include file)
  Set SapLogon            = CreateObject("SAP.LogonControl.1")
  Set SapConn             = SapLogon.NewConnection
  SapConn.Client        = "<Client>"
  SapConn.Language    = "HE"
  SapConn.HostName   = "<HostName>"       
  SapConn.destination  = "<destination>"
  SapConn.user        = "<user>"
  SapConn.password    = "<password>"
  If SapConn.LogOn(0, True) <> True Then ' LogOn WithOut dialog
    Set SapConn = Nothing
    SAP_LogOn = false
  else     
   SAP_LogOn = true
End If
<b>The way I call RFC SAP Z-Function:</b>
(ASP page)
<!#include file="include/SAP_CONNECTION.INC">
<%Response.Buffer = false
  Response.Expires = -1
  Response.CacheControl ="no-cache"
  Session.CodePage = "65001"
  Response.charset = "UTF-8"
%>
<%
DIM         SEARCHCRITERIA
DIM         SEARCHQUERY
SEARCHCRITERIA = Request.QueryString("SEARCHCRITERIA")
SEARCHQUERY = Request.QueryString("SEARCHQUERY")
if SAP_LogOn then
  response.write Z_SAP_SEARCH
  SAP_LogOff
else     
  response.write "error on Sap LogOn"
end if
Public Function Z_SAP_SEARCH()
Z_SAP_SEARCH = False
Dim dieFunc, strXmlGetData, oFunctionCtrl,TABR, i
strXmlGetData = ""
'Create Function Object
Set oFunctionCtrl = CreateObject("SAP.Functions")
Set oFunctionCtrl.Connection = SapConn
Set dieFunc = oFunctionCtrl.Add("<RFC SAP Z-Function name>")      
dieFunc.Exports("SEARCHCRITERIA") =      SEARCHCRITERIA
dieFunc.Exports("SEARCHQUERY")     =      SEARCHQUERY
If dieFunc.Call = True Then
    Set TABR = dieFunc.tables.Item("T_XML_STRING")
    If TABR.rows.Count > 0 Then
        For i = 1 To TABR.rows.Count
     strXmlGetData = strXmlGetData & TABR.Value(i, "XML_STRING")
     Next
    End If
Else
     strXmlGetData = "<ERROR>Z_SAP_SEARCH connection error</ERROR>"
End If
Z_SAP_SEARCH = strXmlGetData
End Function
%>
As you seen I receive from SAP RFC Z-Function table of strings .
I receive right result strings, but Instead of Hebrew letters I see  #:
When I run the function in SAP I don't see #.
Thanks, Natalia.