"se Produjo Un Error En El Servidor. 20599 : No Se Puede Abrir El Servidor Sql"

[Bogartes]

If Not IsObject (Session("oApp")) Then Set Session("oApp") = Server.CreateObject("Crystal.CRPE.Application")

If Session("BaseReporte") <> "Carreras" Then
On Error Resume Next
Session("oApp").LogOffServer
Session("oApp").LogOnServer "PDSSQL.DLL", "bd-uno-tcp","Carreras",Session("Usuario"),Session("Clave" )
Session("BaseReporte") = "Carreras"
End If

Response.write ( Request.QueryString("Semestre"))
'Response.write ( Request.QueryString("Catedra"))
'Response.write ( Request.QueryString("Seccion"))

If IsObject(Session("oRpt")) Then Set Session("oRpt") = Nothing
Set Session("oRpt") = Session("oApp").OpenReport(PathFisico() & "Programacion_Docente_v3.rpt", 1)
session("oRpt").DiscardSavedData

Set Session("oRptOptions") = Session("oRpt").Options
'Session("oRptOptions").MorePrintEngineErrorMessag es = 0

set session("ParamCollection") = Session("oRpt").Parameterfields

set Param1 = session("ParamCollection").Item(1)
set Param2 = session("ParamCollection").Item(2)
set Param3 = session("ParamCollection").Item(3)
set Param4 = session("ParamCollection").Item(4)
set Param5 = session("ParamCollection").Item(5)

Call Param1.SetCurrentValue (CStr(Cod_Plan_Estudio), 12)
Call Param2.SetCurrentValue (CStr(Request.QueryString("Semestre")), 12)
Call Param3.SetCurrentValue (CStr("%"), 12)
Call Param4.SetCurrentValue (CStr("%"), 12)
Call Param5.SetCurrentValue (CStr("%"), 12)