Criei uma página com formulário em ASP conforme segue abaixo:
(validação de campos de Javascript)
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title> Inserindo livros na tabela de livros</title>
<script LANGUAGE="JAVASCRIPT">
function validaForm() {
if (document.formLivro.txtCodLivro.value.length <1)
{alert ("O campo ISBN não pode ficar em branco.");
formLivro.txtCodLivro.focus();
return false;
}
if (document.formLivro.txtcategoria.value.length <1)
{alert ("O campo Código da Categoria não pode ficar em branco.");
formLivro.txtcategoria.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.");
formLivro.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="txtCodLivro"> *</td>
</tr>
<tr>
<td width="20%">Código da Categoria: </td>
<td width="80%"> <input type="text" name="txtcategoria"> *</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 (S/N): </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%"><br>
<input type="submit" value="Inserir" name="btInsere">
<input type="reset" value="Limpar campos" name="btLimpa">
</td>
</tr>
</table>
</form>
</body>
</html>
Até aí tudo tranquilo..... e criei outra página com de resposta em ASP com a instrução INSERT (sql) para inserir os dados dos campos na tabela, conforme abaixo:
Pergunta
Guest --Roger --
Boa noite pessoal. Poderíam me ajudar?
Criei uma página com formulário em ASP conforme segue abaixo:
(validação de campos de Javascript)
<%@LANGUAGE="VBSCRIPT"%> <html> <head> <title> Inserindo livros na tabela de livros</title> <script LANGUAGE="JAVASCRIPT"> function validaForm() { if (document.formLivro.txtCodLivro.value.length <1) {alert ("O campo ISBN não pode ficar em branco."); formLivro.txtCodLivro.focus(); return false; } if (document.formLivro.txtcategoria.value.length <1) {alert ("O campo Código da Categoria não pode ficar em branco."); formLivro.txtcategoria.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."); formLivro.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="txtCodLivro"> *</td> </tr> <tr> <td width="20%">Código da Categoria: </td> <td width="80%"> <input type="text" name="txtcategoria"> *</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 (S/N): </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%"><br> <input type="submit" value="Inserir" name="btInsere"> <input type="reset" value="Limpar campos" name="btLimpa"> </td> </tr> </table> </form> </body> </html>Até aí tudo tranquilo..... e criei outra página com de resposta em ASP com a instrução INSERT (sql) para inserir os dados dos campos na tabela, conforme abaixo:<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit %> <!--#Include file="../dbConexao.inc"--> <% DIM conexaoDataBase DIM strINS, rsLivros DIM varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas, varFormato, varPreco, varResenha, varLancamento, varDataPub varCodigo = TRIM (Request.Form ("txtCodLivro")) varCodCategoria = Request.Form ("txtcategoria") 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 (varTitulo, " ' ", " ") varAutor = REPLACE (varAutor, " ' ", " ") varFormato = REPLACE (varFormato, " ' ", " ") varResenha = REPLACE (varResenha, " ' ", " ") varPreco = REPLACE (varPreco, " , ", ".") strINS = " INSERT into Livros " strINS = strINS & " (codLivro, Categoria, titulo, autor, npaginas, formato, preço, 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 abreConexao Set 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 fechaConexao Set rsLivros = Nothing %>Quando fui testar o envio dos dados através do formulário da primeira página o servidor IIS retorna o seguinte erro:
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.
/Nasp/laboratorios/ResLab10_1.asp, line 38
Já fiz verificação na lina 38 e não consegui nada. Alguém pode me ajudar . agradeço....
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.