Code to logon

[ Follow Ups ] [ Post Followup ] [ Message Board ]

Posted by [IP Address: 206.29.158.130] 'Carlos Mendoza' on September 11, 2001 at 19:02:00 EST:

Hi, I'm trying to use the following code to logon to the SAP server, but I recieve a "no connection to SAP available" error
anyone can help? Thanks!
<%
dim RFC
Set R3 = server.CreateObject("SAP.Functions")
Set LogonControl = CreateObject("SAP.LogonControl.1")
Set TableFactoryCtrl = CreateObject("SAP.TableFactory.1")
Set conn = LogonControl.NewConnection

R3.Connection.messageserver = "105.1.11.221"
R3.Connection.System = "105.1.11.221"
R3.Connection.client = "220"
R3.Connection.user = "xxxx"
R3.Connection.password = "xxxx"
R3.Connection.language = "EN"
'If R3.Connection.logon(0, False) <> True Then
Response.Write "nada"
'else
Response.Write "ok"

set RFC = r3.add("Z_RFC_PRUEBA")

'end if
%>

Follow Ups:

Re: Code to logon Carlos Mendozq 19:02:45 9/11/01 EST (0)

Post a Followup

Name:
E-Mail:
Subject:
Message: : Hi, I'm trying to use the following code to logon to the SAP server, but I recieve a "no connection to SAP available" error : anyone can help? Thanks! : <% : dim RFC : Set R3 = server.CreateObject("SAP.Functions") : Set LogonControl = CreateObject("SAP.LogonControl.1") : Set TableFactoryCtrl = CreateObject("SAP.TableFactory.1") : Set conn = LogonControl.NewConnection : : R3.Connection.messageserver = "105.1.11.221" : R3.Connection.System = "105.1.11.221" : R3.Connection.client = "220" : R3.Connection.user = "xxxx" : R3.Connection.password = "xxxx" : R3.Connection.language = "EN" : 'If R3.Connection.logon(0, False) <> True Then : Response.Write "nada" : 'else : Response.Write "ok" : set RFC = r3.add("Z_RFC_PRUEBA") : 'end if : %>

[ Follow Ups ] [ Post Followup ] [ Message Board ]