Aqui esta, pero solo como observacion tuve que subir el if del password al select por que solo asi me lo valida espero que eso afecte....
<p align="center" class="style1 style2"><big>Autentificando ...</big></p>
<%
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 then
'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 " ¡Usuario o password incorrectos!"
a = window.open("index.asp", "_self")
</script>
<%
else
if rs.fields("permiso") = "usuario" then
'Es usuario
%>
<script Language="VbScript">
<% rs.Close %>
msgbox "¡Bienvenido!"
a = window.open("reservacion.asp", "_self")
</script>
<%
else
'Es administrador
%>
<script Language="VbScript">
<% rs.Close %>
msgbox "¡Bienvenido!"
ventana = window.open("administrador.asp","_self")
</script>
<%
end if
end if
end if