Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 ¿AYUDA CON ASP con un error que no puedo resolver
 Foro Bloqueado  Tema Bloqueado


Autor Temas
markomurder
Starting Member

Mexico
1 Posts
Mensajes - 25 Mar 2011 :  23:41:42  Ver Perfil  Enviar Email  Enviar markomurder un Mensaje ICQ  Enviar markomurder un Mensaje Yahoo!
tengo un problema al cargar un arcchivo asp en el localhost me marca este error = +
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EE)
Se esperaba ')'
/RegistroUsuario.asp, línea 10, columna 42
If ((Request.Form("NombreDeUsuario") = "")


ahora este es mi codigo


<%@ Language=VBScript %>
<% Option Explicit %>
<! - - #include virtual="/adovbs.inc"- - >
<! - - #include file="ConectarBaseDeDatos.asp"- - >
<html>
<body>

<%
Dim objRS, bolYaExiste
If ((Request.Form("NombreDeUsuario") = "")
OR (Request.form("Contraseña") = "")
OR (Request.form("CorreoElectronico") = "")
OR (Request.form("Nombre") = "") OR (Request.Form("Apellido") = "")) Then
Response.Write "<font color=003366 face=verdana size=2><b>Debes introducir valores en todos los

campos.<p>"
Response.Write "<a href='Registro.html'><font color=006080 face=verdana size=2><b>Regresar."
Response.Write "</a>"
Else
bolYaExiste = False
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "empleado", objConn, , adLockOptimistic, adCmdTable
Do While Not (objRS.EOF OR bolYaExiste)
If (StrComp(objRS("NombreDeUsuario"), Request.Form("NombreDeUsuario"), vbTextCompare) = 0) Then
Response.Write "<font color=003366 face=verdana size=2><b>El Nombre de Usuario que intentas almacenar

ya está en uso. Por favor elige otro.<p></font>"
Response.Write "<a href='Registro.html'><font color=006080 face=verdana size=2><b>Regresar."
Response.Write "</a>"
bolYaExiste = True
End If
If (StrComp(objRS("CorreoElectronico"), Request.Form("CorreoElectronico"), vbTextCompare) = 0) Then
Response.Write "<font color=003366 face=verdana size=2><b>El Email que intentas almacenar ya se

encuentra en la Base de Datos. Por favor elige otro.<p></font>"
Response.Write "<a href='Registro.html'><font color=006080 face=verdana size=2><b>Regresar."
Response.Write "</a>"
bolYaExiste = True
End If
objRS.MoveNext
Loop
If Not bolYaExiste Then
objRS.AddNew
objRS("Nombre") = Request.Form("Nombre")
objRS("Apellido") = Request.Form("Apellido")
objRS("CorreoElectronico") = Request.Form("Email")
objRS("NombreDeUsuario") = Request.Form("UserName")
objRS("Contraseña") = Request.Form("Password")
objRS.Update
Response.Write "<font color=003366 face=verdana size=2><b>El Registro se ha almacenado

correctamente.<p></font>"
Response.Write "<a href='Registro.html'><font color=20a0ff face=verdana size=2><b>Agregar otro

Registro."
Response.Write "</a>"
End If
objRS.Close
Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
%>
</body>
</html>

con la practica de aprende

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar