Hola Grupo:
Quiero insertar un registro en bd hecha en access en una
tabla llamada tusuario que tiene como campos "login"
y "pass". Este es el codigo que manejo:
-
% @language=VBScript %
% Dim Usuario, Password, Correcto, objConn, objRS,
strQuery, strProvider
Usuario=Request.Form("Usuario")
Passw=Request.Form("Password")
Correcto=True
if Usuario="" then Correcto=False end if
if Passw="" then Correcto=False end if
if correcto=True then
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=C:\Inetpub\wwwroot\bd1.mdb;"
Set objConn = Server.CreateObject
("ADODB.Connection")
Set objRS = Server.CreateObject
("ADODB.Recordset")
objConn.Open strProvider
strQuery="SELECT * FROM tUsuario Where Login= '" &
Usuario & "';"
Set objRS = objConn.Execute(strQuery)
if not objRS.EOF then
Response.Write("El nombre de usuario ya está
siendo utilizado.")
Response.Write("Por Favor, escoja otro.")
else
strQuery="INSERT INTO tUsuario (Login,Pass) VALUES
('" & Usuario & "', '" & Passw & "');"
Set objRS = objConn.Execute (strQuery)
Response.Write("Gracias por Registrarse, "&
Usuario)
end if
objRS.close
objConn.close
set objRS=nothing
set objConn=nothing
else
Response.Write("Datos Incorrectos")
end if
%>
Tipo de error:
ADODB.Recordset (0x800A0E78)
La operación no está permitida si el objeto está cerrado.
/Alta.asp, line 26
la linea 25 y 26 son estas:
end if
objRS.close
objConn.close
Espero que alguien sepa porque me envia este mensaje.
Salu2 :-|