ERROR ADODB.Recordset error '800a0e78'

[Fher]

mmmmmmmm tiene rato que no agarro el asp ya que esto ahora en aspx pero aqui te doy un codigo que te puede ayudar te recomendaria que te basaras en este codigo esta mas sencillo

Insertar------------------------------------------

id=request.form("id")
pass=request.form("pass")
nombre=request.form("nombre")
tama=request.form("tama")
teatro=request.form("teatro")
banquete=request.form("banquete")
salon=request.form("salon")
recep=request.form("recep")
equipo=request.form("equipo")
sedivide=request.form("sedivide")


strconexion ="tu cadadena de conexion"
set conexion = server.createobject("adodb.connection")
conexion.open strconexion
set pro = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT * FROM salones"
pro.Open sqlstring, conexion, 3, 3

pro.AddNew
pro.Fields("idhotel")=id
pro.Fields("nombre")=nombre
pro.Fields("tamano")=tama
pro.Fields("teatro")=teatro
pro.Fields("banquete")=banquete
pro.Fields("salon")=salon
pro.Fields("recepsion")=recep
pro.Fields("equipo")=equipo
pro.Fields("sedivide")=sedivide

pro.Update
pro.close
set pro=nothing
conexion.close
set Conexion=nothing
%>
--------------
Tu problema es que no le estas quitanto el rst.AddNew se lo tieenes que quitar para actualzar ya que lo toma como que fuera un nuevo registro

lo cual del codigo anterior te quedaria asi para actualizar


pass=request.form("pass")
nombre=request.form("nombre")
tama=request.form("tama")
teatro=request.form("teatro")
banquete=request.form("banquete")
salon=request.form("salon")
recep=request.form("recep")
equipo=request.form("equipo")
sedivide=request.form("sedivide")


strconexion ="tu cadadena de conexion"
set conexion = server.createobject("adodb.connection")
conexion.open strconexion
set pro = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT * FROM salones WHere id=" & id
pro.Open sqlstring, conexion, 3, 3


pro.Fields("nombre")=nombre
pro.Fields("tamano")=tama
pro.Fields("teatro")=teatro
pro.Fields("banquete")=banquete
pro.Fields("salon")=salon
pro.Fields("recepsion")=recep
pro.Fields("equipo")=equipo
pro.Fields("sedivide")=sedivide

pro.Update
pro.close
set pro=nothing
conexion.close
set Conexion=nothing