Tema: [VBScript] No entra en IF...THEN
Ver Mensaje Individual
  #5 (permalink)  
Antiguo 22/06/2010, 08:28
Avatar de oscarsb1988
oscarsb1988
 
Fecha de Ingreso: abril-2010
Mensajes: 40
Antigüedad: 14 años, 6 meses
Puntos: 0
Respuesta: [VBScript] No entra en IF...THEN
Sí Rucarman... De hecho me ha llegado a funcionar tal y como decías.

Pero justamente con este código no logro que funcione xD. Si soluciono este problema doy como finalizado el proyecto :)

Código ASP: 
Ver original
  1. <script for=vedere event=onclick language=vbscript>
  2.         
  3.             code = form1.cbocodice.options.value
  4.  
  5.             <%rs1.movefirst%>
  6.             <%while not rs1.eof%>
  7.                 codice = "<%=rs1("Codice")%>"
  8.                 <%if code = codice then%>
  9.                 
  10.                 alert (codice & " y " & code)
  11.                 
  12.                 ICnomeA = "<%=rs1("Nome_Azienda").value%>"
  13.                 form1.ICnomeA.value = ICnomeA
  14.                 'alert ICnomea
  15.             
  16.                 ICresp = "<%=rs1("Responsabile").value%>"
  17.                 form1.ICresp.value = ICresp
  18.                 'alert ICresp
  19.             
  20.                 ICtecnico = "<%=rs1("Tecnico_Net1").value%>"
  21.                 form1.ICtecnico.value = ICtecnico
  22.                 'Alert IStecnico
  23.             
  24.                 ISprod = "<%=rs1("Prod_Mod").value%>"
  25.                 form1.ISprod.value = ISprod
  26.                 'Alert ISprod
  27.             
  28.                 IStipo="<%=rs1("Tipologia").value%>"
  29.                 if IStipo = "Tower" then
  30.                 form1.IStipo(0).checked = true
  31.                 else
  32.                 form1.IStipo(1).checked = true
  33.                 end if
  34.                 'Alert IStipo
  35.             
  36.                 IStype = "<%=rs1("Type").value%>"
  37.                 form1.IStype.value = IStype
  38.                 'Alert IStype
  39.             
  40.                 ISserial="<%=rs1("Serial").value%>"
  41.                 form1.ISserial.value = ISserial
  42.                 'Alert ISserial
  43.             
  44.                 IScpu="<%=rs1("CPU_Num").value%>"
  45.                 form1.IScpu.value = IScpu
  46.                 'Alert IScpu
  47.             
  48.                 ISram="<%=rs1("RAM").value%>"
  49.                 form1.ISram.value = ISram
  50.                 'Alert ISram
  51.             
  52.                 IShd="<%=rs1("HD").value%>"
  53.                 form1.IShd.value = IShd
  54.                 'Alert IShd
  55.             
  56.                 ISraid="<%=rs1("Modello").value%>"
  57.                 form1.ISraid.value = ISraid
  58.                 'Alert ISraid
  59.             
  60.                 ISbackup="<%=rs1("Backup_Capacita").value%>"
  61.                 form1.ISbackup.value = ISbackup
  62.                 'Alert ISbackup
  63.             
  64.                 ISscsi="<%=rs1("SCSI").value%>"
  65.                 form1.ISscsi.value = ISscsi
  66.                 'Alert ISscsi
  67.             
  68.                 ISnastri="<%=rs1("Nastri").value%>"
  69.                 form1.ISnastri.value = ISnastri
  70.                 'Alert ISnastri
  71.             
  72.                 ISso="<%=rs1("SO").value%>"
  73.                 form1.ISso.value = ISso
  74.                 'Alert ISso
  75.             
  76.                 ISserver="<%=rs1("Server").value%>"
  77.                 form1.ISserver.value = ISserver
  78.                 'Alert ISserver
  79.             
  80.                 ISdominio="<%=rs1("Dominio").value%>"
  81.                 form1.ISdominio.value = ISdominio
  82.                 'Alert ISdominio
  83.             
  84.                 ISadmin="<%=rs1("Pass_Admin").value%>"
  85.                 form1.ISadmin.value = ISadmin
  86.                 'Alert ISadmin
  87.             
  88.                 ISdisco="<%=rs1("Config_Disco").value%>"
  89.                 form1.ISdisco.value = ISdisco
  90.                 'Alert ISdisco
  91.             
  92.                 ISlogiche="<%=rs1("Part_Logiche").value%>"
  93.                 form1.ISlogiche.value = ISlogiche
  94.                 'Alert ISlogiche
  95.             
  96.                 ISip="<%=rs1("IP").value%>"
  97.                 form1.ISip.value = ISip
  98.                 'Alert ISip
  99.             
  100.                 ISmask="<%=rs1("Mask").value%>"
  101.                 form1.ISmask.value = ISmask
  102.                 'Alert ISmask
  103.             
  104.                 ISgateway="<%=rs1("Gateway").value%>"
  105.                 form1.ISgateway.value = ISgateway           
  106.                 'Alert ISgateway
  107.             
  108.                 ISdhcp="<%=rs1("DHCP").value%>"
  109.                 form1.ISdhcp.value = ISdhcp
  110.                 'Alert ISdhcp
  111.             
  112.                 ISrange="<%=rs1("Range").value%>"
  113.                 form1.ISrange.value = ISrange
  114.                 'Alert ISrange
  115.             
  116.                 Servizi="<%=rs1("Servizi").value%>"
  117.                 form1.Servizi.value = Servizi
  118.                 'Alert Servizi
  119.             
  120.                 Software="<%=rs1("Software").value%>"
  121.                 form1.Software.value = Software
  122.                 'Alert Software
  123.             
  124.                 ANnome="<%=rs1("AN_anti").value%>"
  125.                 form1.ANnome.value = ANnome
  126.                 'Alert ANnome
  127.             
  128.                 ANnum="<%=rs1("AN_utenti").value%>"
  129.                 form1.ANnum.value = ANnum
  130.                 'Alert ANnum
  131.             
  132.                 ANuser="<%=rs1("AN_user").value%>"
  133.                 form1.ANuser.value = ANuser
  134.                 'Alert ANuser
  135.             
  136.                 ANpass="<%=rs1("AN_pass").value%>"
  137.                 form1.ANpass.value = ANpass
  138.                 'Alert ANpass
  139.             
  140.                 ANpassc="<%=rs1("AN_passc").value%>"
  141.                 form1.ANpassc.value = ANpassc
  142.                 'Alert ANpassc
  143.             
  144.                 GC="<%=rs1("GC").value%>"
  145.                 if GC = "Si" then
  146.                 form1.gc(0).checked = true
  147.                 else
  148.                 form1.gc(1).checked = true
  149.                 end if
  150.                 'Alert gc
  151.             
  152.                 GCid="<%=rs1("GC_Utent").value%>"
  153.                 form1.GCid.value = GCid
  154.                 'Alert GCid
  155.             
  156.                 GCpass="<%=rs1("GC_Pass").value%>"
  157.                 form1.GCpass.value = GCpass
  158.                 'Alert GCpass
  159.             
  160.                 Rmarca="<%=rs1("R_Marca").value%>"
  161.                 form1.Rmarca.value = Rmarca
  162.                 'Alert Rmarca
  163.             
  164.                 Rnome="<%=rs1("R_Nome").value%>"
  165.                 form1.Rnome.value = Rnome
  166.                 'Alert Rnome
  167.             
  168.                 Ruser="<%=rs1("R_User").value%>"
  169.                 form1.Ruser.value = Ruser
  170.                 'Alert Ruser
  171.             
  172.                 Rpass="<%=rs1("R_Pass").value%>"
  173.                 form1.Rpass.value = Rpass
  174.                 'Alert Rpass
  175.             
  176.                 Rip="<%=rs1("R_IP").value%>"
  177.                 form1.Rip.value = Rip
  178.                 'Alert Rip
  179.             
  180.                 Rnet="<%=rs1("R_Acquistato").value%>"
  181.                 if Rnet="Si" then
  182.                 form1.Rnet(0).checked = true
  183.                 else
  184.                 form1.Rnet(1).checked = true
  185.                 end if
  186.                 'Alert Rnet
  187.             
  188.                 Fmarca="<%=rs1("F_marca").value%>"
  189.                 form1.Fmarca.value = Fmarca
  190.                 'Alert Fmarca
  191.             
  192.                 Fnome="<%=rs1("F_nome").value%>"
  193.                 form1.Fnome.value = Fnome
  194.                 'Alert Fnome
  195.             
  196.                 Fuser="<%=rs1("F_user").value%>"
  197.                 form1.Fuser.value = Fuser
  198.                 'Alert Fuser
  199.             
  200.                 Fpass="<%=rs1("F_pass").value%>"
  201.                 form1.Fpass.value = Fpass
  202.                 'Alert Fpass
  203.             
  204.                 Fip="<%=rs1("F_IP").value%>"
  205.                 form1.Fip.value = Fip
  206.                 'Alert Fip
  207.             
  208.                 Fnet="<%=rs1("F_Acquistato").value%>"
  209.                 
  210.                 if Fnet="Si" then
  211.                 form1.Fnet(0).checked = true
  212.                 else
  213.                 form1.Fnet(1).checked = true
  214.                 end if
  215.                 'Alert Fnet
  216.             
  217.                 note="<%=rs1("Note").value%>"
  218.                 form1.note.value = note
  219.                 'Alert note
  220.             <%end if%>
  221.             <%rs1.movenext%>
  222.         <%wend%>
  223.         </script>

Value del combobox que simboliza el código de una tabla. Simplemente comparo el value con el código para que saque los datos de esa fila.

El problema es que sean o no iguales los valores, siempre entra en IF y muestra en el formulario todos los datos de todas las filas de la tabla hasta el EOF.



En la imagen podemos ver que siendo los valores diferentes, sigue entrando en el IF hasta que llega al EOF gracias al Alert XD

Un saludo
Última edición por oscarsb1988; 22/06/2010 a las 09:27