Este es el cógido y gracias por el interés que te estás tomando:
<%@Language="VBScript"%>
<html>
<%
Dim conexion,tabla
Set conexion=Server.CreateObject("adodb.connection")
Set tabla=Server.CreateObject("adodb.recordset")
conexion.Open"acceso"
tabla.Open"filtro",conexion
temp="Select * From filtro Where usuario='"&Request("user")&"' and paso='"&Request("pass")&"'"
<%tabla.Open temp,conexion
if tabla.BOF And tabla.EOF then%>
<%="mal"%>
<%ELSE%>
<%="bien"%>
<%
END IF
%>
<html>
