<% For i=1 to Request.Form.Count if Request.Form.Item(i)="" then Response.Redirect "admprod.asp?err=3" End if Next if 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 "admprod.asp?err=11" End if if Request.Form("ENTRADA")="S" then entrada="S" else entrada="N" End if q="INSERT INTO T_PRODUTO (NOME,MAXPARCELAS,TAC,VALORMIN,VALORMAX,TXMENSAL,TXANUAL,ENCARGOS,FINALIDADE,TXMENSAL_INADI,TXANUAL_INADI,MULTA,GARANTIAS,ENTRADA)VALUES('"&Request.Form("NOME")&"',"&Replace(Replace(Request.Form("MAXPARCELAS"),".",""),",",".")&","&Replace(Replace(Request.Form("TAC"),".",""),",",".")&","&Replace(Replace(Request.Form("VALORMIN"),".",""),",",".")&","&Replace(Replace(Request.Form("VALORMAX"),".",""),",",".")&","&Replace(Replace(Request.Form("TXMENSAL"),".",""),",",".")&","&Replace(Replace(Request.Form("TXANUAL"),".",""),",",".")&","&Replace(Replace(Request.Form("ENCARGOS"),".",""),",",".")&",'"&Request.Form("FINALIDADE")&"',"&Replace(Replace(Request.Form("TXMENSAL_INADI"),".",""),",",".")&","&Replace(Replace(Request.Form("TXANUAL_INADI"),".",""),",",".")&","&Replace(Replace(Request.Form("MULTA"),".",""),",",".")&",'"&Request.Form("GARANTIAS")&"','"&entrada&"')" Conexao.Execute(q) Response.Redirect "admprod.asp" %>