Que esta mal...

[[^_WebMaster^_]]

Me tira una error de sentencia... medio raro, osea pra mi ke todo el codigo esta bien, alguien me puede dar una manito...

Código:

 <title>Registro de Usuarios</title>
<%
Dim nombre, apellidos, email, UserName, password
Dim correcto
Dim oConn, rs, SQL

'Recogemos el formulario
nombre=Request.Form("Nombre")
apellido=Request.Form("apellido")
Email=Request.Form("Email")
UserName=Request.Form("UserName")
Password=Request.Form("Password")

correcto = True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto = False end if
if apellido="" then correcto = False end if
if Email="" then correcto = False end if
if UserName="" then correcto = False end if
if Password="" then correcto = False end if
if correcto then

'Solo si todo está bien, comprobamos con la bd

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Usuarios.mdb"))
SQL="SELECT * FROM Usuarios WHERE (UserName='"&UserName&"');"
'Ejecutamos la consulta
set rs = oConn.Execute(SQL)

	'si no nos devuelve vacío es que el UserName ya está en uso
	if not rs.EOF then
	 Response.Write("El nombre de usuario ya está siendo utilizado. ")
	 Response.Write("Por favor, escoja otro.")
	else
	' es vacio, así que le insertamos en la bd
	SQL="INSERT INTO Usuarios (UserName, password, nombre, apellido, email) VALUES (UserName, password, nombre, apellido, email)"

	oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& nombre)

end if

'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

else

	'El usuario ha metido datos incorrectos
	Response.Write("Datos incorrectos!")
end if

%>

Atte. Gonzalo Valdez
Ing. en Sistemas
Programador BackOffice

[urjose]

Nos da flojera leer, coloca la linea donde te manda el error

saludos :(

[clak]

jajajaj te pasas, no nos gusta leer jajajaja pues si el chico no sabe donde esta mal y quiere que le ayuden y tu le dices pon una raya donde esta mal jajajajaja, saludos

<a href="http://www.webrecurso.com" target="_blank"><img src="http://www.webrecurso.com/imagenes/wr_new.gif" border="0"></a>

[urjose]

jeje lo siento ...

pero si dice que esta mal generalmente sale un error... indicandote la linea en donde esta el problema, asi se encuentra el error mas facil ademas de que te da la descripcion del error.

saludos

[[^_WebMaster^_]]

SQL=&quot;INSERT INTO Usuarios (UserName, password, nombre, apellido, email) VALUES (UserName, password, nombre, apellido, email)&quot;


Aca esta el problema... :cantar: :cantar:

Atte. Gonzalo Valdez
Ing. en Sistemas
Programador BackOffice

[urjose]

SQL=&quot;INSERT INTO Usuarios (UserName, password, nombre, apellido, email) VALUES ('&quot;&amp;UserName&amp;&quot;', '&quot;&amp;password&amp;&quot;','&quot;&amp;nombr e&amp;&quot;','&quot;&amp;apellido&amp;&quot;','&q uot;&amp; email&amp;&quot;')&quot;

saludos

[[^_WebMaster^_]]

Muchas Gracias Chicos... sabia ke algo asi era, pero no sabia komo jejjeje


:P

Atte. Gonzalo Valdez
Ing. en Sistemas
Programador BackOffice

[[^_WebMaster^_]]

Me he sentado a observar, y encontre que mi error era este...

Código:

 Este esta MAL:

SQL="INSERT INTO Usuarios (UserName, password, nombre, apellido, email) VALUES ('"&UserName&"', '"&password&"','"&nombre&"','"&apellido&"','"& email&"')" 

Este esta BIEN:

SQL = "INSERT INTO Usuarios(Nombre, Apellido, Email, UserName, Password) Values('" & request("Nombre") & "', '" & request("Apellido") & "', '" & request("Email") & "', '" & request("UserName") & "', '" & request("Password") & "')"

Atte. Gonzalo Valdez
Ing. en Sistemas
Programador BackOffice

[urjose]

Pues yo los veo igual

Lo unico que cambia es la forma de insertar los valores que ahora los insertas directamente con el request.... y la ordenación.. pero a fin de cuentas es lo mismo

saludos

[[^_WebMaster^_]]

Pues fijate que sin el &quot;request&quot; no me funciona, porque sera...?

Atte. Gonzalo Valdez
Ing. en Sistemas
Programador BackOffice