Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jigsaw

ERRO 500.100 Não consigo identificar

Por , em ASP Clássico

Recommended Posts

Jigsaw    0

Jigsaw
Postado

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...

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

Esse tipo de erro já foi discutido inumeras vezes no fórum, utilize a busca pois tem diversos tópicos sobre o assunto. Você deve dar permissões de escrita no Db access.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito