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

Ayuda con formulario y accion

Estas en el tema de Ayuda con formulario y accion en el foro de ASP Clásico en Foros del Web. Hola amigos, estoy haciendo una seccion de clasificados. Obviamente con un formulario agregan a la base de datos los valores, como categorya, contacto, etc. la ...
  #1 (permalink)  
Antiguo 23/01/2002, 21:04
 
Fecha de Ingreso: enero-2002
Mensajes: 60
Antigüedad: 22 años, 5 meses
Puntos: 0
Ayuda con formulario y accion

Hola amigos, estoy haciendo una seccion de clasificados. Obviamente con un formulario agregan a la base de datos los valores, como categorya, contacto, etc.

la accion del formulario es agregar.asp
agregar.asp contiene el siguiente codigo


<%
set conn = server.createobject("adodb.connection")
conn.open "data1"

sql = "SELECT * from clasificados"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3%>



<%
rs.Fields("Nombre") = Request.form("Nombre")
rs.Fields("categoria") = Request.form("categoria")
rs.Fields("contacto") = Request.form("contacto")
rs.Fields("contenido") = Request.form("contenido")
rs.Fields("DateSent") = Now+((1/24)*5)
rs.Fields("DateExpires") = (Now+((1/24)*5))+Request.Form("validfor")
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

%>


Tomos los valores de todos los campos, veran que "validfor" lo utilizo para que se elimine solo despues de x dias, o no se bien si es para que desaparezca pero si sigue en mi base de datos.
Bueno ese no es el punto. El tema es que me sale el siguiente error:



ADODB.Recordset error '800a0bcd'

El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

/ZN/clasificados/agregar.asp, line 12



La linea 12 tiene esto:

rs.Fields("Nombre") = Request.form("Nombre")


Bueno espero ayuda saludos a todos.! :)




  #2 (permalink)  
Antiguo 23/01/2002, 21:08
Avatar de urjose  
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 22 años, 5 meses
Puntos: 1
Re: Ayuda con formulario y accion

<%
rs.addnew 'te falto esta linea
rs.Fields("Nombre") = Request.form("Nombre")
rs.Fields("categoria") = Request.form("categoria")
rs.Fields("contacto") = Request.form("contacto")
rs.Fields("contenido") = Request.form("contenido")
rs.Fields("DateSent") = Now+((1/24)*5)
rs.Fields("DateExpires") = (Now+((1/24)*5))+Request.Form("validfor")
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

%>

salu2 :) ;)


<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">
  #3 (permalink)  
Antiguo 23/01/2002, 21:22
 
Fecha de Ingreso: enero-2002
Mensajes: 60
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Ayuda con formulario y accion

Muchas gracias, me funciono de pelos.
Ahora ya me escribe en la base de datos.
Un abrazo. :)
  #4 (permalink)  
Antiguo 23/01/2002, 21:25
Avatar de urjose  
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 22 años, 5 meses
Puntos: 1
Re: Ayuda con formulario y accion

de nada, para eso estamos aqui en el foro ;)

salu2 :)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">
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 01:15.