Hola:
Acudo a uds. tengo problemas con la instrucción INSERT
INTO. Esta es el codigo que manejo:
% @language=VBScript %
% Dim Usuario, Password, Correcto, objConn, objRS,
strQuery, strProvider
Usuario=Request.Form("Usuario")
Password=Request.Form("Password")
Correcto=True
if Usuario="" then Correcto=False end if
if Password="" then Correcto=False end if
if correcto=True then
strProvider
= "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=C:\Inetpub\wwwroot\dbIntranet.mdb;"
Set objConn = CreateObject("ADODB.Connection")
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, Password)
VALUES ('" & Usuario & "', '" & Password & "');"
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
en donde me manda error es en esta linea
strQuery="INSERT INTO tUsuario (Login, Password) VALUES
('" & Usuario & "', '" & Password & "');"
objConn.Execute(strQuery) aqui me manda el error
la tabla esta hecha en ACCESS del office XP.
Tengo declarados bien los nombres de los campos y
variables, no se que pueda estar mal.
Salu2: espero respuesta
Leer las respuestas