(0x800A000D) No coinciden los tipos: 'abreCn'
Publicado por Pablo (1 intervención) el 19/09/2007 11:58:13
Me sale el siguiente error y nose como solucionarlo, aqui teneis el codigo: gracias!
<%
id_seccion=request.Cookies("cookie_seccion")
id_categoria_actual=request.QueryString("id_categoria")
set conexion = abreCn(bdconex,"r") 'abrir conexión con la BBDD
sql="SELECT id_categoria, txt_titulo " &_
"FROM categorias "
response.Write(sql)
response.Flush()
set rs = conexion.execute(sql)
if not rs.eof then
do while not rs.eof
campos_recordset(rs)
str_5 = str_5 & "<tr valign=""top"" class=""Notd"">"
if id_categoria_actual <> id_categoria then
str_5 = str_5 & "<td width=""26"" valign=""top""><img src=""../inc/menu_vert/imagenes/kuno.jpg""</td>"
str_5 = str_5 & "<td width=""135"" valign=""top"" class=""Notd"" height=""17"" align=""right""><a href=""../inc/menu_vert/menu.asp"" class=""a_submenu"">" & txt_titulo & "</a></td>"
str_5 = str_5 & "<tr valign=""top"" class=""Notd"">"
str_5 = str_5 & "<td bgcolor=""#E2E2E2"" height=""17"" colspan=""2"">"
str_5 = str_5 & "</tr>"
else
str_5 = str_5 & "<td width=""135"" valign=""top"" class=""Notd"" height=""17"" align=""right""><a href=""../inc/menu_vert/menu.asp"" class=""a_submenu""><font style=""color: #FF9900;"">" & txt_titulo & "</font></a></td>"
end if
rs.movenext
loop
str_5 = str_5 & "</tr>"
end if
cierraRS(rs)
cierraCN(conexion)
%>
<%
id_seccion=request.Cookies("cookie_seccion")
id_categoria_actual=request.QueryString("id_categoria")
set conexion = abreCn(bdconex,"r") 'abrir conexión con la BBDD
sql="SELECT id_categoria, txt_titulo " &_
"FROM categorias "
response.Write(sql)
response.Flush()
set rs = conexion.execute(sql)
if not rs.eof then
do while not rs.eof
campos_recordset(rs)
str_5 = str_5 & "<tr valign=""top"" class=""Notd"">"
if id_categoria_actual <> id_categoria then
str_5 = str_5 & "<td width=""26"" valign=""top""><img src=""../inc/menu_vert/imagenes/kuno.jpg""</td>"
str_5 = str_5 & "<td width=""135"" valign=""top"" class=""Notd"" height=""17"" align=""right""><a href=""../inc/menu_vert/menu.asp"" class=""a_submenu"">" & txt_titulo & "</a></td>"
str_5 = str_5 & "<tr valign=""top"" class=""Notd"">"
str_5 = str_5 & "<td bgcolor=""#E2E2E2"" height=""17"" colspan=""2"">"
str_5 = str_5 & "</tr>"
else
str_5 = str_5 & "<td width=""135"" valign=""top"" class=""Notd"" height=""17"" align=""right""><a href=""../inc/menu_vert/menu.asp"" class=""a_submenu""><font style=""color: #FF9900;"">" & txt_titulo & "</font></a></td>"
end if
rs.movenext
loop
str_5 = str_5 & "</tr>"
end if
cierraRS(rs)
cierraCN(conexion)
%>
Valora esta pregunta
0