DLL que muestra Tabla en ASP

13/06/2006 - 19:01 por Walter | Informe spam
Hola, tengo una DLL que da como salida una tabla que quiero visualizar en
una pagina ASP , el asunto es que no se muy bien como hacerlo. No se si usar
recordset o no.Este es mi codigo,
<%
'Declaracion de variables
option explicit
dim cn 'Objeto de conexión
dim strCadenaConexion 'Cadena de conexión a la base de datos
dim rsAsesor
dim objPAC1
dim objPAC2

dim pp
dim strRpta
dim strRpta2

'Instanciamiento de record set
set cn = server.CreateObject("ADODB.CONNECTION")
set rsAsesor = server.CreateObject("ADODB.RECORDSET")
'Final muestra es la DLL que llamo
set objPAC=server.CreateObject("Final.Muestra")



'Aqui escribo la cadena de conexion
strCadenaConexion = "Driver={
'Me conecto a la base de datos
cn.Open strCadenaConexion

strRpta = objPAC.strMantProducto("I","MM","Seguro
unico","V",strCadenaConexion)


%>
Gracias
 

Leer las respuestas

#1 Miguel Egea
13/06/2006 - 19:58 | Informe spam
bueno, utilizas una cadena de conexion abres un objeto connection que luego
no usas, asp, hace ya 3 o 4 años que no se usa, hace compleja la
programación, es interpretado y además tienes que mezclar código de
presentación con lógica. Ahora tendrías que recorrer el recordset y usar
response.write para devolver código html

Saludos
Miguel egea
"Walter" escribió en el mensaje
news:
Hola, tengo una DLL que da como salida una tabla que quiero visualizar en
una pagina ASP , el asunto es que no se muy bien como hacerlo. No se si
usar
recordset o no.Este es mi codigo,
<%
'Declaracion de variables
option explicit
dim cn 'Objeto de conexión
dim strCadenaConexion 'Cadena de conexión a la base de datos
dim rsAsesor
dim objPAC1
dim objPAC2

dim pp
dim strRpta
dim strRpta2

'Instanciamiento de record set
set cn = server.CreateObject("ADODB.CONNECTION")
set rsAsesor = server.CreateObject("ADODB.RECORDSET")
'Final muestra es la DLL que llamo
set objPAC=server.CreateObject("Final.Muestra")



'Aqui escribo la cadena de conexion
strCadenaConexion = "Driver={
'Me conecto a la base de datos
cn.Open strCadenaConexion

strRpta = objPAC.strMantProducto("I","MM","Seguro
unico","V",strCadenaConexion)


%>
Gracias

Preguntas similares