[VBScript] No entra en IF...THEN

[oscarsb1988]

Saludos:

Estoy trabajando con un Script que entra en una tabla de una base de datos. Busco un número en la columna principal ( el número lo tiene la variable Num ) y cuando encuentra la fila con ese número saca el resto de datos de esa fila.

Mediante MsgBox compruebo por donde pasa el programa y el valor que tiene la columna primaria "Número" y el valor de la variable Num.

Código vb:

num=form1.numero.options.value
 
form1.progressivo.value = num
 
    msgbox("1")
    
<%rs4.movefirst %>
<%while not rs4.eof%>
 
    
    msgbox(num)
    msgbox(<%=rs4("numero")%>)
    
    <% if (CInt(rs4("numero")) = (CInt(num))) then%> <!-- El puto error de tipos -->
    
 
    <!-- form1.datareg.value = "<%=CDate(rs4("Data_Reg"))%>" -->
    
    msgbox ("3")
    form1.utenti.value = "<%=rs4("Utente_Reg")%>" 
    form1.cliente.value = "<%=rs4("Cliente")%>" 
    form1.indirizzo.value = "<%=rs4("Indirizzo")%>" 
    form1.tel.value = "<%=rs4("Contatto")%>" 
    form1.problemi.value = "<%=rs4("tipo_problema")%>" 
    
    form1.hardware.value = "<%=rs4("hardware")%>" 
    form1.modello.value = "<%=rs4("Modello")%>" 
    form1.serial.value = "<%=rs4("Serial")%>" 
    form1.note_hardware.value = "<%=rs4("Descr_HW")%>" 
    form1.cavoA.value = "<%=rs4("Cavo_Alim")%>" 
    form1.cavoU.value = "<%=rs4("Cavo_USB")%>" 
    form1.mouse.value = "<%=rs4("Mouse")%>" 
    form1.tastiera.value = "<%=rs4("Tastiera")%>" 
    form1.schermo.value = "<%=rs4("Schermo")%>" 
    form1.borsa.value = "<%=rs4("Borsa")%>" 
    form1.materiale.value = "<%=rs4("Note_Materiale")%>" 
    form1.garanzia.value = "<%=rs4("In_Garanzia")%>" 
 
    <% end if %>
<% rs4.movenext %>
<%wend%>
 

