Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/03/2007, 17:55
Hereze
 
Fecha de Ingreso: julio-2005
Mensajes: 70
Antigüedad: 19 años, 9 meses
Puntos: 0
Informar de campos obligatorios

Hola a todos, cómo puedo hacer que si un usuario no escribe nada en los campo login y/o password, le salga un * en el campo o campos que se ha dejado en blanco y abajo un mensaje que diga "este campo es obligatorio"

El código de validación es este:

'Validamos su identidad

SQL="SELECT Id_USUARIO, Login, Password FROM " & _
"qcb446 WHERE (Login='"&nombre&"' AND Password='"&password&"');"

'Ejecutamos consulta
set rs=oConn.Execute(SQL)

if rs.EOF then

'No existe ese usuario con esa contraseña
'Así que le negamos el acceso
' PONEMOS ID A CERO --> NINGUN USUARIO TIENE ESTE IDENTIFICADOR
Session("ID")=Cint(0)
Response.Redirect("error.asp")
else
'Le mandamos a la pagina de bienvenida
' SALVAMOS EL ID DE ESTE USUARIO EN LA VARIABLE DE SESION
Session("ID")=CInt(rs.Fields("ID_Usuario"))
'pagina = nombre

'Response.Redirect(nombre)&"?validacion=ok"

pagina = RS.fields("URL").value
pagina=replace(pagina," ","")
Response.Redirect(pagina)

end if

end if


Sub MostrarFormulario

Response.Write("<FORM METHOD=""post"" ACTION=""inicio.asp"">")
Response.Write("&nbsp;&nbsp;&nbsp;Identificación:& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE=""text"" NAME=""Nombre""><BR>")
Response.Write("<br>")
Response.Write("&nbsp;&nbsp;&nbsp;Password:&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb sp;&nbsp;&nbsp;&nbsp;<INPUT TYPE=""password"" NAME=""Password""><BR>")
Response.Write("<br>")
Response.Write("&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;<INPUT TYPE=""submit"" value=""Validar"">")

End Sub 'MostrarFormulario

%>


Gracias.