<!-- #include file="adovbs.inc" --> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <META http-equiv=Content-Type content="text/html; charset=unicode"> <META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD> <BODY bgColor=white><FONT face=Tahoma><STRONG> <HR style="COLOR: lightgreen"> </STRONG></FONT> <P><FONT face=Tahoma><STRONG>Administracion de Noticias</STRONG></FONT>&nbsp; </P> <FORM action="pass_news.asp" method="post"> <P>&nbsp;</P> <P><FONT face=Tahoma>Usuario&nbsp;&nbsp; </FONT> <INPUT style="WIDTH: 155px; HEIGHT: 22px" name=T1 size=18></P> <P><FONT face=Tahoma>Clave</FONT><INPUT style="Z-INDEX: 100; LEFT: 79px; WIDTH: 157px; POSITION: absolute; TOP: 165px; HEIGHT: 22px" type=password size=18 name=P1></P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <INPUT type=submit value=Aceptar>&nbsp;&nbsp;&nbsp; <INPUT type=reset value=Limpiar></P> </FORM> <HR style="COLOR: lightgreen"> <P>&nbsp;</P> <% If Request.Form <> "" then nombre=Request.Form("T1") clave=Request.Form("P1") if nombre <> "" and clave <> "" then Dim Conexion,Tabla set Conexion=Server.CreateObject("adodb.connection") Set Tabla=Server.CreateObject("adodb.recordset") Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("base09.mdb") Dim Temp Temp="SELECT * FROM reg_news WHERE usuario='" & nombre & "' and password='" & clave & "'" Tabla.Open temp, conexion if Tabla.BOF=false and Tabla.EOF=false then session("autoriza")=1 Response.Redirect("crea_news.asp") else session.Abandon Response.Redirect("error.html") end if Else Response.Redirect("error.html") End If End if %> </BODY> </HTML>