Okis este es mi codigo....
<%
Usuario = Request.Form("usuario")
ClaveUsuario = Request.Form("password")
sql = "SELECT usuario, password, permiso FROM usuarios WHERE usuario= '"& Usuario &"'and password='"&ClaveUsuario&"';"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
if rs.eof othen
'No existe usuario
Response.Write "<p align = 'center'><strong><font color='#000066'>No existe usuario o el password es incorrecto...</strong></font></p>"
%>
<script Language="VbScript">
msgbox " ¡El usuario no existe y/o Usuario o password incorrectos!"
a = window.open("index.asp", "_self")
</script>
<%
else
' response.end
' rs.fields("permiso") = TipoPermiso
TipoPermiso = CStr(rs.fields("permiso"))
if TipoPermiso = "administrador" then
%>
<script Language="VbScript">
<% rs.Close %>
msgbox "¡Bienvenido!"
a = window.open("administrador.asp", "_self")
</script>
<%
else
%>
<script Language="VbScript">
msgbox "¡Bienvenido!"
a = window.open("reservacion.asp","_self")
</script>
<%
end if
response.End
end if
rs.Close
%>