Hola a Todos.
Tengo un graaaaaan problema. Cuento con una página en ASP que estoy desarrollando y al tratar de insertar un registro a la base de datos en Access me aparce el siguiente error:
------------------------------------------------------------------------------------
Tipo de error:
Microsoft JET Database Engine (0x80004005)
La operación debe usar una consulta actualizable.
/autofashion/Registro.asp, línea 60
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Página:
POST 113 bytes to /autofashion/Registro.asp
Datos de POST:
NOME=Chavaloco&CIDADE=M%E9xico&ESTADO=09&cep=07930 &
[email protected]&user=lalo1&SENHA=a&S ENHA_CONF=a
------------------------------------------------------------------------------------
He intentado TODO LO QUE SÉ
Éste es el código que tengo.
-----------------------------------------------------------------------------------
<% @ LANGUAGE= "VBSCRIPT"%>
<HTML>
<HEAD>
<TITLE>Resultado del Registro.</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#FFFFFF">
<%
'Recogemos valores de la hoja Formulario.htm
NOME1=ucase(request.form("NOME"))
CIDADE1=ucase(request.form("CIDADE"))
ESTADO1=ucase(request.form("ESTADO"))
cep1=ucase(request.form("cep"))
email1=ucase(request.form("email"))
user1=ucase(request.form("user"))
SENHA1=ucase(request.form("SENHA"))
SENHA_CONF1=ucase(request.form("SENHA_CONF"))
If NOME1="" or CIDADE1="" or ESTADO1="" or cep1="" or email1="" or user1="" or SENHA1="" or SENHA_CONF1="" Then
%>
<h2></h2>
<h2></h2>
<H2></h2>
<p align="center">ES NECESARIO LLENAR TODOS LOS CAMPOS PARA PODER REGISTRARSE</h2></p>
<%else
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/AUTOFASHION/Data.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn
sSQL="select U_UserName from Usuario where U_UserName like '"&user1&"'"
'Executamos las sentencia
set rs=conn.execute(sSQL)
do while not rs.eof
campo=rs("U_UserName")
rs.movenext
loop
conn.close
If user1=campo then%>
<h2></h2>
<p align="Center">EL NOMBRE DE USUARIO YA EXISTE.PULSE ATRAS EN SU NAVEGADOR</h2></p>
<%ELSE
If SENHA1<>SENHA_CONF1 THEN%>
<h2></h2>
<p align="Center">LA CONTRASEÑA ES DIFERENTE A LA CONFIRMACION. PULSE ATRAS EN SU NAVEGADOR</p>
<%ELSE
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/AUTOFASHION/Data.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn
'Creamos la sentencia SQL
sSQL="insert into Usuario (U_Nombre,U_Ciudad,U_Estado,U_CP,U_Mail,U_UserName ,U_Pass)values('"&NOME1&"','"&CIDADE1&"','"&ESTADO 1&"','"&cep1&"','"&email1&"','"&user1&"','"&SENHA1 &"')"
'Ejecutamos el Query
set RS=conn.execute(sSQL)
conn.close%>
<h2></h2>
<p align="Center">USTED SE HA REGISTRADO SATISFACTORIAMENTECar</h2></p>
<div align="center"><a href="Login.asp">Inciar Sesion!</a></div>
<%END IF %>
<%END IF%>
<%end if%>
</body>
</html>
-----------------------------------------------------------------------------------
Cuando genero una consulta, ésta aparece correctamente. Sin embargo, al insertar el registro, me genera el error en la linea: set rs=conn.execute(sSQL) en dónde sSQL contiene la sentencia para insertar el registro.
Espero alguien me pueda ayudar. De antemano, Gracias.
