Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

HELP!! Change Native Oracle Server / ASP / 9I / Package

Status
Not open for further replies.

john2312

Programmer
Mar 24, 2003
1
US
I am trying to change the server on all of our reports to a new server. The server name is the only item that need to be changed.

I am trying to change from orasrv1 to newOrasrv2. I have tried the document cr_rdc9_connectionproperties.pdf but cannot get any of that to work.

The report is using an identical package in the same schema and database name on the new server.

Any help would be greatly appreciated, as I need to deliver to the client by the end of the year.

Here is what I currently have:

<% 'open report

reportname = &quot;Rpt_ListInit.rpt&quot;

Set objFactory = CreateObject(&quot;CrystalReports.ObjectFactory&quot;)


path = Request.ServerVariables(&quot;PATH_TRANSLATED&quot;)

While (Right(path, 1) <> &quot;\&quot; And Len(path) <> 0)
iLen = Len(path) - 1
path = Left(path, iLen)
Wend

Set Session(&quot;oClientDoc&quot;) = objFactory.CreateObject(&quot;CrystalClientDoc.ReportClientDocument&quot;)
Session(&quot;oClientDoc&quot;).ReportAppServer = &quot;localhost&quot;
Session(&quot;oClientDoc&quot;).Open path & reportName


'Change server to new server
Set oDBInfo = Session(&quot;oClientDoc&quot;).DatabaseController.GetConnectionInfos().Item(0)
Set pbLevel1 = oDBInfo.Attributes

pbLevel1.Item(&quot;QE_ServerDescription&quot;) = &quot;db1_newOrasrv2&quot;
pbLevel1.Item(&quot;Server&quot;) = &quot;db1_newOrasrv2&quot;

oDBInfo.Attributes = pbLevel1
oDBInfo.UserName = &quot;system&quot;
oDBInfo.Password = &quot;xxxxxxxxx&quot;

Session(&quot;oClientDoc&quot;).databaseController.logon &quot;system&quot;, &quot;xxxxxxxxx&quot;

'redirect to report
Response.Redirect &quot;ActiveXViewer.asp&quot;

%>


Thanks,
John
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top