Progress - asp con conexion a progress desde una DLL

   
Vista:

asp con conexion a progress desde una DLL

Publicado por Kanon (1 intervención) el 19/01/2008 00:04:00
hola, tengo un problema con un asp puro que hace 2 conexiones una de estas es para la verison 9 de progress y la otra es para la 10.0b el DSN estan bien ya que los probe de manera individual y si funcionaron, hise un asp que solo se conectaba a la verison 9 y funciono pero el otro asp que se conectaba a la 10.0b no funciono. luego lo intente en otra maquina que ya los tenia instalados las dos versiones pero ahi si me funciono el asp que hace la conexion a la version 10.0b y la 9 no funciono no se que sea el problema e levantado bien los servicios de conexion de estas bases de datos y hasta ya e reinstalado progress y aun sigue con el mismo problema. que podria ser????

bueno aqui esta el asp que hace la conexion a la 9 y 10.ah si las conexiones las tengo en una DLL que se conecta a la 9 y otra dll que lo hace para la 10.0b esta solo abre la conexion y si estan bien configuradas las referencias al actvex microsoft 2.6 y al de microsoft serves pages del asp en las DLL, asi como registradas en system32. espero su respuesta gracias.
solo puse este codigo ya que para conectarme a la otra verison solo cambio la DLL.

<Script Language="vbscript" Runat="Server">


'la dll se conecta a un DSN que abre una conexion a la verison 100b uso este mismo para conectarme a la version9 solo cambiando la dll

Dim oCom,oRec,conectaDLL
Dim cad 'variable que se usa para
mostrar "Conectado"

Set conectaDLL=CreateObject("conexion100b.DLL100b")
conectaDLL.conectar()

cad=conectaDLL.ObtenerConexion() 'Se llama al subroceso en DLL que realiza la
'conexion.
Response.Write(cad) 'Se muestra "conectado en la pagina"

Set oCom = CreateObject("ADODB.Command")
Set oRec = CreateObject("ADODB.Recordset")
oCom.CommandText="SELECT CustNum,Name,City,State,Country FROM
PUB.Customer"
oCom.ActiveConnection = conectaDLL.Cn
Set oRec = oCom.Execute

Response.Write "<TABLE Border=1 CellPadding=5>"& vbNewLIne
Response.Write "<TR>"& vbNewLIne
Response.Write("CONEXION A BASE DE DATOS PROGRESS VERSION 100b")
For col = 0 To oRec.Fields.Count-1
Response.Write "<TH>" & ORec.Fields(col).Name & "</TH>" & vbNewLine
Next
Response.Write "</TR>" & vbNewLine
'vaciando el resto del recordset en memoria a la tabla html
'esto se hace renglon por renglon y usando propiedad value de RECORDSET

Do Until ORec.EOF
Response.Write "<TR>" & vbNewLine
For col = 0 To ORec.Fields.Count-1
Response.Write "<TD>" & ORec.Fields(col).Value & "</TD>" & vbNewLine
Next
Response.Write "</TR>" & vbNewLine
oRec.MoveNext
Loop
Response.Write "</TABLE>" & vbNewLine

'no olvidar cerrar tabla y coneccion y liberar memoria servidor
oRec.Close
set oRec = nothing
conectaDLL.Cn.Close
set conectaDLL.Cn = nothing
</script>
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder