[CODE]
vusuario=Request.Form("usuario")
vcontrasena=Request.Form("contrasena")

if vusuario="" or vcontrasena="" then %>

Error al introducir los datos del usuario

<% 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 %>

<% else %>

Usuario Incorrecto. Vuelva a introducir los datos

<% end if
%> <%
Ob_RS.Close
end if
[/CODE]