Creo que esto no te solucionará el problema, pero si que es recomendable en vez de cargar la página, hacer un redirect desde ASP (es mejor para el cliente):
Código:
<%
usuario = Request.Form("usuario")
contrasena = Request.Form("contrasena")
Set rsgestion = server.CreateObject("ADODB.recordset")
strSql= " select * from usuariosregistrados " & _
" where usuario ='" & usuario & "'" & _
" and contraseña ='" & contrasena & "'"
rsgestion.open strSql,conexion
If not rsgestion.eof Then
Session("AutentificadoGestionadicional") = "1"
Session("Intentos") = 0
response.redirect "AreaGestion.asp?Idusuario="&rsgestion.fields("idusuario")
Else
Session("AutentificadoGestionadicional") = "0"
Session("Intentos") = Session("Intentos") + 1
If Session("Intentos") < 3 Then
response.redirect "AutentificarAreaGestion.asp"
Else
Response.redirect "AccesoDenegado.asp"
End If
End If
rsgestion.close
%>
Ah, y también veo que has hecho una clausula tipo:
If ... then
Else
Else
End if
Eso está mal, solo puede haber un Else (si quieres meter varios, tienes que hacer ElseIf -condicion- then ...)