Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

CaBo GeL

mostrar valores

Por , em ASP Clássico

Recommended Posts

CaBo GeL    0

CaBo GeL
Postado

Olá a todos.... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Minha duvida eh o seguinte...

 

Estou desenvolvendo um sistema de enquete, ta tudo funcionado beleza... mas qndo eu mostro os valores do banco q é: 0, ele dar erro de Estouro(0x800A0006). kero saber como fazer ele mostrar o valor 0, pôs valores maiores q zero (0) ele mostra normalmente... obrigado!

 

----------------------------[os codigos abaixos]---------------------------

 

<%@Language="VBscript"%><%sql="select * from votos"set objbanco=server.createObject("adodb.connection")objbanco.connectionString="driver=mysql;server=localhost;pwd=;uid=;database=enquete"objbanco.openset objloc=objbanco.execute(sql)codigo=objloc("codigo")opcao1=objloc("opcao1")opcao2=objloc("opcao2")opcao3=objloc("opcao3")%><%voto1 = CDbl(opcao1)voto2 = CDbl(opcao2)voto3 = CDbl(opcao3)total = (voto1 + voto2 + voto3)%><html><head><title>: : : Resultados : : :</title></head><body><table border="1" width="140"><tr><td><b>ASP</b></td><td><img src="imagens/fig1.gif" width="<%=opcao1%>" height="8"></td><td><%response.write(round((voto1 /total)*100, 1) & "%")%><br></td></tr><tr><td><b>PHP</b></td><td><img src="imagens/fig1.gif" width="<%=opcao2%>" height="8"></td><td><%response.write(round((voto2 /total)*100, 1) & "%")%><br></td></tr><tr><td><b>ASP.NET</b></td><td><img src="imagens/fig1.gif" width="<%=opcao3%>" height="8"></td><td><%response.write(round((voto3 /total)*100, 1) & "%")%><br></td></table></body></html>

-----------------------------------------------------------------------------

 

Por favor utilize a tag CODE (icone Imagem Postada no editor), isso facilita a visualização de seu código.

Compartilhar este post

Link para o post
Compartilhar em outros sites

CaBo GeL    0

CaBo GeL
Postado

ola galeraaa essa duvida ja foi esclarecida..... foi o seguinte.... to mandando pra qm tem curiosidade dessa minha duvida.... ta ae<%@Language="VBscript"%><%sql="select * from votos"set objbanco=server.createObject("adodb.connection")objbanco.connectionString="driver=mysql;server=localhost;pwd=;uid=;database=enquete"objbanco.openset objloc=objbanco.execute(sql)if IsNull(objloc("opcao1")) OR IsEmpty(objloc("opcao1")) Thenopcao1=0elseopcao1=objloc("opcao1")end ifif IsNull(objloc("opcao2")) OR IsEmpty(objloc("opcao2")) Thenopcao2=0elseopcao2=objloc("opcao2")end ifif IsNull(objloc("opcao3")) OR IsEmpty(objloc("opcao3")) Thenopcao3=0elseopcao3=objloc("opcao3")end ifvoto1 = cdbl(opcao1)voto2 = cdbl(opcao2)voto3 = cdbl(opcao3)total = voto1 + voto2 + voto3 if voto1 > 0 thenvoto1 = round((voto1/total)*100,1)end ifif voto2 > 0 thenvoto2 = round((voto2/total)*100,1)end ifif voto3 > 0 thenvoto3 = round((voto3/total)*100,1)end if%><html><head><title>: : : Resultados : : :</title><table border="0" width="170" align="center" bgcolor="#E6E6FA"><tr><td><b><font size="1" face="verdana">ASP</b></td><td><img src="imagens/fig1.gif" width="<%Response.Write voto1%>" height="10"></td><td><font size="1" face="verdana"><%Response.Write voto1 & "%" %><br></td></tr><tr><td><b><font size="1" face="verdana">PHP</b></td><td><img src="imagens/fig1.gif" width="<%Response.Write voto2%>" height="10"></td><td><font size="1" face="verdana"><%Response.Write voto2 & "%"%><br></td></tr><tr><td><b><font size="1" face="verdana">NET</b></td><td><img src="imagens/fig1.gif" width="<%Response.Write voto3%>" height="10"></td><td><font size="1" face="verdana"><%Response.Write voto3 & "%" %><br></td></table><br><center><font size="1" face="verdana">* Estimativa de <b><%=total%></b> votos computados.</center></head></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito