Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 error ADODB.Recordset error '800a0e78'
 Foro Bloqueado  Tema Bloqueado


Autor Temas
josecruzgro
Starting Member

Mexico
9 Posts
Mensajes - 17 May 2006 :  17:52:47  Ver Perfil  Enviar Email  Enviar josecruzgro un Mensaje Yahoo!
Estimados,

Ojala y me pudieran ayudar, estoy tratando de agregar más divisiones a un catálogo en asp pero me marca error, en la base de datos si se agregan pero ya para que los visualice un usuario normal, no lo hace...

Marca este error: ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/ORINOCO/despliega.asp, line 177


Este es el codigo de la página asp que no se visualiza:
<%@ Language=VBScript %>
<%
dim sql

set oconn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
oconn.Open "DSN=productos"
sql="SELECT * FROM producto "
%>

<HTML>
<HEAD>
<title>Accesorios, Cables, Pigtails, Conectores, Bobinas de Cable, Injectores de Corriente, Protectores vs descargas</title></HEAD>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
cata=Request.QueryString("categoria")

sub datos (category, titulo)
sql1= sql & "WHERE clasificacion='" & category & "' AND activo=true ORDER BY orden"
rs.cursortype = 3
rs.Open sql1, oconn

Response.Write ("<TABLE BORDER='0'> ")
Response.Write ("<TR><TD ALIGN='LEFT'><IMG SRC='" & titulo & "'></TD>")
if category = "vozip" then
Response.Write ("<TD WIDTH=30% ALIGN='right'><a href='vozip/index.htm'><IMG SRC='tecnologia.gif' BORDER='0'></a></td><TD width=40% align='right'>")
Response.Write ("<IMG BORDER='0' SRC='logomultitech.gif'></A></TD></TR></TABLE><BR><BR>")
'Response.Write ("<B><A HREF='vozip/vozipavaya.htm'>Equipos de Acceso de Voz sobre IP para los sistemas telefónicos Avaya</a></B><BR><BR><BR>")

else
if category = "kit_antena" then
Response.Write ("<TD width=50% ></TD><TD><IMG BORDER='0' SRC='logo-luc.gif'><a href='http://www.empretel.com.mx/Proxim/default.htm' target='_parent'><BR><BR></A></TD></TR></TABLE>")
'Response.Write ("<B><A HREF='vozip/vozipavaya.htm'>Equipos de Acceso de Voz sobre IP para los sistemas telefónicos Avaya</a></B><BR><BR><BR>")
elseif category = "waveaccess" then
Response.Write ("<TD width=50% ></TD><TD><a href='http://www.empretel.com.mx/CCTV/productos/acti/acti.htm' target='_blank'><IMG BORDER='0' SRC='logo_acti.gif'><BR><BR></A></TD></TR></TABLE>")
else
if category = "outdoor" then
Response.Write ("<IMG ALT='Ir a página de Lucent' BORDER='0' SRC='logo-luc.gif'></A></TD></TR></TABLE>")
else
rs.MoveFirst

Response.Write ("<TD width=70% align='right'>")

if rs.Fields("clasificacion").Value = "linksys" then
Response.Write ("<A TARGET='_blank'><IMG BORDER='0' SRC='Log_Link.gif'></A></TD></TR></TABLE>")

else
Response.Write ("</TD></TR></TABLE>")
end if

end if

end if
'
end if


Response.Write ("<TABLE BORDER='0'WIDTH=70% >" & VbCrLf) 'crea una tabla
while not rs.EOF
if rs.Fields ("activo") = true then
if rs.Fields("id") <> 110.3 then
Response.Write ("<TR><TD WIDTH=20% >"& VbCrLf)
Response.Write ("<IMG src='"&rs.Fields("fotochica")&"'</TD><TD>")
Response.Write("<B><FONT FACE='Verdana, Arial' SIZE=2 color='darkblue'>" & rs.Fields("Parte") & "</FONT></B><BR>")
if rs.Fields ("descripcion") <> "" then %>
<A HREF="/ORINOCO/descripcion.asp?llave=<%=rs.Fields ("id")%>"> <B><FONT FACE='Verdana,Arial' SIZE="2"><%=rs.Fields("nombre")%></FONT></B></A>
<BR>
<%
Response.Write ("<FONT FACE='Verdana,Arial' SIZE=2>" & rs.Fields("descripcionbreve") & "</FONT>")
else
if rs.fields("id") = 4000 then%>
<A HREF="<%=rs.Fields ("pdf")%>" target="_blank"> <%
Response.Write ("<B><FONT FACE='Verdana,Arial' SIZE=2>" & rs.Fields ("nombre") & "</FONT></B>")%>
</a><%
Response.Write ("<BR><FONT FACE='Verdana,Arial' SIZE=2>"& rs.Fields ("descripcionbreve") & "</FONT>")
else
Response.Write ("<B><FONT FACE='Verdana,Arial' SIZE=2>" & rs.Fields ("nombre") & "</FONT></B>")
Response.Write ("<BR><FONT FACE='Verdana,Arial' SIZE=2>"& rs.Fields ("descripcionbreve") & "</FONT>")
end if
end if


if rs.Fields ("nuevo") = true then
'Response.Write ("<BR><IMG SRC='newproduct.gif'>")
end if


' if rs.Fields ("id") = 197 then
' Response.Write ("<B> !!!Ya lo tenemos en existencia!!! </B>")
' end if

