
Pongo mi código a ver si alguien detecta cual puede ser mi error, gracias:
<% IF (Request.Form <> "") THEN
Set Ob_Conn= Server.CreateObject("ADODB.Connection")
Set Ob_RS= Server.CreateObject("ADODB.RecordSet")
Ob_Conn.Open "SNS"
Ob_RS.Open "Alumnos",Ob_Conn,1,3
param = request.form("usuario")
param2 = request.form("password")
IF Request.Form("T1")="admin" AND Request.Form("T2")="jrios" then%>
<script language="JavaScript">
self.top.location.replace('profesor.asp')
</script>
<%
ELSE
OB_RS.Filter="usuario = '"&Request.form ("T1")&"'"&" AND "&"contraseña = '"&Request.form ("T2")&"'"
IF not Ob_RS.eof THEN
%>
<script language="JavaScript" type="text/javascript">
self.top.location.replace('alumno.asp?target=top')
response.redirect("alumno.asp");
</script><%
ELSE
%>
<Script Language="JavaScript">
alert("USted no es usuario")
location.href='marco.asp'
</Script>
<%
END IF
Session("usua")=Ob_RS("usuario")
END IF
ELSE%>
<form method="POST" action="marco.asp">
<!--webbot bot="SaveResults" u-file="C:\Documents and Settings\Silvy\Escritorio\PFC\_private\form_result s.csv" s-format="TEXT/CSV" s-label-fields="TRUE" --><p>
<font size="4><font color="#006699">
</font>
</font><b><font size="4"><font color="#3366FF">Usuario</font><font color="#006699"> &nbs p; </font>
</font></b><input NAME="T1" size="18"></p>
<p><font color="#3366FF"> <b><font size="4">contraseña </font></b>
</font>
<input type ="password" name="T2" size="18"></p>
<p> <input type="submit" value="Enviar" name="B1"></p>
</form>
<p> <b> <font color="#006699"> </font> <font color="#000080"><a href="altausuario.asp">
<font color="#0000D9">Pincha para darte de alta</font></a></font></b></p>
<%END IF%>
</body>
</html>