Error al ingresar al if

El siguiente codigo me funciono 2 veces luego ya no, porque?
****
arrCad = split(cad,",")
response.write cad
response.write "<br>***************<br><br>"
for i = 0 to ubound(arrCad)
response.write arrCad(i)& " = "
if arrCad(i) = "Aud" then response.write "<a href='libaud.asp'>AUDITORIA INFORMATICA</a><BR>"
if arrCad(i) = "Inf" then response.write "<a href='libinf.asp'>INFORMATICA</a><BR>"
if arrCad(i) = "Bdr" then response.write "<a href='libbdr.asp'>BASES DE DATOS</a><BR>"
if arrCad(i) = "Mat" then response.write "<a href='libmat.asp'>MATEMATICAS</a><BR>"
if arrCad(i) = "Ofm" then response.write "<a href='libofm.asp'>OFIMATICA</a><BR>"
if arrCad(i) = "Prg" then response.write "<a href='libprg.asp'>PROGRAMACION</a><BR>"
next
****
gracias

1 Respuesta

Respuesta
1
Pero donde te da error pq yo mirandolo asi no encuentro nada raro.
A todo esto, no seria mejor usar un SELECT
Haz esto:
select case arrCad(i)
case "Aud"
response.write "<a href='libaud.asp'>AUDITORIA INFORMATICA</a><BR>"
case "Inf"
response.write "<a href='libinf.asp'>INFORMATICA</a><BR>"
case "Bdr"
response.write "<a href='libbdr.asp'>BASES DE DATOS</a><BR>"
case "Mat"
response.write "<a href='libmat.asp'>MATEMATICAS</a><BR>"
case "Ofm"
response.write "<a href='libofm.asp'>OFIMATICA</a><BR>"
case "Prg"
response.write "<a href='libprg.asp'>PROGRAMACION</a><BR>"
end select

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas