Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 no se meconectaba con bd y ahora....
 Foro Bloqueado  Tema Bloqueado


Autor Temas
jpalou
Starting Member

España
22 Posts
Mensajes - 25 Nov 2001 :  08:24:47  Ver Perfil  Enviar Email
Tengo un archivo que primero no se me coenctaba con la base de datos... y ahora se me conecta y me da este error, mostrando la pagina html...

Administrar productos
Microsoft VBScript runtime error '800a01a8'
Object required: ''

/huskymax/db/administrar_productos.asp, line 136

De que es??? Gracias anticipadas

Jaume
el codigo de la pagina es el siguiente...

<%
FUNCTION corregirComillas( cadena )
corregirComillas = REPLACE( cadena, "'", "''")
END FUNCTION

FUNCTION puntoDecimal(cadena)
puntoDecimal=REPLACE(cadena,",",".")
END FUNCTION

' Recupera las variables del formulario
agregarProducto = TRIM( Request( "agregarProducto" ) )
actualizarProducto = TRIM( Request( "actualizarProducto" ) )


IdentificadorProducto = TRIM( Request("idp") )
NombreProducto = TRIM( Request( "NombreProducto" ) )
PrecioProducto = puntoDecimal(Request( "PrecioProducto" ))
ImagenProducto = TRIM( Request( "ImagenProducto" ) )
CategoriaProducto = TRIM( Request( "CategoriaProducto" ) )
DescBrevProducto = TRIM( Request( "DescBrevProducto" ) )
DescripcionProducto = TRIM( Request( "DescripcionProducto" ) )
EstadoProducto = TRIM( Request( "EstadoProducto" ) )
MostrarProducto = TRIM( Request( "MostrarProducto" ) )


' Asigna los valores predeterminados
IF NombreProducto = "" THEN
NombreProducto = "?????"
END IF
IF PrecioProducto = "" THEN
PrecioProducto = 0
END IF
IF ImagenProducto = "" THEN
ImagenProducto = "?????"
END IF
IF CategoriaProducto = "" THEN
CategoriaProducto = "?????"
END IF
IF DescBrevProducto = "" THEN
DescBrevProducto = "?????"
END IF
IF DescripcionProducto = "" THEN
DescripcionProducto = "?????"
END IF

' Establecimiento de la conexión a la base de datos

strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("tiendadb2000.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn

%>
<html>
<head><title>Administrar productos</title></head>
<body bgcolor="blue">
<%
' Agrega el nuevo producto
IF agregarProducto <> "" THEN

sqlString = "INSERT INTO Productos " &_
"(NombreProducto, PrecioProducto, ImagenProducto, " &_
"CategoriaProducto, DescBrevProducto, DescripcionProducto," &_
"EstadoProducto ) VALUES ( " &_
" '" & corregirComillas( NombreProducto )& "', "&_
" " & PrecioProducto & ", "&_
" '" & corregirComillas( ImagenProducto ) & "', "&_
" '" & corregirComillas( CategoriaProducto ) & "', "&_
" '" & corregirComillas( DescBrevProducto ) & "', "&_
" '" & corregirComillas( DescripcionProducto ) & "', "&_
EstadoProducto & " )"

Conexion.Execute sqlString
%>
<center>
<table width="600" cellpadding="4"
cellspacing="0" bgcolor="gold">
<tr>
<td>
El producto <%=NombreProducto%> ha sido agregado con éxito a la base de datos
</td>
</tr>
</table>
</center>
<p>
<%
END IF
' Actualiza el producto
IF actualizarProducto <> "" THEN

sqlString = "UPDATE Productos SET " &_
"NombreProducto=' " & corregirComillas( NombreProducto ) & "'," &_
"PrecioProducto=" & PrecioProducto & "," &_
"ImagenProducto=' " & corregirComillas( ImagenProducto ) & "'," &_
"CategoriaProducto=' " & corregirComillas( CategoriaProducto ) & "'," &_
"DescBrevProducto=' " & corregirComillas( DescBrevProducto ) & "'," &_
"DescripcionProducto=' " & corregirComillas( DescripcionProducto ) & "'," &_
"MostrarProducto=' " & MostrarProducto & "'," &_
"EstadoProducto=" & EstadoProducto & " WHERE " &_
"IdentificadorProducto=" & IdentificadorProducto

Conexion.Execute sqlString
%>
<center>
<table width="600" cellpadding="4"
cellspacing="0" bgcolor="gold">
<tr>
<td>
El producto <%=NombreProducto%> se ha actualizado en la base de datos
</td>
</tr>
</table>
</center>
<p>
<%
END IF

%>

<center>
<table width="600" border=1 bgcolor="lightblue"
cellpadding="4" cellspacing="0">
<tr>
<td colspan="2" bgcolor="gold">
<font face="Arial" size="3"><b>
Administrar productos
</b></font>
</td>
</tr>
<tr>
<td align="center">

<table border="1" size="400" cellpadding="3"
cellspacing=0 bgcolor="white">
<%
sqlString = "SELECT IdentificadorProducto, NombreProducto FROM Productos " &_
"ORDER BY NombreProducto"
SET RS = Conexion.Execute( sqlString )
WHILE NOT RS.EOF
%>
<tr>
<td>
<a href="actualizar_producto.asp?idp=<%=RS( "IdentificadorProducto")%>">
<%=RS( "NombreProducto" )%></a>
</td>
</tr>
<%
RS.MoveNext
WEND
%>
</table>
</td>
</tr>
<tr>
<td>
<a href="agregar_producto.asp">Agregar producto</a>
</td>
</tr>
</table>
</center>
</body>
</html>


Jaume Palou

Parsons
Moderator

España
1247 Posts
Posted - 26 Nov 2001 :  18:46:56  Ver perfil  Enviar e-mail  Visit Parsons's Homepage
No estableces el objeto RS.

Antes de la linea que asi reza :

sqlString = "SELECT IdentificadorProducto, NombreProducto FROM Productos " &_

crea una que ponga lo siguiente:

set RS=server.createObject("ADODB.Recordset")

Me parece que era la linea 134...

Inicio Pagina

Parsons
Moderator

España
1247 Posts
Posted - 26 Nov 2001 :  18:50:12  Ver perfil  Enviar e-mail  Visit Parsons's Homepage
y después, en vez de usar:

set RS=Conexion.Execute(sqlString)

usa:

RS.Open sqlString,Conexion

Inicio 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