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