|    
			
				14/05/2002, 18:31
			
			
			  | 
  |   |  |  |  Fecha de Ingreso: abril-2002 
						Mensajes: 38
					 Antigüedad: 23 años, 6 meses Puntos: 0 |  | 
  |  Solo Para Genios....  
  Maestros tengo el siguiente codigo en una pagina ASP, que lee la entrada de un dispositivo a traves de un lectora(scaner)...todo funciona bien hasta que le paso una tarjeta desgastada o mala y se queda bloqueada la pagina y ya no puedo seguir leyendo las otras tarjetas buenas, para que vuelva a leer tengo que refrescar la pagina. Maestros por favor necesito que me apoyen en esto con soluciones o sugerencias se los voy a agradecer mucho------------------------
 <SCRIPT LANGUAGE="VBScript">
 Sub window_onLoad()
 MSR1.Open "NCRMSR.2"
 MSR1.Claim 0
 MSR1.DeviceEnabled = True
 MSR1.DataEventEnabled = True
 MSR1.DecodeData = True
 end sub
 
 Sub window_onUnload()
 MSR1.Close
 end sub
 
 dim MSRFunction
 MSRFunction = "SwipeCard()"
 
 Sub MSR1_DataEvent(Status)
 MSR1.DataEventEnabled = TRUE
 window.setTimeout MSRFunction,100,"VBSCRIPT"
 if ClickSnd.ReadyState = 4 then
 ClickSnd.Run
 end if
 end sub
 
 sub SetMSRFunction( fun )
 MSRFunction = fun
 end sub
 
 sub RestoreMSRFunction
 MSRFunction = "SwipeCard()"
 end sub
 
 Sub SwipeCard()
 SwipeData = MSR1.Track2Data
 SwipeData = left( SwipeData, 16 )
 document.FrontPage_Form1.Usuario.value= SwipeData
 End Sub
 </SCRIPT>
 
 <form method="post" name="FrontPage_Form1" action="consulta_resultado.asp" onsubmit="return FrontPage_Form1_Validator(this)">
 
 <input  name="Usuario" value="8018" maxlength="16" tabindex="0"></td>
 <input  name="Identificador"  maxlength="16" tabindex="0"></td>
 </form>
 
 Les estare muy agradecido.....
 
     |