Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá galera estou aqui estudando ASP e estou digitando um código aqui e esta dando um erro, vou mandar os códigos e vcs veêm o que esta dando de errado, estou o dia inteiro tentando saber onde esta o erro e não consigo. Alguém me dê um HELP
Código formulário.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Inserindo livros na tabela de livros</title><script LANGUAGE="JAVASCRIPT">function validaForm(){if (document.formLivro.txtCodigo.value.length <1){alert("O campo ISBN não pode ficar em branco.");formLivro.txtCodigo.focus();return false;}if (document.formLivro.txtTitulo.value.length <1){alert("O campo Título não pode ficar em branco.");formLivro.txtTitulo.focus();return false;}if (document.formLivro.txtAutor.value.length <1){alert("O campo Autor não pode ficar em branco.");formLibro.txtAutor.focus();return false;}if (document.formLivro.txtPreco.value.length <1){alert("O campo Preço não pode ficar em branco.");formLivro.txtPreco.focus();return false;}if (document.formLivro.txtCapa.value.length <1){alert("O campo Imagem da Capa não pode ficar em branco.");formLivro.txtCapa.focus();return false}return true}</SCRIPT></head><body> <form name="formLivro" method="post" action="ResLab10_1.asp" onSubmit="return validaForm(this);"> Inclusão de Livros<br><br> Informe os dados do livro a ser inserido. Os campos com (*) são de digitação obrigatória.<br> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="20%"> ISBN: </td> <td width="80%"><input type="text" name="txtCodigo"> *</td> </tr> <tr> <td width="20%"> Código da Categoria: </td> <td width="80%"> <select name="txtCodCategoria"> <option value="ADM">Administração</option> <option value="CG">Computação Gráfica</option> <option value="ELE">Eletrônica</option> <option value="INTER">Internet</option> <option value="SISTOP">Sistemas Operacionais</option> <option value="TELE">Telecomunicações</option> </select> </td> </tr> <tr> <td width="20%"> Título: </td> <td width="80%"><input type="text" name="txtTitulo"> *</td> </tr> <tr> <td width="20%"> Autor: </td> <td width="80%"><input type="text" name="txtAutor"> *</td> </tr> <tr> <td width="20%"> Número de Páginas: </td> <td width="80%"><input type="text" name="txtNPaginas"> *</td> </tr> <tr> <td width="20%"> Formato: </td> <td width="80%"><input type="text" name="txtFormato"> </td> </tr> <tr> <td width="20%"> Preço: </td> <td width="80%"><input type="text" name="txtPreco"> *</td> </tr> <tr> <td width="20%"> Resenha: </td> <td width="80%"><textarea name="txtResenha" rows="5" cols="40"></textarea> </td> </tr> <tr> <td width="20%"> Lançamento: </td> <td width="80%"><input type="text" name="txtLancamento"> *</td> </tr> <tr> <td width="20%"> Data Publicação: </td> <td width="80%"><input type="text" name="txtDataPub"> *</td> </tr> <tr> <td width="20%"></td> <td width="80%"> <input type="submit" value="Inserir" name="btInsere"> <input type="reset" value="Limpar Campos" name="btLimpar"> </td> </tr> </table> </form></body></html>Código recebe_dados.asp
<%@LANGUAGE="VBSCRIPT"%><%Option Explicit%><!--#include file="../dbConexao.inc"--><%DIM conexaoDataBaseDIM strINS, rsLivrosDIM varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPubVarCodigo = TRIM(Request.Form("txtCodigo"))VarCodCategoria = Request.Form("txtcodCategoria")VarTitulo = TRIM(Request.Form("txtTitulo"))VarAutor = TRIM(Request.Form("txtAutor"))VarNPaginas = Request.Form("txtNPaginas")VarFormato = TRIM(Request.Form("txtFormato"))VarPreco = Request.Form("txtPreco")VarResenha = Request.Form("txtResenha")VarLancamento = TRIM(Request.Form("txtLancamento"))VarDataPub = TRIM(Request.Form("txtDataPub"))VarTitulo = REPLACE(VarFormato, "'", " ")VarAutor = REPLACE(VarAutor, "'", " ")VarFormato = REPLACE(VarFormato, "'", " ")VarResenha = REPLACE(VarResenha, "'", " ")VarPreco = REPLACE(VarPreco, ",", ".")strINS = "INSERT into Livros "strINS = strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato, preco, resenha, lancamento, dataPub)"strINS = strINS + "VALUES ('" + varCodigo + "',"strINS = strINS + "'" + varCodCategoria + "',"strINS = strINS + "'" + varTitulo + "',"strINS = strINS + "'" + varAutor + "',"strINS = strINS + varNPaginas + ","strINS = strINS + "'" + varFormato + "',"strINS = strINS + varPreco + ","strINS = strINS + "'" + varResenha + "',"strINS = strINS + "'" + varLancamento + "',"strINS = strINS + "'" + varDataPub + "')"Call abreConexaoSet rsLivros = conexaoDataBase.Execute(strINS)%><html><head><title>Inserindo dados em uma tabela</title></head><body>O Livro: "<strong><% = varTitulo %></strong>" foi cadastrado com sucesso</body></html><%Call fechaConexaoSet rsLivros = Nothing%>
Erro que esta sendo exibido no browser IE7
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
/Laboratorios/Lab/recebe_dados.asp, line 38
vlw...
Carregando comentários...