Foros del Web » Programando para Internet » ASP Clásico »

error '800a01a8'

Estas en el tema de error '800a01a8' en el foro de ASP Clásico en Foros del Web. pues eso tengo un formulario.htm que me lleva a agrega_noticias.asp y me da este rror, para los q no sabemos de asp y bbdd nos ...
  #1 (permalink)  
Antiguo 17/04/2012, 07:00
 
Fecha de Ingreso: enero-2003
Ubicación: leganes
Mensajes: 16
Antigüedad: 21 años, 3 meses
Puntos: 0
error '800a01a8'

pues eso tengo un formulario.htm que me lleva a agrega_noticias.asp y me da este rror, para los q no sabemos de asp y bbdd nos cuesta un mundo :(

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/agrega_noticia.asp, line 9


y este es el codigo
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias.mdb")
sqltext = "SELECT * FROM Noticias"
rs.open "noticias",conn,3,3

'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia
titulo = Request.Form("titulo")
copete = Request.Form("copete")
noticia = Request.Form("noticia")

if copete = "" or titulo ="" or noticia ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

rst.AddNew
rst("titulo") = titulo
rst("copete") = copete
rst("noticia") = noticia
rst.update

'Terminamos e imprimimos un mensaje
Response.Write "La noticia se ha ingresado con exito"
%>
<html>

<head>
<title>Página nueva </title>
</head>

<body>
</body>
</html>

Etiquetas: access, asp, server, sql, campos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:50.