Response.Write com Erro

[Morpheus#2005 1]

Opa !!!

 

Nao me retorna nenhum resultado esse código abaixo :

 

<dataset seriesName='Neste ' color='A66EDD' anchorBorderColor='A66EDD' anchorRadius='4'>
		
	<%
			   Set Riscos = Riscos_cmd.Execute
	Do While not Riscos.EOF
	%>
	<% if (Riscos("Risco")="Baixo" Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>
	<% if (Riscos("Risco")="Medio" Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>
	<% if (Riscos("Risco")="Alto" Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>
	
	<%
	Riscos.MoveNext : Loop
	%>

</dataset>

Valew !!!

[Guilherme Teixeira 0]

Tente: <%=rec.Fields.Item("campo").value%>

 

onde:

 

REC = nome da sua recordset

campo = nome do campo que você quer listar

[Morpheus#2005 1]

ta dando esse erro .

 

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A03EE)
')' esperado

FIcou assim :

 

<dataset seriesName='Neste ' color='A66EDD' anchorBorderColor='A66EDD' anchorRadius='4'>
		
	<%
	Set Riscos = Riscos_cmd.Execute
	Do While not Riscos.EOF
	%>
	<% if (Riscos.fields.item("Risco")="Baixo" Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>
	<% if (Riscos.fields.item("Risco")="Medio" Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>
	<% if (Riscos.fields.item("Risco")="Alto"  Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>

	
	<%
	Riscos.MoveNext : Loop
	%>

</dataset>

[hargon 64]

Complexo o código. Está utilizando ASP.NET?

 

Deveria ficar assim:

<% if (Riscos.fields.item("Risco")="Baixo" Then Response.Write("<set value='" & (Riscos("Total") & "' />")%>

[Morpheus#2005 1]

Consegui porém...quando o valor é nulo ela da erro , me ajudem a contornar ???

 

FIcou assim :

 

<dataset seriesName='Risco Medio' color='#FFCC00' anchorBorderColor='A66EDD' anchorRadius='4'>
	
	<%
	Set Riscos = Riscos_cmd.Execute
	Do While not Riscos.EOF%>
	<set value='<%
	If  (Riscos.Fields.Item("Total").Value) > 167 Then 
	Response.Write Riscos.fields.Item("Total") 
	End if	
	%>'/>
	<%Riscos.MoveNext : Loop%>
	
	
</dataset>

Grato

[hargon 64]

If (Not IsNull(Riscos.Fields.Item("Total").Value) And (Riscos.Fields.Item("Total").Value > 167)) Then

[Mário Monteiro 179]

nao entendi o > 167

 

nao começou o codigo com isso

[nagaozen 1]

ta dando esse erro .

 

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A03EE)
')' esperado

FIcou assim :

 

<dataset seriesname='Neste ' color='A66EDD' anchorBorderColor='A66EDD' anchorRadius='4'>
		
	<%
	Set Riscos = Riscos_cmd.Execute
	Do While not Riscos.EOF
	%>
	<% if (Riscos.fields.item("Risco")="Baixo" Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>
	<% if (Riscos.fields.item("Risco")="Medio" Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>
	<% if (Riscos.fields.item("Risco")="Alto"  Then Response.Write("<set value='<%=(Riscos("Total")%>' />")%>

	
	<%
	Riscos.MoveNext : Loop
	%>

</dataset>

Bom, tá dando este erro pq tá sobrando "(" nesse código...

 

<%=(Riscos("Total")%> para <%= Riscos("Total") %>

 

OU

 

<%=(Riscos("Total")%> para <%= (Riscos("Total")) %>

 

as duas formas funcionam ...

 

Dica, utilize um editor que enfatize seus parênteses para não ter esses problemas.

 

Consegui porém...quando o valor é nulo ela da erro , me ajudem a contornar ???

 

FIcou assim :

 

<dataset seriesName='Risco Medio' color='#FFCC00' anchorBorderColor='A66EDD' anchorRadius='4'>
	
	<%
	Set Riscos = Riscos_cmd.Execute
	Do While not Riscos.EOF%>
	<set value='<%
	If  (Riscos.Fields.Item("Total").Value) > 167 Then 
	Response.Write Riscos.fields.Item("Total") 
	End if	
	%>'/>
	<%Riscos.MoveNext : Loop%>
	
	
</dataset>

Grato

Po, esses erros são todos causados por falta de padronização no trabalho com banco de dados ... nesse caso, codifique de forma mais inteligente:

 

<%

dim nullable
set Riscos = Riscos_cmd.execute()
while( not Riscos.eof ) then
	nullable = Rs("total")
	if( nullable <> "" ) then
		nullable = clng(nullable)
		if( nullable > 167 ) then
			Response.write("<set value='" & nullable & "' />")
		end if
	end if
	Riscos.movenext()
wend
set Riscos = nothing

%>

[Morpheus#2005 1]

Estranho, com essa forma TÃO INTELIGENTE que você fez ainda continua dando erro.

[Mário Monteiro 179]

qual erro qeu segue?

 

de onde surgiu o 167 que nao tinha no inicio?