<%
dim username
dim pass
dim msg
dim checked
username = Request.Form("username")
pass = Request.Form("password")
if request.Form("Enviar")="Enviar" then
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conne
rs.open "Select * From Admin Where User_ID='" & username & "'",cn
if not rs.eof then
if pass = rs.fields("Password") then
session("AdminOk") = "true"
session("Username") = username
response.Redirect("admin.asp")
else
msg = ("Password not correct")
end if
else
msg = ("Username not correct")
end if
rs.Close
cn.Close
set rs = nothing
set cn = nothing
End if
if request.QueryString("cmd") = "logout" then
session.Abandon()
End if
%>
Caja Rural Los Andes S.A.
Ingresar Nombre de Usuario y Contraseņa