[CODE]
vusuario=Request.Form("usuario")
vcontrasena=Request.Form("contrasena")
if vusuario="" or vcontrasena="" then %>
Error al introducir los datos del usuario
![](imagenes/boton2.gif)
<% else
Set Ob_RS= Ob_Conn.Execute ("select USUARIO from SOCIOS where USUARIO='"&vusuario&"' and CONTRASEÑA='"&vcontrasena&"'")
if NOT Ob_RS.Eof then %>
Usuario autentificado
<% Session("usuario")= vusuario %>
![](imagenes/boton2.gif)
<% else %>
Usuario Incorrecto. Vuelva a introducir los datos
![](imagenes/boton2.gif)
<% end if
%> <%
Ob_RS.Close
end if
[/CODE]
__________________ Lo que no te destruye, te hace más fuerte
![](http://i45.tinypic.com/oehic.png) ![](http://i107.piczo.com/view/4/f/r/5/f/u/5/p/3/b/z/l/img/t327751588_67848_6.gif)
|