insertando elementos (http://buscamigos.sytes.net)

12/07/2006 - 10:13 por Jordi Maycas | Informe spam

Hola, tengo este codigo, y me genera este error:

Microsoft JET Database Engine error '80004005'

La operación debe usar una consulta actualizable.

/amigos14/check2_new.asp, línea 39

Alguna idea??

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>

<body>
<%
dim descripcion,aficiones,aspiraciones,otros,dia,mes,iear,mail,fecha,nnnn
Response.Write("Hola " & Request.QueryString("user") & "aqui seguimos...")

Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db13.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

nnnn=Request.querystring("user")
Response.Write("usuario:" & nnnn)
descripcion=request.form("descripcion")
aficiones=request.form("aficiones")
aspiraciones=request.form("aspiraciones")
otros=request.form("otros")
dia=request.form("dia nacimiento")
mes=request.form("mes nacimiento")
iear=request.form("year nacimiento")
fecha=dia & "/" & mes & "/" & iear
Response.Write("Fecha=") & fecha
mail=request.form("mail")

dim cadena,user
user=Session("usuario")
Response.Write("usuario" & user)

cadena="Update Files SET Files.Descripcion='" & descripcion &
"',Files.Aficiones='" & aficiones & "',Files.Aspiraciones='" & aspiraciones
& "',Files.[Otras cosas]='" & otros & "',Files.[E-Mail]='" & mail &
"',Files.[Fecha Nacimiento]='" & fecha & "' Where Login='" & nnnn & "'"
rs.Open cadena, connStr, 3, 4
Response.Redirect("home.htm") %>
</body>
</html>