Response.Write ("</TD>")
response.write ("<TD align='right'>")
if rs.fields ("id") <> 4000 then
response.write ("<FONT FACE='Arial, Verdana' color=red SIZE=4>" & FormatCurrency(rs.Fields("precio"),2,true,0) & " </FONT>")
end if
response.write ("</TD>")
response.write ("</TR>")
Response.Write ("<TR><TD COLSPAN=2 ><IMG SRC='linea.gif'</TD></TR>")
Response.Write ("<TR><TD height='15'></TD></TR>")
end if
end if
rs.MoveNext
wend ' despliegue de datos
Response.Write ("</TABLE>")
Response.Write ("<HR><TABLE BORDER='0'><TR><TD><a href='http://www.empretel.com.mx/default.htm' target='_parent'> <IMG BORDER='0' SRC='logito_empre.gif' ></TD><TD>")
Response.Write ("</TD><TD WIDTH=15% ></TD><TD><FONT FACE=ARIAL SIZE=2>Precios al público en U.S. Dólares,<BR> más el 15% de I.V.A.<BR>Sujetos a cambio sin previo aviso.")
Response.Write ("</FONT FACE=ARIAL SIZE=3></TD><TD WIDTH=20% ALIGN='RIGHT'><DIV ALIGN='RIGHT'><H3><A HREF='javascript: history.go(-1)'><FONT FACE=ARIAL SIZE=2>Regresar</A></H3></div></TD></TR></TABLE>")
end sub

select case cata
case "indoor"
datos "indoor", "tit_indoor.jpg"
case "outdoor"
datos "outdoor", "tit_outdoor.jpg"
case "antenas"
datos "antenas", "tit_antenas.jpg"
case "kit_antena"
datos "kit_antena", "tit_kitantenas.jpg"
case "waveaccess"
datos "waveaccess", "tit_waveaccess.jpg"
case "accesorios"
datos "accesorios", "tit_accesorios.jpg"
case "herramientas"
datos "herramientas", "tit_herramientas.jpg"
case "kits_outdoor"
datos "kits_outdoor", "tit_kitsoutdoor.jpg"
case "torres"
datos "torres", "tit_torres.jpg"
case "vozip"
datos "vozip", "tit_vozip.jpg"
case "linksys"
datos "linksys", "tit_linksys.jpg"

case "cctv"
datos "cctv", "tit_cctv.jpg"

case "cctv_camaras"
datos "cctv_camaras", "tit_cctv_camaras.jpg"
case "cctv_domos"
datos "cctv_domos", "tit_cctv_domos.jpg"
case "cctv_lentes"
datos "cctv_lentes", "tit_cctv_lentes.jpg"
case "cctv_monitores"
datos "cctv_monitores", "tit_cctv_monitores.jpg"
case "cctv_tarjetas"
datos "cctv_tarjetas", "tit_cctv_tarjetas.jpg"
case "cctv_accesorios"
datos "cctv_accesorios", "tit_cctv_accesorios.jpg"

case "micronet"
datos "micronet", "tit_micronet.jpg"
case "productos1"
datos "productos1", "tit_productos1.jpg"
case "productos2"
datos "productos2", "tit_productos2.jpg"
case "productos3"
datos "productos3", "tit_productos3.jpg"
case "productos4"
datos "productos4", "tit_productos4.jpg"
case "productos5"
datos "productos5", "tit_productos5.jpg"
case "productos6"
datos "productos6", "tit_productos6.jpg"

case "av_tech"
datos "av_tech-dvrs", "tit_av_tech-dvrs.jpg"
case "av_tech"
datos "av_tech-camaras", "tit_av_tech-camaras.jpg"
case "acti"
datos "acti", "tit_acti.jpg"
case "vivotek"
datos "vivotek", "tit_vivotek.jpg"

end select

rs.Close
set rs = nothing
oconn.Close
set oconn = nothing
%>


<P>&nbsp;</P>

</BODY>
</HTML>

Nota: si se visualiza las especificaciones del producto...

José Cruz Guerrero Solís

jbarra
Junior Member

Chile
192 Posts
Posted - 17 May 2006 :  18:55:18  Ver perfil  Enviar e-mail
Te recomiendo que los cierres los realice dentro del procedimiento (debe ser que las definiciones lo tome local y no global):

rs.Close
set rs = nothing
oconn.Close
set oconn = nothing


Inicio Pagina

josecruzgro
Starting Member

Mexico
9 Posts
Posted - 17 May 2006 :  21:39:43  Ver perfil  Enviar e-mail  Enviar josecruzgro un Mensaje Yahoo!e
Hola jbarra,

Te refieres a que los cierres los ponga antes de: end select

http://www.empretel.com.mx/ORINOCO/despliega.asp?categoria=av_tech-drvs


Ya pude abrir la página

agregando la palabra -drvs al case

case "av_tech"
datos "av_tech-dvrs", "tit_av_tech-dvrs.jpg"
case "av_tech"
datos "av_tech-camaras", "tit_av_tech-camaras.jpg"

Para subir productos al catálogo entro por aqui: http://www.empretel.com.mx/ORINOCO/desp.asp?categoria=(aqui especifico la categoría o división)
Ya puedo entrar a:
http://www.empretel.com.mx/ORINOCO/despliega.asp?categoria=av_tech-dvrs
ahora quiero entrar a la categoría = av_tech-dvrs y me marca error el la línea o punto: rs.Close

José Cruz Guerrero SolísInicio Pagina

jbarra
Junior Member

Chile
192 Posts
Posted - 17 May 2006 :  22:12:19  Ver perfil  Enviar e-mail
Despues del End select estás cerrando la conexión, pero debes hacerlo en el SUB

Inicio Pagina

josecruzgro
Starting Member

Mexico
9 Posts
Posted - 18 May 2006 :  18:05:01  Ver perfil  Enviar e-mail  Enviar josecruzgro un Mensaje Yahoo!e
Gracias Friend Ya pude hacerlo

Ya se visualiza y todo bien... saludos

José Cruz Guerrero SolísInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar