fazer os numeros depois da virgula não arredondar?

[jcdesigner 0]

COMO FAZER OS NUMEROS DEPOIS DA VIRGULA NÃO ARREDONDAREM ?

 

TÁ QUASE TUDO FUNCIONANDO MAS APENAS A PÁGINA QUE FINALIZAR A VENDA COM O INSERT INTO DÁ UM ERRO MEIO CHATO, E PELO QUE JÁ BUSQUEI AQUI NO FORUM, MUITO DIFICIL DE SE ACHAR UMA SOLUÇÃO QUE FUNCIONE.

 

AMIGOS TENHO UM CODIGO QUE QUANDO BUSCA DE UM ARQUIVO TEMPORÁRIO OS DADOS PARA GRAVAR NO BANCO DE DADOS, OS GRAVA, SÓ QUE CONVERTE,(SEM QUE EU QUEIRA) OS NUMEROS APÓS A VIRGULA PARA ,00 - TIPO ASSIM

 

TOTAL DA SUA COMPRA: R$ 230,35 TOTAL DO FRETE: R$ 15,99

 

QUANDO OS DADOS VÃO DO ARQUIVO TEMP, E SÃO INSERIDO NO BD VIA O COMANDO INSERT INTO

 

CHAGAM AO BD ASSIM: R$ 230,00 TOTAL DO FRETE R$ 15,00

 

SÓ ACONTECE NESTA PÁGINA. JÁ TENTEI VÁRIAS FORMAS, MAS CADA UMA QUE TENTO COMPLICA MAIS AINDA. AGRADEÇO QUALQUER ILUMINDADO QUE POSSA ME AJUDAR.

 

EIS O CÓDIGO:

 

<%Dim log,usuario,senha,chk_usuario,temp,arrTemp,lista_pedidlog = Request.QueryString("log")usuario = Request.Form("usuario")senha = Request.Form("senha")If (log = "chk") Then	set chk_usuario = lojaDB.Execute("SELECT * FROM clientes WHERE usuario='"& usuario &"' AND senha='"& senha & "'")	If chk_usuario.EOF Then   %>  <td width=100%><font color=red>Login Inválido</font></td></tr><tr width=100%>  <%  log = "in"  usuario = ""  senha = ""	Else  temp = 0  Dim cl_id  While not chk_usuario.EOF 	 temp = temp + 1          cl_id = chk_usuario("id")       	 chk_usuario.MoveNext	  Wend  If temp=1 Then 	 If IsEmpty(Session("car_prod_id")) Then     %>    <td width=100%><font color=red><h4>Carrinho Vazio</h4></font></td></tr><tr width=100%>    <td width=100%>Por favor, selecione os produtos que deseja comprar antes de fechar o pedido</td></tr>    <%  	 Else    'Login OK, gravando pedido    Dim ped_id,ped_data_ped,ped_status,ped_user_id,ped_prod_id,ped_prod_preco,ped_prod_quant    set lista_pedid = lojaDB.Execute("SELECT * FROM pedidos ORDER BY ped_id DESC")    If lista_pedid.EOF Then   	 ped_id = 1    Else	   	 ped_id = lista_pedid("ped_id") + 1    End If    ped_data_ped = Now    ped_status = 0     ped_user_id = cl_id      'Lendo informações do pedido    Dim ped_prod_atual,ped_grava,loop1         	 For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))             arrTemp = Split(Session("car_prod_id")(loop1),"&")   	 ped_prod_id = arrTemp(1)   	 set ped_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& ped_prod_id &" AND disp='S'")   	 ped_prod_preco = FormatCurrency((ped_prod_atual("preco").value), 2, -2, -2, -2)   	 arrTemp = Split(Session("car_prod_id")(loop1),"&")   	 ped_prod_quant = arrTemp(2)                	        	 'Grava Pedido          lojaDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_preco,prod_quant) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & CInt(ped_prod_preco) & "," & ped_prod_quant & ")")    Next    Session.Abandon    %>    </tr><tr width=100%>    <td width=100%><h3>Pedido realizado com Sucesso</h3></td>    </tr><tr width=100%>    <td width=100%><h4>Todos produtos foram solicitados.</h4></td>    </tr><tr width=100%><td><h4>O número do seu pedido é <i><%=ped_id%></i></h4></td>    </tr><tr width=100%><td>    <MM:BeginLock translatorClass="MM_SSI" type="ssi_comment" orig="%3C!--#include file=%22msgpedfechado.inc%22--%3E" fileRef="msgpedfechado.inc" depFiles="file:///C|/wwwroot/FORLAMP/loja/msgpedfechado.inc"><p>Por favor, anote-o em um local seguro.<br>Para liberação de seu pedido faça um depósito no valor total da compra <br>no banco XXXX conta corrente XXXXXXXXXXX nome XXXXXXXXXXXXXXXXXX<br>PARA AGILIZAR VOCÊ PODE NOS ENCAMINHAR UM E-MAIL INFORMANDO O N° DO PEDIDO <a href=mailto:xxxx@server.com.br>xxxx@server.com.br</a></p><p>Você pode verificar o seu pedido a qualquer momento. Para isso clique <a href="./status.asp?pedido=<%=ped_id%>">aqui</a> ou no link Checar Pedido.</p><MM:EndLock>    </td>    <%    log = "nao" 	 End If  'Mais de um usuário com o mesmo nome  Else  	 %> 	 <td width=100%><font color=red>Problemas no processamento do Login</font><br> 	 Por favor, entre em contato conosco. 	 </td></tr><tr width=100%> 	 <% 	 log = "in" 	 usuario = "" 	 senha = ""    End If	End IfEnd IfSelect Case log 	Case "in"	%>

 

GENTE EU FIZ UM TESTE EM UM FORMULÁRIO E ALTEREI A VIRGULA POR PONTO, MAS MUDEI NO CÓDIGO O CInt para: FormatCurrency . O problema é que não sei como fazer para converter as virgulas neste código acima para ponto.

 

 

AGRADEÇOOOOO A TOOOODOOOS

 

OBRIGADIUU

 

JCDESIGNER

[jcdesigner 0]

COMO FAZER OS NUMEROS DEPOIS DA VIRGULA NÃO ARREDONDAREM ?

 

TÁ QUASE TUDO FUNCIONANDO MAS APENAS A PÁGINA QUE FINALIZAR A VENDA COM O INSERT INTO DÁ UM ERRO MEIO CHATO, E PELO QUE JÁ BUSQUEI AQUI NO FORUM, MUITO DIFICIL DE SE ACHAR UMA SOLUÇÃO QUE FUNCIONE.

 

AMIGOS TENHO UM CODIGO QUE QUANDO BUSCA DE UM ARQUIVO TEMPORÁRIO OS DADOS PARA GRAVAR NO BANCO DE DADOS, OS GRAVA, SÓ QUE CONVERTE,(SEM QUE EU QUEIRA) OS NUMEROS APÓS A VIRGULA PARA ,00 - TIPO ASSIM

 

TOTAL DA SUA COMPRA: R$ 230,35 TOTAL DO FRETE: R$ 15,99

 

QUANDO OS DADOS VÃO DO ARQUIVO TEMP, E SÃO INSERIDO NO BD VIA O COMANDO INSERT INTO

 

CHAGAM AO BD ASSIM: R$ 230,00 TOTAL DO FRETE R$ 15,00

 

SÓ ACONTECE NESTA PÁGINA. JÁ TENTEI VÁRIAS FORMAS, MAS CADA UMA QUE TENTO COMPLICA MAIS AINDA. AGRADEÇO QUALQUER ILUMINDADO QUE POSSA ME AJUDAR.

 

EIS O CÓDIGO:

 

<%Dim log,usuario,senha,chk_usuario,temp,arrTemp,lista_pedidlog = Request.QueryString("log")usuario = Request.Form("usuario")senha = Request.Form("senha")If (log = "chk") Then	set chk_usuario = lojaDB.Execute("SELECT * FROM clientes WHERE usuario='"& usuario &"' AND senha='"& senha & "'")	If chk_usuario.EOF Then   %>  <td width=100%><font color=red>Login Inválido</font></td></tr><tr width=100%>  <%  log = "in"  usuario = ""  senha = ""	Else  temp = 0  Dim cl_id  While not chk_usuario.EOF  	temp = temp + 1          cl_id = chk_usuario("id")        	chk_usuario.MoveNext	  Wend  If temp=1 Then  	If IsEmpty(Session("car_prod_id")) Then     %>    <td width=100%><font color=red><h4>Carrinho Vazio</h4></font></td></tr><tr width=100%>    <td width=100%>Por favor, selecione os produtos que deseja comprar antes de fechar o pedido</td></tr>    <%   	Else    'Login OK, gravando pedido    Dim ped_id,ped_data_ped,ped_status,ped_user_id,ped_prod_id,ped_prod_preco,ped_prod_quant    set lista_pedid = lojaDB.Execute("SELECT * FROM pedidos ORDER BY ped_id DESC")    If lista_pedid.EOF Then    	ped_id = 1    Else	    	ped_id = lista_pedid("ped_id") + 1    End If    ped_data_ped = Now    ped_status = 0     ped_user_id = cl_id      'Lendo informações do pedido    Dim ped_prod_atual,ped_grava,loop1          	For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))             arrTemp = Split(Session("car_prod_id")(loop1),"&")    	ped_prod_id = arrTemp(1)    	set ped_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& ped_prod_id &" AND disp='S'")    	ped_prod_preco = FormatCurrency((ped_prod_atual("preco").value), 2, -2, -2, -2)    	arrTemp = Split(Session("car_prod_id")(loop1),"&")    	ped_prod_quant = arrTemp(2)                 	        	'Grava Pedido          lojaDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_preco,prod_quant) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & CInt(ped_prod_preco) & "," & ped_prod_quant & ")")    Next    Session.Abandon    %>    </tr><tr width=100%>    <td width=100%><h3>Pedido realizado com Sucesso</h3></td>    </tr><tr width=100%>    <td width=100%><h4>Todos produtos foram solicitados.</h4></td>    </tr><tr width=100%><td><h4>O número do seu pedido é <i><%=ped_id%></i></h4></td>    </tr><tr width=100%><td>    <MM:BeginLock translatorClass="MM_SSI" type="ssi_comment" orig="%3C!--#include file=%22msgpedfechado.inc%22--%3E" fileRef="msgpedfechado.inc" depFiles="file:///C|/wwwroot/FORLAMP/loja/msgpedfechado.inc"><p>Por favor, anote-o em um local seguro.<br>Para liberação de seu pedido faça um depósito no valor total da compra <br>no banco XXXX conta corrente XXXXXXXXXXX nome XXXXXXXXXXXXXXXXXX<br>PARA AGILIZAR VOCÊ PODE NOS ENCAMINHAR UM E-MAIL INFORMANDO O N° DO PEDIDO <a href=mailto:xxxx@server.com.br>xxxx@server.com.br</a></p><p>Você pode verificar o seu pedido a qualquer momento. Para isso clique <a href="./status.asp?pedido=<%=ped_id%>">aqui</a> ou no link Checar Pedido.</p><MM:EndLock>    </td>    <%    log = "nao"  	End If  'Mais de um usuário com o mesmo nome  Else   	%>  	<td width=100%><font color=red>Problemas no processamento do Login</font><br>  	Por favor, entre em contato conosco.  	</td></tr><tr width=100%>  	<%  	log = "in"  	usuario = ""  	senha = ""    End If	End IfEnd IfSelect Case log 	Case "in"	%>

GENTE EU FIZ UM TESTE EM UM FORMULÁRIO E ALTEREI A VIRGULA POR PONTO, MAS MUDEI NO CÓDIGO O CInt para: FormatCurrency . O problema é que não sei como fazer para converter as virgulas neste código acima para ponto.

 

 

AGRADEÇOOOOO A TOOOODOOOS

 

OBRIGADIUU

 

JCDESIGNER

AÍ PESSOAL NÃO PRECISA MAIS, JÁ DESCOBRI, TÁ REDONDINHO AGORA.

 

 

'PARTE Q TAVA DANDO ERRO ERA ASSIM

 

'Grava Pedido

lojaDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_preco,prod_quant) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & CInt(ped_prod_preco) & "," & ped_prod_quant & ")")

 

 

'FUNCIONOU ASSIM:

 

'Grava Pedido

lojaDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_preco,prod_quant) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & ",'" & ped_prod_preco & "'," & ped_prod_quant & ")")

 

 

PRÁ AQUELES QUE AINDA TEM DÚVIDAS É SÓ PERGUNTAR..

 

 

FUI !!!!!!!!!!!