Tema: LLamado a funcion desde un boton
Ver Mensaje Individual
  #10 (permalink)  
Antiguo 02/04/2009, 07:46
Avatar de TonyChile
TonyChile
 
Fecha de Ingreso: marzo-2009
Ubicación: Maipú, Santiago
Mensajes: 422
Antigüedad: 15 años, 1 mes
Puntos: 7
Respuesta: LLamado a funcion desde un boton
Les agradesco su ayuda no entiendo el porque no me funciona la verdad he probado lo que me han dicho y nada cambiando el reset por el button pero nada y no se que hacer ademas el boton buscar que se encuentra al lado del limpiar no se como hacer para que al seleccionar un dato de la combo al presionar buscar muestre solo los datos del seleccionado en la tabla que se encuentra abajo el cual no se me ocurre como hacerlo para no dejarlos con dudas de alguna parte del codigo mejor lo adjunto y gracias a todo por su interes
lo pongo en codigo asp xq no lo se poner de otra forma
Código asp: 
Ver original
  1. <%(arroba) LANGUAGE="VBSCRIPT" %>
  2.  
  3. <script language="vbscript" runat="server">
  4.             dim conecta, reg1, sql1, sql2
  5.         
  6.             set conecta=server.createobject("ADODB.connection")
  7.             cadenaconeccion="Provider=MSDASQL;Data Source=prueba"
  8.             conecta.connectionstring=cadenaconeccion
  9.             conecta.open
  10.  
  11. set reg1=server.createobject("ADODB.recordset")
  12.       sql1="select distinct MOVIL from CHIP"
  13.       reg1.activeconnection=conecta
  14.       reg1.open sql1
  15.       
  16.  
  17. </script>
  18.  
  19. <html>
  20. <head>
  21.  
  22. <title>EMPRESA S.A.</title>
  23. <style type="text/css">
  24. <!--
  25. body,td,th {
  26.     font-size: 12px;
  27.     color: #000000;
  28. }
  29. body {
  30.     background-color: #FFFFFF;
  31.     background-image: url();
  32.     background-repeat: no-repeat;
  33.     background-position:center;
  34. }
  35. .Estilo1 {font-size: 14px}
  36. .Estilo2 {font-size: 14px}
  37. .Estilo3 {font-size: 18px}
  38. .Estilo4 {font-size: 12px}
  39. -->
  40. </style>
  41.    
  42. <script>
  43. function buscar()
  44. {         
  45.     //sql1= " select * from CHIP WHERE MOVIL ='" & Request("MOVIL") & "'"
  46.       
  47.       if  MOVIL ='" & Request("BBmovil") & "' then
  48.       
  49.       {
  50.          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"
  51.       //}
  52.       //else   
  53.       //{     
  54.         //movil = sql2
  55.       //}     
  56.       //end if   
  57. }
  58. end function
  59.  
  60. </SCRIPT>
  61. </head>
  62. <body>
  63.  
  64.  
  65. <form name="BB"  method="post"></form> 
  66. <div align="center">
  67.   <p><img src="http://www.forosdelweb.com/images/EMPRESA.JPG" width="262" height="76"></p>
  68.   <p class="Estilo3">Informaci&oacute;n  Tr&aacute;fico De Celulares</p>
  69.   <p class="Estilo3">EMPRESA S.A.</p>
  70. </div>
  71.  
  72. <p align="center" class="Estilo1">Realice una selecci&oacute;n para facilitar su b&uacute;squeda.</p>
  73. <p align="center" class="Estilo1">&nbsp;</p>
  74. <table name="tabla" width="250" class="fondo_table1">
  75. <tr><td colspan=6 class="titulo"></td></tr>
  76.     <tr><td colspan="6" height=4></td></tr>
  77.  
  78. <tr>
  79.             <td width="20%" nowrap class="text_black_bold_12"><strong>&nbsp;M&oacute;vil&nbsp;</strong></td>
  80. <td colspan="3"> 
  81.               <select name="BBmovil" id="MOVIL" class="combo">
  82.               <option value="0"selected>Seleccionar</option> 
  83.               <% 
  84.               While (NOT reg1.EOF) 
  85.               %> 
  86.               <option value="<%=(reg1.Fields.Item("MOVIL").Value)%>"><%=(reg1.Fields.Item("MOVIL").Value)%></option> 
  87.               <% 
  88.               reg1.MoveNext 
  89.               wend
  90.               %>
  91.               </select>       
  92.     </td>             
  93.   </tr>
  94.  
  95. <tr><td colspan="6" width="100%">&nbsp;</td></tr>
  96.     <tr>
  97.         <td colspan="6" align="center">
  98.             <input type="submit" name="BBbuscar" value="Buscar" class="botton80x23" onClick="buscar()">&nbsp;&nbsp;&nbsp;
  99.             <input type="reset" name="BBlimpiar" value="Limpiar" class="botton80x23" onClick ="BBmovil.value = '0'">
  100.         </td>
  101.     </tr>
  102.     <tr><td colspan="6">&nbsp;</td></tr>
  103.     
  104. </table> 
  105.  
  106. <%
  107.  
  108.    'sql1= " select * from CHIP WHERE MOVIL ='" & Request("MOVIL") & "'"
  109.    SQL2= "SELECT NUM_CHIP, DATO1, DATO2, SERIE_CARPETA, PIN, PUK, FECHA_ENTREGA_CHIP, FECHA_RETIRO_CHIP, ASIGNADO, NO_ASIGNADO, NOTAS from CHIP"
  110.  
  111.   if DATO1 ="" then
  112.        var1=""
  113.   end if    
  114.   
  115.   if DATO2 ="" then
  116.        var2=""
  117.   end if
  118.   
  119.    if SERIE_CARPETA ="" then
  120.        var3=""
  121.   end if
  122.   
  123.   if PIN ="" then
  124.        var4=""
  125.   end if
  126.   
  127.   if PUK ="" then
  128.        var5=""
  129.   end if
  130.   
  131.   if FECHA_ENTREGA_CHIP ="" then
  132.        var6=""
  133.   end if
  134.   
  135.   if FECHA_RETIRO_CHIP="" then
  136.        var7=""
  137.   end if     
  138.   
  139.   if ASIGNADO="" then
  140.        var8=""
  141.   end if    
  142.   
  143.   if NO_ASIGNADO ="" then
  144.        var9=""
  145.   end if
  146.   
  147.   if NOTAS="" then
  148.        var10=""
  149.   end if         
  150.   
  151.          
  152.   
  153.   set rs2 = Server.CreateObject("ADODB.Recordset")   
  154.                  rs2.CursorType = adOpenStatic 
  155.                  rs2.CursorLocation = 3
  156.                  rs2.open sql2,conecta
  157.                  rs2.pagesize=1000000
  158.                  tamPagina = rs2.pagesize
  159.                  PaginasTotales=rs2.PageCount
  160. %>
  161.  
  162.               
  163. <table align="center" width="250" border="0">
  164.   <tr>
  165.    <td width="240" align="center" class="texto_negro Estilo1">Cantidad de Registros: <%=RS2.RecordCount%>
  166.   </td></tr>
  167. </table>
  168.               
  169. <p>&nbsp;</p>
  170. <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">
  171.   <tr align="center" valign="middle" bordercolor="#000000">
  172.     <td width="100" height="35" nowrap class="titulo_table2"><div align="center"><strong>N&uacute;mero De Chip</strong></div></td>
  173.     <td width="90"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Dato1</strong></div></td>
  174.     <td width="70"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Dato2</strong></div></td>
  175.     <td width="90"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Serie Carpeta</strong></div></td>
  176.     <td width="60"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Pin</strong></div></td>
  177.     <td width="70"  height="35" nowrap class="titulo_table2"><div align="center"><strong>Puk</strong></div></td>
  178.     <td width="75"  height="35" nowrap class="titulo_table2"><div align="center"><strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Fecha &nbsp;&nbsp;&nbsp; Entrega Chip</strong></div></td>
  179.     <td width="75"  height="35" nowrap class="titulo_table2"><div align="center"><strong></strong><strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Fecha&nbsp;&nbsp;&nbsp; Retiro Chip</strong></div></td>
  180.     <td width="130" height="35" nowrap class="titulo_table2"><div align="center"><strong>Asignado</strong></div></td>
  181.     <td width="130" height="35" nowrap class="titulo_table2"><div align="center"><strong>No Asignado</strong></div></td>
  182.     <td width="260" height="35" nowrap class="titulo_table2"><div align="center"><strong>Notas</strong></div></td>
  183.   </tr>
  184.   
  185.   <%
  186.    Do While Not rs2.EOF 
  187.       var1 = rs2(1)
  188.       var2 = rs2(2)
  189.       var3 = rs2(3)
  190.       var4 = rs2(4)
  191.       var5 = rs2(5)
  192.       var6 = rs2(6)
  193.       var7 = rs2(7)
  194.       var8 = rs2(8)
  195.       var9 = rs2(9)
  196.       var10= rs2(10)
  197.   %>
  198.   
  199.   <tr align="center" valign="middle">
  200.     <td width="13%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=rs2(0)%></td>
  201.     <td width="10%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var1%></td>
  202.     <td width="3%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var2%></td>
  203.     <td width="10%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var3%></td>
  204.     <td width="2%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var4%></td>
  205.     <td width="6%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var5%></td>
  206.     <td width="7%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var6%></td>
  207.     <td width="7%"  height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var7%></td>
  208.     <td width="12%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var8%></td>
  209.     <td width="12%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var9%></td>
  210.     <td width="25%" height="35" align=left nowrap bordercolor="#000000" class="texto_negro"><%=var10%></td>
  211.  </tr>
  212.   <%
  213.           rs2.movenext
  214.            Loop 
  215.  
  216.            rs2.Close    
  217.            Conecta.Close    
  218.   %>
  219.    
  220. </table>
  221.  
  222. <p>&nbsp;</p>
  223. <p>&nbsp;</p>
  224. <p align="left">&nbsp;</p>
  225.  
  226.   <td width="50%" height="1" align="left"><form method="POST" name="Volver" action="principal.asp">
  227.     <p align="center">
  228.       <input type="submit" value="&nbsp;Ir a P&aacute;gina Principal&nbsp;" name="BBvolver">
  229.     </p>
  230.   </form></td> 
  231.   <td width="50%" height="1" align="left"><form method="POST" name="Agregachip" action="agregachip.asp">
  232.      <p align="center">
  233.       <input type="submit" value="Agregar Nuevo Chip" name="BBagregachip">
  234.     </p>
  235. </form></td> 
  236.  <td width="50%" height="1" align="left"><form method="POST" name="Actualizachip" action="actualizachip.asp">
  237.      <p align="center">
  238.       <input type="submit" value="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Actualizar Chip&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" name="BBactualizachip">
  239.     </p>
  240.  </form></td> 
  241.  <td width="50%" height="1" align="left"><form method="POST" name="Eliminachip" action="eliminachip.asp">
  242.      <p align="center">
  243.       <input type="submit" value=" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Borrar Chip &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" name="BBeliminachip">
  244.     </p>
  245.  </form></td> 
  246.  
  247. <p align="center">&nbsp;</p>
  248. <p align="center" class="Estilo2">Volver a p&aacute;gina Inicio Newcomm Group</p>
  249. <p align="center"><a href="intranet pagina empresa.cl/default.aspx" target="_self" class="Estilo2">intranet pagina empresa.cl</a></p>
  250. <p align="center">&nbsp;</p>
  251. </body>
  252. </html>
  253. <% 
  254. 'reg1.close() 
  255. 'movil.close() 
  256. %>

Gracias
Última edición por TonyChile; 09/04/2009 a las 14:16 Razón: Esta Parte esta Solucionada