Ver Mensaje Individual
  #4 (permalink)  
Antiguo 31/01/2003, 11:57
Hotaru
 
Fecha de Ingreso: junio-2002
Mensajes: 82
Antigüedad: 22 años, 11 meses
Puntos: 0
Holap!...

Sip mira...

lo que puedes hacer es algo como esto:
<% @Language=VBScript %>
<%
Option Explicit
Dim oConn, rs, SQL, Clte_ID, Acceso, focus
'Acceso es para ver si el CLTE_ID esta en la tabla
'Focus es para que en caso de ser la primera vez que entra
'el foco se vaya al primer campo de captura, pero cuando ya
'esta validado el CLTE_ID entonces que se vaya al siguiente.
Clte_ID=Replace(UCASE(Request("Clte_ID")),"'","") 'Para prevenir el caso de que
'te capturen sentencias SQL en el Text

if Clte_ID="" then
focus="document.form1.Clte_ID.focus();"
else
'checamos que exista....
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=DNSxx;database=xx;UID=x;PWD=xxx;"
SQL = "select id_cli from tablaX where id_cli='"& Clte_ID & "'"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then 'No existe ese usuario
Response.Write("<b>Lo siento, no existe ese usuario...</b>")
Acceso="Denied"
focus="document.form1.Clte_ID.focus();"
else
Acceso="OK"
focus="document.form2.Clte_ID.focus();"
End if
End if
MostrarFormulario

Sub MostrarFormulario
%>
<link rel="stylesheet" href="menu/ccs23.css" type="text/css">
<BODY bgcolor="#0000cc" onload="<% =focus %>">
<table width="147" height="182" cellspacing="0" cellpadding="0" border="0" bgcolor="#0000">
<table width="128" bgcolor="#999999" align="center" height="170">
<tr>
<td width="164" align="center">
<% if Clte_ID="" or Acceso="Denied" then %>
<form name="form1 " method=post action="Form1.asp">
ID de Usuario:<br>
<input type=Text name="Clte_ID" maxlength="6" size="8" >
<br>
<input type=submit value="Continuar" name="submit"> </form>
<% elseif Clte_ID<>"" and Acceso="OK" Then %>
<form name="form2" method=post action="OtraPag.asp" > <br>ID de Usuario:<br> <input type=Text name="Clte_ID" maxlength="6" size="8" class="textousuario" value="<% =Clte_ID %>" ReadOnly OnFocus="document.form2.otro1.focus();"> <br>
Otro campo1 : <br>
<input type=Text name=otro1 maxlength="10" size="7" class="textopassword" >
<br>
Otro campo2 : <br>
<input type=Text name=otro2 maxlength="10" size="7" class="textopassword" >
<br><br>
<input type=submit value="Continuar2" name="submit" class="textonegro" >
</form>
<% End if %>
</td>
</tr>
</table>
</body>
<%
End Sub 'MostrarFormulario
%>


Ya lo probé y si funciona, solo sustituye la conexión por la que acceda a tu tabla... espero que te sirva...

SALUDOS!!!



PD: Si quieres que te explique algo me avisas...

Última edición por Hotaru; 31/01/2003 a las 12:09