Peter.lopes

sim action="enviarproduto.asp" e a pagina é enviarproduto.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Conn Dim SQL Dim descricao_produto, Dim qtd Dim cores Dim formato Dim valor_do_servico Dim valor_em_dinheiro Dim valor_do_desconto descricao_produto = Request.Form("descricao_produto") qtd = Request.Form("qtd") cores = Request.Form("cores") formato = Request.Form("formato") valor_do_servico = Request.Form("valor_do_servico") valor_em_dinheiro = Request.Form("valor_em_dinheiro") valor_do_desconto = Request.Form("valor_do_desconto") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "C:\teste1\apolodesign\admin\bancodedados.mdb" SQL = "INSERT INTO Serviços(descricao_produtSo, qtd, cores, formato, valor_do_servico, valor_em_dinheiro, valor_do_desconto) VALUES('" & descricao_produto & "', '" & qtd & "', '" & cores & "', '" & formato & "', '" & valor_do_servico & "', '" & valor_em_dinheiro & "', '" & valor_do_desconto & "')" Call objConn.Execute(strSQL) Conn.Close Response.Write("Registro completo") %>

local

Puts nem tinha visto isso valeu obrigado *FIT* Só que o erro permanece. Essa é a mensagem de rerro. "Oops! This page appears broken. DNS Error - Server cannot be found." Formulário <form action="enviarproduto.asp" method="post"> <table width="0" border="0" > <tr> <td>Descrição Produto</td> <td>Qtd.</td> <td>Cores</td> <td>Formato</td> <td>Valor do Serviço</td> <td>Valor Em Dinheiro</td> <td>Valor do Desconto</td> </tr> <tr align="center"> <td><input name="descricao_produto" type="text" size="20" /></td> <td><input name="qtd" type="text" size="4" maxlength="4" /></td> <td><input name="cores" type="text" size="3" maxlength="3" /></td> <td><input name="formato" type="text" size="10" /></td> <td><input name="valor_do_servico" type="text" size="10" /></td> <td><input name="valor_em_dinheiro" type="text" size="10" /></td> <td><input name="valor_do_desconto" type="text" size="10" /></td> </tr> </table> <input type="submit" value="Enviar" /> </form> Envio para o banco de dados <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Conn Dim SQL Dim descricao_produto, Dim qtd Dim cores Dim formato Dim valor_do_servico Dim valor_em_dinheiro Dim valor_do_desconto descricao_produto = Request.Form("descricao_produto") qtd = Request.Form("qtd") cores = Request.Form("cores") formato = Request.Form("formato") valor_do_servico = Request.Form("valor_do_servico") valor_em_dinheiro = Request.Form("valor_em_dinheiro") valor_do_desconto = Request.Form("valor_do_desconto") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "C:\teste1\apolodesign\admin\bancodedados.mdb" SQL = "INSERT INTO Serviços(descricao_produtSo, qtd, cores, formato, valor_do_servico, valor_em_dinheiro, valor_do_desconto) VALUES('" & descricao_produto & "', '" & qtd & "', '" & cores & "', '" & formato & "', '" & valor_do_servico & "', '" & valor_em_dinheiro & "', '" & valor_do_desconto & "')" Call objConn.Execute(strSQL) Conn.Close Response.Write("Registro completo") %>

Ola pessoal! Eu criei um código de inclusão de produtos só que esse código esta dando erro. Formulário <form action="enviarproduto.asp" method="post"> <table width="0" border="0" > <tr> <td>Descrição Produto</td> <td>Qtd.</td> <td>Cores</td> <td>Formato</td> <td>Valor do Serviço</td> <td>Valor Em Dinheiro</td> <td>Valor do Desconto</td> </tr> <tr align="center"> <td><input name="descricao_produto" type="text" size="20" /></td> <td><input name="qtd" type="text" size="4" maxlength="4" /></td> <td><input name="cores" type="text" size="3" maxlength="3" /></td> <td><input name="formato" type="text" size="10" /></td> <td><input name="valor_do_servico" type="text" size="10" /></td> <td><input name="valor_em_dinheiro" type="text" size="10" /></td> <td><input name="valor_do_desconto" type="text" size="10" /></td> </tr> </table> <input type="submit" value="Enviar" /> </form> Envio para o banco de dados <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Conn Dim SQL Dim descricao_produto, Dim qtd Dim cores Dim formato Dim valor_do_servico Dim valor_em_dinheiro Dim valor_do_desconto descricao_produto = Request.Form("Descricao Produto") qtd = Request.Form("Qtd") cores = Request.Form("Cores") formato = Request.Form("Formato") valor_do_servico = Request.Form("Valor do Serviço") valor_em_dinheiro = Request.Form("Valor em Dinheiro") valor_do_desconto = Request.Form("Valor do Desconto") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "C:\teste1\apolodesign\admin\bancodedados.mdb" SQL = "INSERT INTO Serviços(Descricao Produto, Qtd, Cores, Formato, Valor do Serviço, Valor em Dinheiro, Valor do Desconto) VALUES('" & descricao_produto & "', '" & qtd & "', '" & cores & "', '" & formato & "', '" & valor_do_servico & "', '" & valor_em_dinheiro & "', '" & valor_do_desconto & "')" Call objConn.Execute(strSQL) Conn.Close Response.Write("Registration complete") %>