codigo de acceso para pagina

[u_goldman]

Bueno, si es así, hazte una función, que te devuelva una URL o un string vacio en el caso que no exista, esto mediante un case

Function redirecciona(codigo)
mi_redireccion = ""
Select case codigo
case "COD01"
mi_redireccion = "http://www.sitio.com/inmages/pos01.htm"
case "COD02"
mi_redireccion= "http://www.sitio.com/inmages/pos02.htm"
End Select
redirecciona = mi_redireccion
End Function


Y la llamas con

variable = redirecciona(request.form("codigo"))

La evaluas

If variable <> "" Then
response.redirect variable
Else
response.redirect "no_encontrado.asp"
End If

Con eso ya tienes la redirección

Salu2,