Problemas no comando Split

[Marrabel 20]

Bom dia pessoal, estou com uma dúvida muito esquisita e não sei se isso é normal de acontecer...

 

Espero que seja fácil de resolver.

 

Seguinte: Uso BD MySQL e estou tendo problemas no comando "Split". Localmente ele aparece corretamente, mas ao hospedar ele da erro.

 

Localmente

 

Hospedado

 

O meu code com problemas é:

 

<% If RsDetalhes("idaplicacao") <> "" Then
				Aplicacao = Split(RsDetalhes("idaplicacao"),"/")
			%>

               	<div id="aplicacao-detalhe">
                   	<h3 style="border-top:1px solid #C4E1FF;width:430px;margin:3px 0 5px 0;padding:5px 0 5px 0;">Áreas de Aplicação</h3>
                   	<ul id="cats-det">
                   		<%
                       	For a = 1 To Ubound(Aplicacao)
                       		SQL7 = "SELECT * FROM aplicacoes WHERE id=" & Aplicacao(a)
                           	Set RsAplicacoes = conn.Execute(SQL7)

                           	While Not RsAplicacoes.EOF
                           		Response.Write("<li><a href='?t=ap&u=" & Unidade & "&cat=" & RsAplicacoes("id") & "'>" & RsAplicacoes("titulo1") & "</a></li>")
                           	RsAplicacoes.MoveNext
                           	Wend
                     		Next
                       	%>
						</ul>
               	</div>
				<% End If %>

 

 

E o erro apontado é nessa linha:

 

Aplicacao = Split(RsDetalhes("idaplicacao"),"/")

 

Aguardo respostas...

 

OBS: Meu BD possui dados e está como exemplo assim: /15/19/80/22. Aonde cada número seria o ID da Aplicação.

[Gutoffline 1]

Já tentou mudar o separador ao invés de / usar o | ?

[xanburzum 169]

ele gera algum número de erro ?

[Marrabel 20]

Já tentou mudar o separador ao invés de / usar o | ?

 

Faz alguma diferença? Se fizer me explique por favor...

 

 

Xan, o Erro está no Link "Hospedado" que postei

[xanburzum 169]

tente colocar o recordset em uma variavel e veja o resultado , tipo

 

var=RsDetalhes("idaplicacao")

Aplicacao = Split(var,"/")

 

 

você esta trabalhando com campos BLOB

[André Silveira 0]

Seguinte, se o primeiro valor da variável está vindo com "/"

 

tente gerar o split depois do "/"

 

Exemplo

Dim Aplicacao

Aplicacao = mid(Aplicacao,2,len(Aplicacao))

desta forma ele vai ignorar a primeira /

 

Espero que ajude

 

Forte Abraço!

 

Bom dia pessoal, estou com uma dúvida muito esquisita e não sei se isso é normal de acontecer...

 

Espero que seja fácil de resolver.

 

Seguinte: Uso BD MySQL e estou tendo problemas no comando "Split". Localmente ele aparece corretamente, mas ao hospedar ele da erro.

 

Localmente

 

Hospedado

 

O meu code com problemas é:

 

<% If RsDetalhes("idaplicacao") <> "" Then
				Aplicacao = Split(RsDetalhes("idaplicacao"),"/")
			%>

               	<div id="aplicacao-detalhe">
                   	<h3 style="border-top:1px solid #C4E1FF;width:430px;margin:3px 0 5px 0;padding:5px 0 5px 0;">Áreas de Aplicação</h3>
                   	<ul id="cats-det">
                   		<%
                       	For a = 1 To Ubound(Aplicacao)
                       		SQL7 = "SELECT * FROM aplicacoes WHERE id=" & Aplicacao(a)
                           	Set RsAplicacoes = conn.Execute(SQL7)

                           	While Not RsAplicacoes.EOF
                           		Response.Write("<li><a href='?t=ap&u=" & Unidade & "&cat=" & RsAplicacoes("id") & "'>" & RsAplicacoes("titulo1") & "</a></li>")
                           	RsAplicacoes.MoveNext
                           	Wend
                     		Next
                       	%>
						</ul>
               	</div>
				<% End If %>

 

 

E o erro apontado é nessa linha:

 

Aplicacao = Split(RsDetalhes("idaplicacao"),"/")

 

Aguardo respostas...

 

OBS: Meu BD possui dados e está como exemplo assim: /15/19/80/22. Aonde cada número seria o ID da Aplicação.

[Marrabel 20]

Tentei as duas sugestões e ambas não deram certo.

 

Xan, a coluna é tipo BLOB sim. Tem alguma outra sugestão?

[xanburzum 169]

tem uma correção da própria microsoft sobre isso,

eu tenho a solução em um dos meus artigos...

preciso achar ele

mas se quiser me mande um email para

xanburzum@terra.com.br

que eu te passo os procedimentos.

[Marrabel 20]

Como você não aceita PM, estou lembrando aqui.

 

Eu enviei o e-mail a você mas não obtive resposta. Meu e-mail é epsylon.xi@gmail.com

 

No aguardo.

[xanburzum 169]

mande novamente com o assunto - fórum

[Marrabel 20]

Eu já deixei o e-mail, não sei porque você já não enviou logo de cara, mas enviei de novo.

 

No aguardo.

[P@trique 0]

O correto aqui

 

For a = 1 To Ubound(Aplicacao)

 

seria assim

 

For a = 0 To Ubound(Aplicacao)

[Marrabel 20]

Isso eu já havia corrigido, mas obrigado por apontar

[Alexandre.Itba 0]

Pelo erro, o problema está no conteúdo do que esta sendo passado para a função split, ou seja: RsDetalhes("idaplicacao")

Tente alterar a condiçao para:

<%
If Not IsNull(RsDetalhes("idaplicacao")) Then 
Aplicacao = Split(RsDetalhes("idaplicacao"),"/")
%>

 

Para confirmar qual o conteudo de RsDetalhes("idaplicacao"), faça um:

<% Response.Write (RsDetalhes("idaplicacao")) %>

 

Antes da condição.

 

Espero ter ajudado.