<%(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()
%>