- <%(arroba) LANGUAGE="VBSCRIPT" %> 
-   
- <script language="vbscript" runat="server"> 
-             dim conecta, reg1, sql1, sql2 
-          
-             set conecta=server.createobject("ADODB.connection") 
-             cadenaconeccion="Provider=MSDASQL;Data Source=prueba" 
-             conecta.connectionstring=cadenaconeccion 
-             conecta.open 
-   
- set reg1=server.createobject("ADODB.recordset") 
-       sql1="select distinct MOVIL from CHIP" 
-       reg1.activeconnection=conecta 
-       reg1.open sql1 
-        
-   
- </script> 
-   
- <html> 
- <head> 
-   
- <title>EMPRESA S.A.</title> 
- <style type="text/css"> 
- <!-- 
- body,td,th { 
-     font-size: 12px; 
-     color: #000000; 
- } 
- body { 
-     background-color: #FFFFFF; 
-     background-image: url(); 
-     background-repeat: no-repeat; 
-     background-position:center; 
- } 
- .Estilo1 {font-size: 14px} 
- .Estilo2 {font-size: 14px} 
- .Estilo3 {font-size: 18px} 
- .Estilo4 {font-size: 12px} 
- --> 
- </style> 
-     
- <script> 
- function buscar() 
- {          
-     //sql1= " select * from CHIP WHERE MOVIL ='" & Request("MOVIL") & "'" 
-        
-       if  MOVIL ='" & Request("BBmovil") & "' then 
-        
-       { 
-          sql1= "insert into "rs2" ("rs2(0)", "rs2(1)", "rs2(2)", "rs2(3)", "rs2(4)", "rs2(5)", "rs2(6)", "rs2(7)", "rs2(8)", "rs2(9)", "rs2(10)") values ("NUM_CHIP", "DATO1", "DATO2", "SERIE_CARPETA", "PIN", "PUK", "FECHA_ENTREGA_CHIP", "FECHA_RETIRO_CHIP", "ASIGNADO", "NO_ASIGNADO", "NOTAS") FROM CHIP" 
-       //} 
-       //else    
-       //{      
-         //movil = sql2 
-       //}      
-       //end if    
- } 
- end function 
-   
- </SCRIPT> 
- </head> 
- <body> 
-   
-   
- <form name="BB"  method="post"></form>  
- <div align="center"> 
-   <p><img src="http://www.forosdelweb.com/images/EMPRESA.JPG" width="262" height="76"></p> 
-   <p class="Estilo3">Información  Tráfico De Celulares</p> 
-   <p class="Estilo3">EMPRESA S.A.</p> 
- </div> 
-   
- <p align="center" class="Estilo1">Realice una selección para facilitar su búsqueda.</p> 
- <p align="center" class="Estilo1"> </p> 
- <table name="tabla" width="250" class="fondo_table1"> 
- <tr><td colspan=6 class="titulo"></td></tr> 
-     <tr><td colspan="6" height=4></td></tr> 
-   
- <tr> 
-             <td width="20%" nowrap class="text_black_bold_12"><strong> Móvil </strong></td> 
- <td colspan="3">  
-               <select name="BBmovil" id="MOVIL" class="combo"> 
-               <option value="0"selected>Seleccionar</option>  
-               <%  
-               While (NOT reg1.EOF)  
-               %>  
-               <option value="<%=(reg1.Fields.Item("MOVIL").Value)%>"><%=(reg1.Fields.Item("MOVIL").Value)%></option>  
-               <%  
-               reg1.MoveNext  
-               wend 
-               %> 
-               </select>        
-     </td>              
-   </tr> 
-   
- <tr><td colspan="6" width="100%"> </td></tr> 
-     <tr> 
-         <td colspan="6" align="center"> 
-             <input type="submit" name="BBbuscar" value="Buscar" class="botton80x23" onClick="buscar()">    
-             <input type="reset" name="BBlimpiar" value="Limpiar" class="botton80x23" onClick ="BBmovil.value = '0'"> 
-         </td> 
-     </tr> 
-     <tr><td colspan="6"> </td></tr> 
-      
- </table>  
-   
- <% 
-   
-    'sql1= " select * from CHIP WHERE MOVIL ='" & Request("MOVIL") & "'" 
-    SQL2= "SELECT NUM_CHIP, DATO1, DATO2, SERIE_CARPETA, PIN, PUK, FECHA_ENTREGA_CHIP, FECHA_RETIRO_CHIP, ASIGNADO, NO_ASIGNADO, NOTAS from CHIP" 
-   
-   if DATO1 ="" then 
-        var1="" 
-   end if     
-    
-   if DATO2 ="" then 
-        var2="" 
-   end if 
-    
-    if SERIE_CARPETA ="" then 
-        var3="" 
-   end if 
-    
-   if PIN ="" then 
-        var4="" 
-   end if 
-    
-   if PUK ="" then 
-        var5="" 
-   end if 
-    
-   if FECHA_ENTREGA_CHIP ="" then 
-        var6="" 
-   end if 
-    
-   if FECHA_RETIRO_CHIP="" then 
-        var7="" 
-   end if      
-    
-   if ASIGNADO="" then 
-        var8="" 
-   end if     
-    
-   if NO_ASIGNADO ="" then 
-        var9="" 
-   end if 
-    
-   if NOTAS="" then 
-        var10="" 
-   end if          
-    
-           
-    
-   set rs2 = Server.CreateObject("ADODB.Recordset")    
-                  rs2.CursorType = adOpenStatic  
-                  rs2.CursorLocation = 3 
-                  rs2.open sql2,conecta 
-                  rs2.pagesize=1000000 
-                  tamPagina = rs2.pagesize 
-                  PaginasTotales=rs2.PageCount 
- %> 
-   
-                
- <table align="center" width="250" border="0"> 
-   <tr> 
-    <td width="240" align="center" class="texto_negro Estilo1">Cantidad de Registros: <%=RS2.RecordCount%> 
-   </td></tr> 
- </table> 
-                
- <p> </p> 
- <table width="980" height="35" border="1" AllowDBNull="true" align="center" cellpadding = 2 cellspacing = 0 bordercolor="#000000" bgcolor="#FFFFFF" class="dropmenusimple" id="tabla1"  style="BORDER-COLLAPSE: collapse"> 
-   <tr align="center" valign="middle" bordercolor="#000000"> 
-     <td width="100" height="35" nowrap class="titulo_table2"><div align="center"><strong>Número De Chip</strong></div></td> 
-     <td width="90"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Dato1</strong></div></td> 
-     <td width="70"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Dato2</strong></div></td> 
-     <td width="90"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Serie Carpeta</strong></div></td> 
-     <td width="60"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Pin</strong></div></td> 
-     <td width="70"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Puk</strong></div></td> 
-     <td width="75"  height="35" nowrap class="titulo_table2"><div align="center"><strong>      Fecha     Entrega Chip</strong></div></td> 
-     <td width="75"  height="35" nowrap class="titulo_table2"><div align="center"><strong></strong><strong>      Fecha    Retiro Chip</strong></div></td> 
-     <td width="130" height="35" nowrap class="titulo_table2"><div align="center"><strong>Asignado</strong></div></td> 
-     <td width="130" height="35" nowrap class="titulo_table2"><div align="center"><strong>No Asignado</strong></div></td> 
-     <td width="260" height="35" nowrap class="titulo_table2"><div align="center"><strong>Notas</strong></div></td> 
-   </tr> 
-    
-   <% 
-    Do While Not rs2.EOF  
-       var1 = rs2(1) 
-       var2 = rs2(2) 
-       var3 = rs2(3) 
-       var4 = rs2(4) 
-       var5 = rs2(5) 
-       var6 = rs2(6) 
-       var7 = rs2(7) 
-       var8 = rs2(8) 
-       var9 = rs2(9) 
-       var10= rs2(10) 
-   %> 
-    
-   <tr align="center" valign="middle"> 
-     <td width="13%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=rs2(0)%></td> 
-     <td width="10%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var1%></td> 
-     <td width="3%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var2%></td> 
-     <td width="10%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var3%></td> 
-     <td width="2%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var4%></td> 
-     <td width="6%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var5%></td> 
-     <td width="7%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var6%></td> 
-     <td width="7%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var7%></td> 
-     <td width="12%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var8%></td> 
-     <td width="12%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var9%></td> 
-     <td width="25%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var10%></td> 
-  </tr> 
-   <% 
-           rs2.movenext 
-            Loop  
-   
-            rs2.Close     
-            Conecta.Close     
-   %> 
-     
- </table> 
-   
- <p> </p> 
- <p> </p> 
- <p align="left"> </p> 
-   
-   <td width="50%" height="1" align="left"><form method="POST" name="Volver" action="principal.asp"> 
-     <p align="center"> 
-       <input type="submit" value=" Ir a Página Principal " name="BBvolver"> 
-     </p> 
-   </form></td>  
-   <td width="50%" height="1" align="left"><form method="POST" name="Agregachip" action="agregachip.asp"> 
-      <p align="center"> 
-       <input type="submit" value="Agregar Nuevo Chip" name="BBagregachip"> 
-     </p> 
- </form></td>  
-  <td width="50%" height="1" align="left"><form method="POST" name="Actualizachip" action="actualizachip.asp"> 
-      <p align="center"> 
-       <input type="submit" value="     Actualizar Chip      " name="BBactualizachip"> 
-     </p> 
-  </form></td>  
-  <td width="50%" height="1" align="left"><form method="POST" name="Eliminachip" action="eliminachip.asp"> 
-      <p align="center"> 
-       <input type="submit" value="         Borrar Chip         " name="BBeliminachip"> 
-     </p> 
-  </form></td>  
-   
- <p align="center"> </p> 
- <p align="center" class="Estilo2">Volver a página Inicio Newcomm Group</p> 
- <p align="center"><a href="intranet pagina empresa.cl/default.aspx" target="_self" class="Estilo2">intranet pagina empresa.cl</a></p> 
- <p align="center"> </p> 
- </body> 
- </html> 
- <%  
- 'reg1.close()  
- 'movil.close()  
- %>