17/04/2012, 07:00
|
| | | Fecha de Ingreso: enero-2003 Ubicación: leganes
Mensajes: 16
Antigüedad: 22 años, 2 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> |