Elimina esto (de momento no lo necesitas, ...aparte de que ese código no hace nada útil, ...es como si abrieras el word, y lo volvieras a cerrar, sin escribir ningún documento, o sin imprimir, o sin
ná de
ná):
Código:
<%
'Declaración de variables a usar
Dim OBJ_EMAIL
'Creación del objeto para enviar el correo
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
'Cierra el Objeto
Set OBJ_EMAIL = Nothing
%>
El action:
En el formulario en html, cambia name="textfield", por esto:
La página cod.asp debe ser así:
Código:
<%
password = request("txtpassword")
Select Case password
Case "pon_aqui_la_primera_contraseña"
'le das permiso para ir a la pagina
session("validado")=true
response.redirect "pagina_permitida.asp"
Case "pon_aqui_la_segunda_contraseña"
'le das permiso para ir a la pagina
session("validado")=true
response.redirect "pagina_permitida.asp"
Case Else
'si el password no es ninguno de los anteriores,
'lo mandas al formulario
response.redirect "formulario.html"
End Select
%>
En la pagina_permitida.asp, pon esto al principio:
Código:
<%'Si no se ha validado, lo mandamos al formulario
if session("validado")<>true then
response.redirect "formulario.html"
end if%>