El por qué de este post, es que llega un momento que el valor de Num y de la columna es el mismo, pero no consigue entrar en el IF ( y por consecuencia, no muestra el MsgBox ("3") en pantalla.

PRUEBAS

-Pongo el Cint en la variable recordset y en la variable Num porque sino me da error de tipos. hay un momento que los 2 msgbox encima del if marcan el mismo valor pero no entra al IF

-El código interno del IF puede que tenga algún error ( todavía no está mirado ) pero eso no es motivo para que no entre en el IF

Código vb:

<% if rs4("numero") = num then%>    Error de tipos
<% if rs4("numero") = 10 then %>     Error de tipos
<% if rs4("numero") = "10" then %>  Funciona. Pasa algunos datos de la fila 10 al formulario
<% if (CInt(rs4("numero")) = (CInt(num))) then%> No me marca error de tipos, pero no me muestra el "3" del MsgBox y tampoco pasa los datos
<% if (CStr(rs4("numero")) = (CStr(num))) then%> Sucede lo mismo que con CInt
<% if CInt(rs4("numero")) = CStr(num) then%> Sucede lo mismo que las 2 lineas anteriores
 

Gracias

[Myakire]

Dónde tienes ese código?

Lo pregunto por que inicializas la variable num desde el cliente y espera que el ASP la considere como si la conociera el servidor.
En lo particular creo que tienes un problema de lógica en tu proceso (mezclas programación de cliente con de servidor)

[oscarsb1988]

El tema es que estoy con un proyecto en ASP que necesita conectarse a una base de datos externa ( en otro PC ) mediante SQL.

Ahora mismo estoy en un formulario ASP. Tengo declarada una variable Num ( Dim Num al inicio del documento ).

Quiero comparar su valor con el valor de un campo de una columna de una tabla ( rs4("numero") ).

Eso es todo... Seguiré investigando

[RucarMaN]

oscarsb1988 : Yo tenia el mismo problema, http://www.forosdelweb.com/f15/no-po...nciona-809444/, mi campo numero lo cambie por texto y ahora si me realiza la condicion...No sera lo optimo pero me funcio...saludos

[oscarsb1988]

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:

<script for=vedere event=onclick language=vbscript>
        
            code = form1.cbocodice.options.value
 
            <%rs1.movefirst%>
            <%while not rs1.eof%>
                codice = "<%=rs1("Codice")%>"
                <%if code = codice then%>
                
                alert (codice & " y " & code)
                
                ICnomeA = "<%=rs1("Nome_Azienda").value%>"
                form1.ICnomeA.value = ICnomeA
                'alert ICnomea
            
                ICresp = "<%=rs1("Responsabile").value%>"
                form1.ICresp.value = ICresp
                'alert ICresp
            
                ICtecnico = "<%=rs1("Tecnico_Net1").value%>"
                form1.ICtecnico.value = ICtecnico
                'Alert IStecnico
            
                ISprod = "<%=rs1("Prod_Mod").value%>"
                form1.ISprod.value = ISprod
                'Alert ISprod
            
                IStipo="<%=rs1("Tipologia").value%>"
                if IStipo = "Tower" then
                form1.IStipo(0).checked = true
                else
                form1.IStipo(1).checked = true
                end if
                'Alert IStipo
            
                IStype = "<%=rs1("Type").value%>"
                form1.IStype.value = IStype
                'Alert IStype
            
                ISserial="<%=rs1("Serial").value%>"
                form1.ISserial.value = ISserial
                'Alert ISserial
            
                IScpu="<%=rs1("CPU_Num").value%>"
                form1.IScpu.value = IScpu
                'Alert IScpu
            
                ISram="<%=rs1("RAM").value%>"
                form1.ISram.value = ISram
                'Alert ISram
            
                IShd="<%=rs1("HD").value%>"
                form1.IShd.value = IShd
                'Alert IShd
            
                ISraid="<%=rs1("Modello").value%>"
                form1.ISraid.value = ISraid
                'Alert ISraid
            
                ISbackup="<%=rs1("Backup_Capacita").value%>"
                form1.ISbackup.value = ISbackup
                'Alert ISbackup
            
                ISscsi="<%=rs1("SCSI").value%>"
                form1.ISscsi.value = ISscsi
                'Alert ISscsi
            
                ISnastri="<%=rs1("Nastri").value%>"
                form1.ISnastri.value = ISnastri
                'Alert ISnastri
            
                ISso="<%=rs1("SO").value%>"
                form1.ISso.value = ISso
                'Alert ISso
            
                ISserver="<%=rs1("Server").value%>"
                form1.ISserver.value = ISserver
                'Alert ISserver
            
                ISdominio="<%=rs1("Dominio").value%>"
                form1.ISdominio.value = ISdominio
                'Alert ISdominio
            
                ISadmin="<%=rs1("Pass_Admin").value%>"
                form1.ISadmin.value = ISadmin
                'Alert ISadmin
            
                ISdisco="<%=rs1("Config_Disco").value%>"
                form1.ISdisco.value = ISdisco
                'Alert ISdisco
            
                ISlogiche="<%=rs1("Part_Logiche").value%>"
                form1.ISlogiche.value = ISlogiche
                'Alert ISlogiche
            
                ISip="<%=rs1("IP").value%>"
                form1.ISip.value = ISip
                'Alert ISip
            
                ISmask="<%=rs1("Mask").value%>"
                form1.ISmask.value = ISmask
                'Alert ISmask
            
                ISgateway="<%=rs1("Gateway").value%>"
                form1.ISgateway.value = ISgateway           
                'Alert ISgateway
            
                ISdhcp="<%=rs1("DHCP").value%>"
                form1.ISdhcp.value = ISdhcp
                'Alert ISdhcp
            
                ISrange="<%=rs1("Range").value%>"
                form1.ISrange.value = ISrange
                'Alert ISrange
            
                Servizi="<%=rs1("Servizi").value%>"
                form1.Servizi.value = Servizi
                'Alert Servizi
            
                Software="<%=rs1("Software").value%>"
                form1.Software.value = Software
                'Alert Software
            
                ANnome="<%=rs1("AN_anti").value%>"
                form1.ANnome.value = ANnome
                'Alert ANnome
            
                ANnum="<%=rs1("AN_utenti").value%>"
                form1.ANnum.value = ANnum
                'Alert ANnum
            
                ANuser="<%=rs1("AN_user").value%>"
                form1.ANuser.value = ANuser
                'Alert ANuser
            
                ANpass="<%=rs1("AN_pass").value%>"
                form1.ANpass.value = ANpass
                'Alert ANpass
            
                ANpassc="<%=rs1("AN_passc").value%>"
                form1.ANpassc.value = ANpassc
                'Alert ANpassc
            
                GC="<%=rs1("GC").value%>"
                if GC = "Si" then
                form1.gc(0).checked = true
                else
                form1.gc(1).checked = true
                end if
                'Alert gc
            
                GCid="<%=rs1("GC_Utent").value%>"
                form1.GCid.value = GCid
                'Alert GCid
            
                GCpass="<%=rs1("GC_Pass").value%>"
                form1.GCpass.value = GCpass
                'Alert GCpass
            
                Rmarca="<%=rs1("R_Marca").value%>"
                form1.Rmarca.value = Rmarca
                'Alert Rmarca
            
                Rnome="<%=rs1("R_Nome").value%>"
                form1.Rnome.value = Rnome
                'Alert Rnome
            
                Ruser="<%=rs1("R_User").value%>"
                form1.Ruser.value = Ruser
                'Alert Ruser
            
                Rpass="<%=rs1("R_Pass").value%>"
                form1.Rpass.value = Rpass
                'Alert Rpass
            
                Rip="<%=rs1("R_IP").value%>"
                form1.Rip.value = Rip
                'Alert Rip
            
                Rnet="<%=rs1("R_Acquistato").value%>"
                if Rnet="Si" then
                form1.Rnet(0).checked = true
                else
                form1.Rnet(1).checked = true
                end if
                'Alert Rnet
            
                Fmarca="<%=rs1("F_marca").value%>"
                form1.Fmarca.value = Fmarca
                'Alert Fmarca
            
                Fnome="<%=rs1("F_nome").value%>"
                form1.Fnome.value = Fnome
                'Alert Fnome
            
                Fuser="<%=rs1("F_user").value%>"
                form1.Fuser.value = Fuser
                'Alert Fuser
            
                Fpass="<%=rs1("F_pass").value%>"
                form1.Fpass.value = Fpass
                'Alert Fpass
            
                Fip="<%=rs1("F_IP").value%>"
                form1.Fip.value = Fip
                'Alert Fip
            
                Fnet="<%=rs1("F_Acquistato").value%>"
                
                if Fnet="Si" then
                form1.Fnet(0).checked = true
                else
                form1.Fnet(1).checked = true
                end if
                'Alert Fnet
            
                note="<%=rs1("Note").value%>"
                form1.note.value = note
                'Alert note
            <%end if%>
            <%rs1.movenext%>
        <%wend%>
        </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

[oscarsb1988]

Eh, que es el único error que me queda por resolver para dar por terminado el proyecto. Que el sábado regreso a España y para el viernes tiene que estar terminado...

No seáis malos XD

Ayudadme con el post #5 plz ;)

[Wasper]

No se si soy yo pero me pareces que estas mezclando ASP y JavaScript y las sintaxis no son del todo correctas...

Por ejemplo ASP tiene que ir entre <%%> pero veo en tu codigo cosas como en la linea 29 a la 33, que al no estar entre <%%>

IStipo="<%=rs1("Tipologia").value%>"
<%if IStipo = "Tower" then%>
form1.IStipo(0).checked = true
<%else%>
form1.IStipo(1).checked = true
<%end if%>

Creo que te has comido algunas <%%>

Lo mismo te ocurre en los if de la linea 145, 181 y 210

[oscarsb1988]

#7 El programa devuelve bien los radiobuttons. Así funciona y no me da ningún tipo de error...

http://www.net1si.com/registrazione/vedere.asp

Puedes comprobar que los radios cambian cuando van sacando todos los datos ( cuando teóricamente debería sacar uno solamente :\ )

P.D: Abridlo con IE

P.D2: Voy a ponerle los % de todas formas XD. Con los % sigue el problema del IF

P.D:3: Me funciona mejor sin los %, pero el problema del IF sigue vigente :(

[Wasper]

El codigo servidor genera el codigo cliente, entonces, el problema esta en que tu codigo servidor genera un codigo cliente ilogico... no hay condiciones por ningun sitio, todo es un Javascript con alert incontrolados... No es que no entre en ningun If.... es que no hay if en mi codigo cliente...
Ademas es innecesario que generes casi 1000 lineas de codigo Javascript para hacer unas comparaciones...!!!!!

No te va a funcionar... Me da que la solucion que te he dado no es la correcta...

[oscarsb1988]

Solucionado.

Simplemente es poner ese IF al que antes no entraba sin <% %> para que lo lea como cliente.