<% For i=1 to Request.Form.Count if Request.Form.Item(i)="" then Response.Redirect "admedtprod.asp?idprod="&Request.Form("IDPRODUTO")&"&err=3" End if Next if NOT(IsNumeric(Request.Form("ENCARGOS"))) OR NOT(IsNumeric(Request.Form("MULTA"))) OR NOT(IsNumeric(Request.Form("TXANUAL_INADI"))) OR NOT(IsNumeric(Request.Form("TXMENSAL_INADI"))) OR NOT(IsNumeric(Request.Form("TXANUAL"))) OR NOT(IsNumeric(Request.Form("TXMENSAL"))) OR NOT(IsNumeric(Request.Form("VALORMAX"))) OR NOT(IsNumeric(Request.Form("VALORMIN"))) OR NOT(IsNumeric(Request.Form("TAC"))) OR NOT(IsNumeric(Request.Form("MAXPARCELAS"))) then Response.Redirect "admedtprod.asp?idprod="&Request.Form("IDPRODUTO")&"&err=11" End if if Request.Form("ENTRADA")="S" then entrada="S" else entrada="N" End if q="UPDATE T_PRODUTO SET NOME='"&Request.Form("NOME")&"',MAXPARCELAS="&Replace(Replace(Request.Form("MAXPARCELAS"),".",""),",",".")&",TAC="&Replace(Replace(Request.Form("TAC"),".",""),",",".")&",VALORMIN="&Replace(Replace(Request.Form("VALORMIN"),".",""),",",".")&",VALORMAX="&Replace(Replace(Request.Form("VALORMAX"),".",""),",",".")&",TXMENSAL="&Replace(Replace(Request.Form("TXMENSAL"),".",""),",",".")&",TXANUAL="&Replace(Replace(Request.Form("TXANUAL"),".",""),",",".")&",TXMENSAL_INADI="&Replace(Replace(Request.Form("TXMENSAL_INADI"),".",""),",",".")&",TXANUAL_INADI="&Replace(Replace(Request.Form("TXANUAL_INADI"),".",""),",",".")&",MULTA="&Replace(Replace(Request.Form("MULTA"),".",""),",",".")&",ENCARGOS="&Replace(Replace(Request.Form("ENCARGOS"),".",""),",",".")&",GARANTIAS='"&Request.Form("GARANTIAS")&"',FINALIDADE='"&Request.Form("FINALIDADE")&"',ENTRADA='"&entrada&"' WHERE IDPRODUTO="&Request.Form("IDPRODUTO") Conexao.Execute(q) Response.Redirect "admprod.asp" %>