<% Response.CacheControl = "no-cache" Response.AddHeader "pragma","no-cache" Response.Expires = -1 Session("DESadmin") = 1 if len(Session("DESadmin"))>0 then Response.Redirect("/inicio.asp?"& Request.QueryString) if Request.ServerVariables("REQUEST_METHOD") = "POST" then Dim lblResult, lblColor if IsEmpty(Session("ASPCAPTCHA")) or Trim(Session("ASPCAPTCHA")) = "" then lblResult = "El código ha expirado... Intente nuevamente" lblColor = "red" else Dim TestValue : TestValue = Trim(Request.Form("txtCaptcha")) '//Uppercase fix for turkish charset// TestValue = Replace(TestValue, "i", "I", 1, -1, 1) TestValue = Replace(TestValue, "İ", "I", 1, -1, 1) TestValue = Replace(TestValue, "ı", "I", 1, -1, 1) '//////////////////// TestValue = UCase(TestValue) dim PassValue : PassValue = Trim(Request.Form("pssAdmin")) PassValue = Replace( PassValue,"""", "" ) PassValue = Replace( PassValue,"'", "" ) PassValue = Replace( PassValue, Chr(10), "" ) PassValue = Replace( PassValue, Chr(13), "" ) if StrComp(TestValue, Trim(Session("ASPCAPTCHA")), 1) = 0 then if StrComp( PassValue, "zM_12Jorge" ) = 0 then Session("DESadmin") = 1 Server.Transfer("inicio.asp") else lblResult = "Contraseña inválida" lblColor = "red" end if else lblResult = "Error en código AntiSPAM" lblColor = "red" end if '//IMPORTANT: You must remove session value for security after the CAPTCHA test// Session("ASPCAPTCHA") = vbNullString Session.Contents.Remove("ASPCAPTCHA") '//////////////////// end if end if %>
" name="form1" id="form1" method="post">

<%=lblResult %>

 

Clave de acceso:

 
Código AntiSPAM