DBRDemetrius

Boa noite,, e isso não afetara o banco de dados e a apresentacao do preço nas paginas consequentes? seria colocar assim então? intProdPrice = replace(Request("intProdPrice"),",",".") coloquei mas não passou,, o arquivo parou a execucao

Boa Tarde,, pela primeira vez estou recorrendo a voces pois estou fazem dois dias tentado mexer numa sub rotina mas não esta dando certo,, vou passar abaixo o que é. tenho 3 variaveis para inserir no carrinho de compra,, sendo o produto, quantidade e especificacoes. assim esta funcionando normal veja abaixo Sub adicionac(nOrderID, nProductID, nQuant, nEspecificacoes) if nEspecificacoes <> "" then textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&nEspecificacoes&")" elseif nEspecificacoes = "" then zero = "0" textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&zero&")" end if conexao.Execute(textosql) Response.Redirect "carrinhodecompras.asp" End Sub intOrderID = cstr(Session("orderID")) intProdID = Request("intProdID") intQuant = "1" intEspecificacoes = Request.form("especificacoes") if intEspecificacoes = "" then intEspecificacoes = "0" end if ver = "SELECT * FROM pedidos WHERE idcompra ='" & intOrderID & "' AND idprod ='" & intProdID & "' and especificacoes='"&intEspecificacoes&"';" set verificar = conexao.Execute(ver) if verificar.bof or verificar.eof then adicionac intOrderID, intProdID, intQuant, intEspecificacoes else response.redirect "carrinhodecompras.asp?erro=O produto que você tenta adicionar já encontra-se em seu carrinho de compras." end if conexao.Close set conexao = Nothing %> Mas agora queria colocar no arquivo "pedido" tambem o valor do produto para que fique salvo no banco de dados, então fiz assim Sub adicionac(nOrderID, nProductID, nQuant, nProdPrice, nEspecificacoes) if nEspecificacoes <> "" then textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes, preço) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&nEspecificacoes&", "&nProdPrice&")" elseif nEspecificacoes = "" then zero = "0" textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes, preço) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&zero&", "&nProdPrice&")" end if conexao.Execute(textosql) Response.Redirect "carrinhodecompras.asp" End Sub intOrderID = cstr(Session("orderID")) intProdID = Request("intProdID") intQuant = "1" intProdPrice = Request("intProdPrice") intEspecificacoes = Request.form("especificacoes") if intEspecificacoes = "" then intEspecificacoes = "0" end if ver = "SELECT * FROM pedidos WHERE idcompra ='" & intOrderID & "' AND idprod ='" & intProdID & "' AND preço ='" & intProdPrice & "' and especificacoes='"&intEspecificacoes&"';" set verificar = conexao.Execute(ver) if verificar.bof or verificar.eof then adicionac intOrderID, intProdID, intQuant, intProdPrice, intEspecificacoes else response.redirect "carrinhodecompras.asp?erro=O produto que você tenta adicionar já encontra-se em seu carrinho de compras." end if 'Fecha banco de dados conexao.Close set conexao = Nothing %> e assim o arquivo trava e não continua,, vi que o problema é nas casas decimais pois se coloco que IntProdPrice = 100 ou outro numero inteiro ele vai normal salvando o valor fixo, mas se eu colocar um valor fixo tipo 3,58 ou outro ele trava,,, como ele pega o valor do banco de dados do valor do produto que tem 2 casas decimais ele não continua,,, alguém saberia como fazer a sub rotina aceitar as casas decimais? Obrigado ninguém sabe??????????????