Urgente Ayuda

03/06/2004 - 16:55 por ZMGestion | Informe spam

Tengo un combo y en funcion del resultado quiero que me actualice otro combo
He colocado el siguiente codigo de abajo pero me devuelve el siguiente
error:
Error de compilación de Microsoft VBScript error '800a03fa'

Se esperaba 'Wend'

/RZIA/Identificacion.asp, line 222

else
Este es el codigo que tengo en la pagina
¿Que es lo que falla?
Gracias
<SELECT NAME="Raza" SIZE="1">
<%
if rs.Fields.Item("Especie").Value="EQUINA" then
SQL="SELECT Raza FROM Info_Raza_Caballos ORDER BY Raza"
rs.Open SQL, oConn
cuenta=1
while not rs.EOF

else

SQL="SELECT Raza FROM Razas ORDER BY Raza"
rs.Open SQL, oConn
cuenta=1
while not rs.EOF

endif
%>
<OPTION VALUE="<%=rs.Fields("Raza")%>"
<% if cuenta=1 then%>
SELECTED
<%end if%>>
<%=rs.Fields("Raza")%></OPTION>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close
%>
</SELECT>

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Alvaro G Vicario

03/06/2004 - 17:06 | Informe spam

*** ZMGestion wrote/escribió (Thu, 3 Jun 2004 16:55:39 +0200):

Se esperaba 'Wend'

/RZIA/Identificacion.asp, line 222

else
Este es el codigo que tengo en la pagina
¿Que es lo que falla?

Deduzco que estás adaptando código que has copiado por ahí pero aún no has
aprendido ASP, ¿es correcto? Te sugiero que mires bien el original porque
el código no tiene ni pies ni cabeza, sólo son bucles entremezclados y en
su mayor parte sin terminar.

Responder a este mensaje

#2 ZMGestion

03/06/2004 - 17:23 | Informe spam

Solamente he colocado un trozo de codigo
Previamente se recogen datos de tablas por ejemplo la de especies y es en
funcion esa tabla que contiene valores de: Equina, etc lo que trato es que
en otro combo me devuelva sus razas asociadas.
Gracias
"Alvaro G Vicario" escribió en
el mensaje news:1t65yof308nbb$

*** ZMGestion wrote/escribió (Thu, 3 Jun 2004 16:55:39 +0200):
> Se esperaba 'Wend'
>
> /RZIA/Identificacion.asp, line 222
>
> else
> Este es el codigo que tengo en la pagina
> ¿Que es lo que falla?

Deduzco que estás adaptando código que has copiado por ahí pero aún no has
aprendido ASP, ¿es correcto? Te sugiero que mires bien el original porque
el código no tiene ni pies ni cabeza, sólo son bucles entremezclados y en
su mayor parte sin terminar.

Responder a este mensaje

#3 Alvaro G Vicario

03/06/2004 - 17:42 | Informe spam

*** ZMGestion wrote/escribió (Thu, 3 Jun 2004 17:23:27 +0200):

Solamente he colocado un trozo de codigo
Previamente se recogen datos de tablas por ejemplo la de especies y es en
funcion esa tabla que contiene valores de: Equina, etc lo que trato es que
en otro combo me devuelva sus razas asociadas.

A ver si ahora me explico mejor:

Correcto:

if b=1 then
while b<10
b=b+1
wend
else
b=1
end if

Incorrecto:

if b=1 then
while b<10
b=b+1
else
wend
b=1
end if

Responder a este mensaje

#4 Sashka

03/06/2004 - 18:03 | Informe spam

endif eso no existe pero el end if de esa línea deberia ir despues
del rs.close..

rs.MoveNext
cuenta=cuenta+1
wend
rs.Close

End if

Sashka
MS MVP Access

"ZMGestion" escribió en el mensaje
news:c9ne58$cdt$

Tengo un combo y en funcion del resultado quiero que me actualice otro

combo

He colocado el siguiente codigo de abajo pero me devuelve el siguiente
error:
Error de compilación de Microsoft VBScript error '800a03fa'

Se esperaba 'Wend'

/RZIA/Identificacion.asp, line 222

else
Este es el codigo que tengo en la pagina
¿Que es lo que falla?
Gracias
<SELECT NAME="Raza" SIZE="1">
<%
if rs.Fields.Item("Especie").Value="EQUINA" then
SQL="SELECT Raza FROM Info_Raza_Caballos ORDER BY Raza"
rs.Open SQL, oConn
cuenta=1
while not rs.EOF

else

SQL="SELECT Raza FROM Razas ORDER BY Raza"
rs.Open SQL, oConn
cuenta=1
while not rs.EOF

endif
%>
<OPTION VALUE="<%=rs.Fields("Raza")%>"
<% if cuenta=1 then%>
SELECTED
<%end if%>>
<%=rs.Fields("Raza")%></OPTION>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close
%>
</SELECT>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida