[Resolvido] Listar resultados de uma consulta separando por virgu

[Leandro Rocha 0]

E ae galera!

 

Uso o seguinte código para montar um gráfico:

 

<%
'**NÃO É OBRIGATORIO A MUDANÇA DE NENHUMA LINHA A PARTIR DESTE PONTO**
Function makechart(title, numarray, labelarray, imagename, maxheight, maxwidth, addvalues) 

dim tablestring 
dim max 
dim tempnumarray 
dim templabelarray 
dim heightarray 
dim tempnum 

if maxheight > 0 and maxwidth > 0 and ubound(labelarray) = ubound(numarray) then 

templabelarray = labelarray 
tempnumarray = numarray 
heightarray = array() 
max = 0 
maxlength = 0 
tablestring = "<TABLE border='1' bordercolor='#000000' width='400px'>" & vbCrLf 

for each stuff in tempnumarray 
if stuff > max then max = stuff end if 
next 


tempnum = maxheight/max 
for counter = 0 to ubound(tempnumarray) 
if tempnumarray(counter) = max then 
redim preserve heightarray(counter) 
heightarray(counter) = maxheight 
else 
redim preserve heightarray(counter) 
heightarray(counter) = tempnumarray(counter) * tempnum 
end if 
next 

tablestring = tablestring & "<TR bgcolor='#f5f5f5'><TH class=texto colspan='" & ubound(tempnumarray)+1 & "'>" & title & "</TH></TR>" & _ 
vbCrLf & "<TR bordercolor='#FFFFFF' class=texto>" & vbCrLf 
for counter = 0 to ubound(tempnumarray) 
tablestring = tablestring & vbTab & "<TD valign='bottom' align='center'><img src='" & imagename & "' width='" & maxwidth & "' height='" & _ 
heightarray(counter) & "'>" 
if addvalues then 
tablestring = tablestring & "<BR>" & tempnumarray(counter) 
end if 
tablestring = tablestring & "</TD>" & vbCrLf 
next 

tablestring = tablestring & "</TR>" & vbCrLf 

for each stuff in labelarray 
tablestring = tablestring & vbTab & "<TD align='center' bordercolor='#FFFFFF' class=texto><B> " & stuff & " </TD>" & vbCrLf 
next 

tablestring = tablestring & "</TABLE>" & vbCrLf 
makechart = tablestring 
else 
Response.Write "Erro! A altura e a largura devem ser maiores que zero (0), ou o número de títulos não é igual ao número de valores passados..." 
end if 
end function 
%>

############### CODIGO QUE EXIBE O GRÁFICO #################

<%
'****CONFIGURAÇÔES**********

' esta parte você coloca onde realmente deseja que o gráfico apareça em seu site...
dim stuff , labelstuff , titulo, imagem, altura, largura, valores
titulo = "Acessos Semanais" 'Define o nome do grafico
imagem = "css/grafico.gif" 'Imagem que o grafico ira usar para montar as barras, pode ser uma imagem de 1x1
altura = 100 'Altura maxima do grafico
largura = 10 'Largura maxima do grafico
valores = "True" 'Se verdadeiro apresenta os valores
[color="#ff0000"]stuff = Array(0,0,0,0,0,0,0)[/color] 'Aqui você deve passar os valores que o grafico ira apresentar
[color="#ff00ff"]labelstuff = Array("Dom","Seg","Ter","Qua","Qui","---","Sab")[/color] 'Aqui você deve passar uma legenda para os valores passados na linha acima, deve ter a mesma quantidade
Response.Write makechart(titulo, stuff, labelstuff, imagem, altura, largura, valores) 'Chama a função e passa os valores que você passou como parametro

'****FIM CONFIGURAÇÔES**********
%>

O gráfico no meu caso é um sistema de estatisticas onde tenho a quantidade de acessos em cada dia gravados em um banco MySql. O que eu não estou conseguinte é colocar os resultados separados por vírgula nos devidos campos como nas linhas coloridas.

 

Eu tentei assim mansi nao deu certo:

 

<%
Set rstS = conn.execute("Select * from semana where codusuario="&session("id"))
if rstS.eof then
response.write ""
else
while not rstS.eof

'if c = "" then
'c = 0
'else
'c = cint(c) + cint(1)

'end if


'For c = 0 to 6 'then

resultado = rstS("acessos")&","
response.write resultado


rstS.moveNext

wend

End if
%>

 

pois o resultado ficaria com uma virgula sobrando ao final

 

Ex: 0,5,6,4,9,8,1,

 

Alguem pode me ajudar?

 

vlw

[jrcardozo 4]

use o mid

 

var = "0,5,6,4,9,8,1,"

var = mid(var,1,len(var)-1)

response.write var

[Leandro Rocha 0]

use o mid

 

var = "0,5,6,4,9,8,1,"

var = mid(var,1,len(var)-1)

response.write var

 

então jonathan, eu jah tentei isso ae, mais ele retira todas as virgulas e não apenas a ultima..e mesmo que eu faça isso, se eu der um response.write var fora desse loop, ele retorna apenas a primeira string..tipo "0," ao inves de "0,5,6,1,2," entende..vlw

[DSerma 19]

Faça assim:

 

For c = 0 to 6 'then

resultado = resultado & rstS("acessos")&","
rstS.moveNext

wend

response.write(Mid(resultado,1,Len(resultado)-1))

Abraços...

[Leandro Rocha 0]

Faça assim:

 

For c = 0 to 6 'then

resultado = resultado & rstS("acessos")&","
rstS.moveNext

wend

response.write(Mid(resultado,1,Len(resultado)-1))

Abraços...

vlw Darkdemo ..deu certo!!

mto obrigado msm..resolvido meu problema..mais aproveitando a deixa..esse codigo que eu postei aqui é um sistema de estatisticas de um blog onde voce pode acompanhar a quantidade de acessos em cada intervalo de hora do dia, mes, dia da semana, ano e acessos totais. Eu estou fazendo da seguinte forma:

 

Ex para acessos semanais:

 

Pra cada fotolog eu salvo no seu primeiro acesso o seguinte.

 

Seg, ter, qua, qui, ---, sab, dom com o respectivo codigo do fotolog e depois com os outros acessos eu só vou incrementando no valor de cada dia +1..o problema é que pra cada fotolog eu tenho que salvar no banco os dias da semana com o codigo do fotolog..essa é a estrutura da tabela semana.

 

id dia_semana codfotolog acessos

int(11) var(3) int(11) int(11)

 

tabela do tipo InooDb

 

será que se por ventura eu tiver um numero maior de fotologs cadastrados, e por ser cadastrado os dias da semana para cada fotolog novo eu nao vou ter futuramente um BD gigante..ou essa tabela nao ocupara mto espaço pela sua configuração???

 

abraços

[Leandro Rocha 0]

Faça assim:

 

For c = 0 to 6 'then

resultado = resultado & rstS("acessos")&","
rstS.moveNext

wend

response.write(Mid(resultado,1,Len(resultado)-1))

Abraços...

vlw Darkdemo ..deu certo!!

mto obrigado msm..resolvido meu problema..mais aproveitando a deixa..esse codigo que eu postei aqui é um sistema de estatisticas de um blog onde voce pode acompanhar a quantidade de acessos em cada intervalo de hora do dia, mes, dia da semana, ano e acessos totais. Eu estou fazendo da seguinte forma:

 

Ex para acessos semanais:

 

Pra cada fotolog eu salvo no seu primeiro acesso o seguinte.

 

Seg, ter, qua, qui, ---, sab, dom com o respectivo codigo do fotolog e depois com os outros acessos eu só vou incrementando no valor de cada dia +1..o problema é que pra cada fotolog eu tenho que salvar no banco os dias da semana com o codigo do fotolog..essa é a estrutura da tabela semana.

 

id dia_semana codfotolog acessos

int(11) var(3) int(11) int(11)

 

tabela do tipo InooDb

 

será que se por ventura eu tiver um numero maior de fotologs cadastrados, e por ser cadastrado os dias da semana para cada fotolog novo eu nao vou ter futuramente um BD gigante..ou essa tabela nao ocupara mto espaço pela sua configuração???

 

abraços

 

RESOLVIDO