<% If Request.Form("usuario") = "" OR Request.Form("password") = "" then Response.Redirect "acceso.asp" Else usuario = Trim(Request.Form("usuario")) password = Trim(Request.Form("password")) Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" Set objRS = objDB.Execute("SELECT * FROM acceso WHERE usuario='"&usuario&"'") If objRS.EOF = True then Response.Redirect "error1.asp" Else If objRS.Fields("password") = password then Response.Redirect "admin.asp" Else Response.Redirect "error.asp" End If objRS.Close objDB.Close end if Set objRS = Nothing Set objDB = Nothing End if %>