<html>
<script>
function validarcodigo(pThis, e, pValor)
{
var key = window.event ? e.keyCode : e.which;
switch (pThis)
{
case 'txt_codigo':
//si es enter es 13, si es click es 0.
if (key==13 || key==0)
{
document.forms[0].h_quehacer.value = 'VALIDAR';
document.forms[0].submit();
break;
}
default:
break;
}
}
</script>
<body>
<%
dim v_codigo
v_quehacer = request.form("h_quehacer")
v_codigo = request.form("txt_codigo")
v_mensaje = ""
SELECT CASE v_quehacer
CASE "VALIDAR"
v_sql = "SELECT * FROM CLIENTES WHERE CODIGO = " & v_codigo
Set session("reco") = session("con").Execute(v_sql)
If Not session("reco").EOF Then
v_mensaje = "bienvenido " & session("reco")("NOMBRE")
else
v_mensaje = "No está en la base de datos"
end if
session("reco").MoveNext
CASE ELSE
END SELECT
%>
<form name="miform" method="post" action="ingresar.asp">
<input type="hidden" name="h_quehacer">
<input type="text" name="txt_codigo" value="<%=v_codigo%>" onkeyup="javascript
:validarcodigo(this.name, event, this.value);">
<p>
<%=v_mensaje%>
</form>
</body>
</html>