password sencillo en ASP ¿cómo hago esto?

[3pies]

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:

Código:

action="cod.asp"

En el formulario en html, cambia name="textfield", por esto:

Código:

name="txtpassword"

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%>