Pessoal,
Estou criando um formulário para que possa inserir no banco de dados.
Mas está dando erro.
Através de testes, consegui identificar o erro, mas não sei como
corrigir. Segue abaixo o código:
<%%@LANGUAGE="VBSCRIPT"%%>
<%%
Option Explicit
%%>

<%%
DIM conexaoDataBase
DIM strIns, rsLivros
DIM varCodigo, varCodCategoria, varTitulo, varAutor, varNPaginas,
varFormato, varPreco, varResenha, varLancamento, varDataPub
varCodigo=TRIM(Request.Form("txtCodigo"))
varCodCategoria=TRIM(Request.Form("txtcodCategoria"))
varTitulo=TRIM(Request.Form("txtTitulo"))
varAutor=TRIM(Request.Form("txtAutor"))
varNPaginas=TRIM(Request.Form("txtNPaginas"))
varFormato=TRIM(Request.Form("txtFormato"))
varPreco=TRIM(Request.Form("txtPreco"))
varResenha=TRIM(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, "'",".")
Call abreconexao
strINS = "INSERT into Livros"
strINS=strINS & "(codLivro, Categoria, titulo, autor, npaginas, formato)"
'preco, resenha, lancamento, dataPub)"
strINS=strINS& "VALUES
('"&varCodigo&"','"&varCodCategoria&"','"&varTitulo&"','"&varAutor&"',"&varNPaginas&",'"&varFormato&"')"
',"&varPreco&")"
'strINS=strINS+"'"&varResenha&"',"
'strINS=strINS+"'"&varLancamento&"',"
'strINS=strINS+"'"& varDataPub&"')"

Set rsLivros=conexaoDataBase.Execute(strIns)
%%>





O Livro: "<%%=varTitulo%%>" foi cadastrado com sucesso


<%%
Call fechaConexao
Set rsLivros = Nothing
%%>

Obs: Do jeito que o codigo está, ele cadastra normalmente, mas se eu
tirar o preco e a varPreco do comentário e colocá-lo dentro do codigo em
si, ele dá erro.
No banco de dados, o preço está como tipo: unidade monetária.
Como eu corrigo esse problema??
Obrigado.

Ruhan Medeiros