Ir para conteúdo

POWERED BY:

Arquivado

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

sergiofmaia

Erro outputFile.asp, quando vou alterar o produto da o seguinte erro

Por , em ASP Clássico

Recommended Posts

sergiofmaia    0

sergiofmaia
Postado

Microsoft VBScript compilation error '800a0411'

 

Name redefined

 

/admin/outputFile.asp, line 184

 

dim rqux

----^

 

 

Segue o codigo

 

<%
' Autor dos recursos de upload
' Philippe Collignon
' Email PhCollignon@email.com

' Autor das implementações de acesso a dados
' Tiago Francisco Romão
' Email: tiago202@gmail.com
%>


<!--#include file="conexao_login.inc"-->


<%
Session.LCID = 1033
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Server.ScriptTimeout = 999999
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

'email = UploadRequest.Item("email").Item("Value")

Dim varTipo, varCampo1, varCampo2, varCampo3, varCampo4, codLivro, ps
Dim varImg1, varImg2, varImg3
varTipo = Trim(UploadRequest.Item("hddTipo").Item("Value"))
varCampo1 = UploadRequest.Item("txtCapa").Item("FileName")
ps = Trim(UploadRequest.Item("hddps").Item("Value"))

if (varTipo = "livro")or(varTipo = "altlivro") then
varCampo2 = UploadRequest.Item("txtLivro").Item("FileName")
codLivro = UploadRequest.Item("hddCodLivro").Item("Value")
end if

if (varTipo = "brinde")or(varTipo = "altbrinde")or(varTipo = "altprodutoestoque") then
codLivro = UploadRequest.Item("hddCodBrinde").Item("Value")
varCampo2 = UploadRequest.Item("txt_img1").Item("FileName")
varCampo3 = UploadRequest.Item("txt_img2").Item("FileName")
varCampo4 = UploadRequest.Item("txt_img3").Item("FileName")
end if



'***** Inclusão de livros *******************************************
if (varTipo = "livro")and(varCampo1 <> "")and(varCampo2 <> "") then 
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

'Create FileSytemObject Component
 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../images/img_"&filename)
 
 For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 
varCapa = "images/img_"&filename
  
contentType = UploadRequest.Item("txtLivro").Item("ContentType")
filepathname = UploadRequest.Item("txtLivro").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtLivro").Item("Value")

if request("x") = 1 then
	dim rqux
	set rqux = conexaodb.execute("delete * from produtos")
	set rqux = conexaodb.execute("delete * from categorias") 
end if

'Create FileSytemObject Component
 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../downloads/"&filename)
 
 For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 
 varDownload = filename
end if




'***** Alteração de livros ****************************************************
if varTipo = "altlivro" then

if varCampo1 <> "" then 
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

'Create FileSytemObject Component
 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../images/img_"&filename)
 
 For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 
varCapa = "images/img_"&filename
end if

if varCampo2 <> "" then   
contentType = UploadRequest.Item("txtLivro").Item("ContentType")
filepathname = UploadRequest.Item("txtLivro").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtLivro").Item("Value")

'Create FileSytemObject Component
 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../downloads/"&filename)
 
 For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 
 varDownload = filename
end if

end if




'***** Inclusão de brindes *********************************************

if (varTipo = "brinde")and(varCampo1 <> "") then
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img_"&filename)
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img = "produtos/img_"&filename
end if


if (varTipo = "brinde")and(varCampo2 <> "") then
contentType = UploadRequest.Item("txt_img1").Item("ContentType")
filepathname = UploadRequest.Item("txt_img1").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img1").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img1_"&filename)
 
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img1 = "produtos/img1_"&filename
end if
if request("x") = 1 then
	dim rqux
	set rqux = conexaodb.execute("delete * from produtos")
	set rqux = conexaodb.execute("delete * from categorias") 
end if

if (varTipo = "brinde")and(varCampo3 <> "") then
contentType = UploadRequest.Item("txt_img2").Item("ContentType")
filepathname = UploadRequest.Item("txt_img2").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img2").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img2_"&filename)
 
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img2 = "produtos/img2_"&filename
end if

if (varTipo = "brinde")and(varCampo4 <> "") then
contentType = UploadRequest.Item("txt_img3").Item("ContentType")
filepathname = UploadRequest.Item("txt_img3").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img3").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img3_"&filename)
 
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img3 = "produtos/img3_"&filename
end if




'***** Alteração de brindes ****************************************************
if varTipo = "altbrinde" then

if varCampo1 <> "" then 
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

'Create FileSytemObject Component
 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img_"&filename)
 
 For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 
img = "produtos/img_"&filename
end if

if varCampo2 <> "" then
contentType = UploadRequest.Item("txt_img1").Item("ContentType")
filepathname = UploadRequest.Item("txt_img1").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img1").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img1_"&filename)
 
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img1 = "produtos/img1_"&filename
end if

if varCampo3 <> "" then
contentType = UploadRequest.Item("txt_img2").Item("ContentType")
filepathname = UploadRequest.Item("txt_img2").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img2").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img2_"&filename)
 
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img2 = "produtos/img2_"&filename
end if

if request("x") = 1 then
	dim rqux
	set rqux = conexaodb.execute("delete * from produtos")
	set rqux = conexaodb.execute("delete * from categorias") 
end if

if varCampo4 <> "" then
contentType = UploadRequest.Item("txt_img3").Item("ContentType")
filepathname = UploadRequest.Item("txt_img3").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img3").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img3_"&filename)
 
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img3 = "produtos/img3_"&filename
end if

end if
%>


<%
Dim strGrava, rsGrava, conexaodb
Dim varTitulo, varAutor, varPaginas, varFormato, varCategoria, varResenha, varCapa, varDownload, varDescricao


'***** Inclusão de livros *******************************************
if varTipo = "livro" then
varTitulo = Trim(UploadRequest.Item("txtTitulo").Item("Value"))
varAutor = Trim(UploadRequest.Item("txtAutor").Item("Value"))
varPaginas = Trim(UploadRequest.Item("txtPaginas").Item("Value"))
varFormato = Trim(UploadRequest.Item("txtFormato").Item("Value"))
varCategoria = Trim(UploadRequest.Item("txtCategoria").Item("Value"))
varResenha = Trim(UploadRequest.Item("txtResenha").Item("Value"))

varTitulo = replace(varTitulo, "'", "")
varAutor = replace(varAutor, "'", "")
varPaginas = replace(varPaginas, "'", "")
varResenha = replace(varResenha, "'", "")
varCapa = replace(varCapa, "'", "")
varDownload = replace(varDownload, "'", "")

Call abreConexao

'***** Insere o livro na tabela de livros
strGrava = "INSERT into livros "
strGrava = strGrava & "(codCategoria, Titulo, Autor, NPaginas, Formato, resenha, Capa, DtLanc, download) "
strGrava = strGrava & "VALUES (" & varCategoria & ", "
strGrava = strGrava & "'" & varTitulo & "', "
strGrava = strGrava & "'" & varAutor & "', "
strGrava = strGrava & varPaginas & ", "
strGrava = strGrava & "'" & varFormato & "', "
strGrava = strGrava & "'" & varResenha & "', "
strGrava = strGrava & "'" & varCapa & "', "
strGrava = strGrava & "'" & date & "', "
strGrava = strGrava & "'" & varDownload & "') "
Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing
end if



'***** Inclusão de brindes *******************************************
Dim titulo, loja, categoria, subcategoria, precoNormal, precoOferta, parcelas, juros, estoque
Dim peso, prazo, marcador, garantia, descricao, img, img1, img2, img3

if varTipo = "brinde" then
titulo = Trim(UploadRequest.Item("titulo").Item("Value"))
loja = Trim(UploadRequest.Item("loja").Item("Value"))
categoria = Trim(UploadRequest.Item("categoria").Item("Value"))
subcategoria = Trim(UploadRequest.Item("subcategoria").Item("Value"))
precoNormal = Trim(UploadRequest.Item("precoNormal").Item("Value"))
precoOferta = Trim(UploadRequest.Item("precoOferta").Item("Value"))
parcelas = Trim(UploadRequest.Item("parcelas").Item("Value"))
if request("x") = 1 then
dim rqux
set rqux = conexaodb.execute("delete * from produtos")
set rqux = conexaodb.execute("delete * from categorias") 
end if
juros = Trim(UploadRequest.Item("juros").Item("Value"))
estoque = Trim(UploadRequest.Item("estoque").Item("Value"))
peso = Trim(UploadRequest.Item("peso").Item("Value"))
prazo = Trim(UploadRequest.Item("prazo").Item("Value"))
marcador = Trim(UploadRequest.Item("marcador").Item("Value"))
garantia = Trim(UploadRequest.Item("garantia").Item("Value"))
descricao = Trim(UploadRequest.Item("descricao").Item("Value"))
'img = Trim(UploadRequest.Item("txtCapa").Item("Value"))
'img1 = Trim(UploadRequest.Item("txt_img1").Item("Value"))
'img2 = Trim(UploadRequest.Item("txt_img2").Item("Value"))
'img3 = Trim(UploadRequest.Item("txt_img3").Item("Value"))

titulo = replace(titulo, "'", "")

precoNormal = replace(precoNormal, "'", "")
precoOferta = replace(precoOferta, "'", "")

precoNormal = replace(precoNormal, ".", "")
precoOferta = replace(precoOferta, ".", "")

precoNormal = replace(precoNormal, ",", ".")
precoOferta = replace(precoOferta, ",", ".")

parcelas = replace(parcelas, "'", "")
juros = replace(juros, "'", "")
estoque = replace(estoque, "'", "")
peso = replace(peso, "'", "")
peso = replace(peso, ",", ".")
prazo = replace(prazo, "'", "")
garantia = replace(garantia, "'", "")
descricao = replace(descricao, "'", "")
img = replace(img, "'", "")
img1 = replace(img1, "'", "")
img2 = replace(img2, "'", "")
img3 = replace(img3, "'", "")
dataInc = year(date)&"-"&month(date)&"-"&day(date)

Call abreConexao

'***** Insere o brinde na tabela de brindes
strGrava = "INSERT into produtos "
strGrava = strGrava & "(idLoja, idCategoria, idSubCategoria, titulo, descricao, precoNormal, precoOferta, peso, marcador, imgEx, imgG1, imgG2, imgG3, garantia, numParc, juros, qtdEstoque, prazoEntrega, dataInc) "
strGrava = strGrava & "VALUES (" & loja & ", "
strGrava = strGrava & "" & categoria & ", "
strGrava = strGrava & "" & subcategoria & ", "
strGrava = strGrava & "'" & titulo & "', "
strGrava = strGrava & "'" & descricao & "', "
strGrava = strGrava & "'" & precoNormal & "', "
strGrava = strGrava & "'" & precoOferta & "', "
strGrava = strGrava & "" & peso & ", "
strGrava = strGrava & "" & marcador & ", "
strGrava = strGrava & "'" & img & "', "
strGrava = strGrava & "'" & img1 & "', "
strGrava = strGrava & "'" & img2 & "', "
strGrava = strGrava & "'" & img3 & "', "
strGrava = strGrava & "'" & garantia & "', "
strGrava = strGrava & "" & parcelas & ", "
strGrava = strGrava & "'" & juros & "', "
strGrava = strGrava & "" & estoque & ", "
strGrava = strGrava & "" & prazo & ", "
strGrava = strGrava & "'" & dataInc & "') "
Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing
end if



'***** Alteração de livros *******************************************
if varTipo = "altlivro" then

varTitulo = Trim(UploadRequest.Item("txtTitulo").Item("Value"))
varAutor = Trim(UploadRequest.Item("txtAutor").Item("Value"))
varPaginas = Trim(UploadRequest.Item("txtPaginas").Item("Value"))
varFormato = Trim(UploadRequest.Item("txtFormato").Item("Value"))
varCategoria = Trim(UploadRequest.Item("txtCategoria").Item("Value"))
varResenha = Trim(UploadRequest.Item("txtResenha").Item("Value"))
if request("x") = 1 then
dim rqux
set rqux = conexaodb.execute("delete * from produtos")
set rqux = conexaodb.execute("delete * from categorias") 
end if
varTitulo = replace(varTitulo, "'", "")
varAutor = replace(varAutor, "'", "")
varPaginas = replace(varPaginas, "'", "")
varResenha = replace(varResenha, "'", "")
varCapa = replace(varCapa, "'", "")
varDownload = replace(varDownload, "'", "")

Call abreConexao

'***** Altera o livro na tabela de livros  
strGrava = "UPDATE livros Set "

if (varCampo1 <> "")and(varCampo2 = "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "', "
strGrava = strGrava & "Capa = '" & varCapa & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

if (varCampo1 = "")and(varCampo2 <> "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "', "
strGrava = strGrava & "download = '" & varDownload & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

if (varCampo1 <> "")and(varCampo2 <> "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "', "
strGrava = strGrava & "Capa = '" & varCapa & "', "
strGrava = strGrava & "download = '" & varDownload & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

if (varCampo1 = "")and(varCampo2 = "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing

end if



'***** Alteração de brindes *******************************************
if (varTipo = "altbrinde") or (varTipo = "altprodutoestoque") then

titulo = Trim(UploadRequest.Item("titulo").Item("Value"))
loja = Trim(UploadRequest.Item("loja").Item("Value"))
categoria = Trim(UploadRequest.Item("categoria").Item("Value"))
subcategoria = Trim(UploadRequest.Item("subcategoria").Item("Value"))
precoNormal = Trim(UploadRequest.Item("precoNormal").Item("Value"))
precoOferta = Trim(UploadRequest.Item("precoOferta").Item("Value"))
parcelas = Trim(UploadRequest.Item("parcelas").Item("Value"))
juros = Trim(UploadRequest.Item("juros").Item("Value"))
estoque = Trim(UploadRequest.Item("estoque").Item("Value"))
peso = Trim(UploadRequest.Item("peso").Item("Value"))
prazo = Trim(UploadRequest.Item("prazo").Item("Value"))
marcador = Trim(UploadRequest.Item("marcador").Item("Value"))
garantia = Trim(UploadRequest.Item("garantia").Item("Value"))
descricao = Trim(UploadRequest.Item("descricao").Item("Value"))
'img = Trim(UploadRequest.Item("txtCapa").Item("Value"))
'img1 = Trim(UploadRequest.Item("txt_img1").Item("Value"))
'img2 = Trim(UploadRequest.Item("txt_img2").Item("Value"))
'img3 = Trim(UploadRequest.Item("txt_img3").Item("Value"))

titulo = replace(titulo, "'", "")

precoNormal = replace(precoNormal, "'", "")
precoOferta = replace(precoOferta, "'", "")

precoNormal = replace(precoNormal, ".", "")
precoOferta = replace(precoOferta, ".", "")

precoNormal = replace(precoNormal, ",", ".")
precoOferta = replace(precoOferta, ",", ".")
if request("x") = 1 then
dim rqux
set rqux = conexaodb.execute("delete * from produtos")
set rqux = conexaodb.execute("delete * from categorias") 
end if
parcelas = replace(parcelas, "'", "")
juros = replace(juros, "'", "")
estoque = replace(estoque, "'", "")
peso = replace(peso, "'", "")
peso = replace(peso, ",", ".")
prazo = replace(prazo, "'", "")
garantia = replace(garantia, "'", "")
descricao = replace(descricao, "'", "")
img = replace(img, "'", "")
img1 = replace(img1, "'", "")
img2 = replace(img2, "'", "")
img3 = replace(img3, "'", "")

Call abreConexao

'***** Altera o brinde na tabela de brindes  
strGrava = "UPDATE produtos Set "

strGrava = strGrava & "IdLoja = " & loja & ", "
strGrava = strGrava & "IdCategoria = " & categoria & ", "
strGrava = strGrava & "IdSubcategoria = " & subcategoria & ", "
strGrava = strGrava & "Titulo = '" & titulo & "', "
strGrava = strGrava & "Descricao = '" & descricao & "', "
strGrava = strGrava & "PrecoNormal = '" & precoNormal & "', "
strGrava = strGrava & "PrecoOferta = '" & precoOferta & "', "
strGrava = strGrava & "Peso = " & Peso & ", "
strGrava = strGrava & "Marcador = " & Marcador & ", "

if img <> "" then
	strGrava = strGrava & "ImgEx = '" & img & "', "
end if

if img1  <> "" then
	strGrava = strGrava & "ImgG1 = '" & img1 & "', "
end if

if img2  <> "" then
	strGrava = strGrava & "ImgG2 = '" & img2 & "', "
end if

if img3  <> "" then
	strGrava = strGrava & "ImgG3 = '" & img3 & "', "
end if

strGrava = strGrava & "Garantia = '" & garantia & "', "
strGrava = strGrava & "NumParc = " & parcelas & ", "
strGrava = strGrava & "Juros = '" & juros & "', "
strGrava = strGrava & "QtdEstoque = " & estoque & ", "
strGrava = strGrava & "PrazoEntrega = " & prazo & " "
strGrava = strGrava & "WHERE Id = " & codLivro & " "

Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing

end if
%>

<%
'rsGrava.Close
Call fechaConexao
'Set rsGrava = Nothing
%>
 
<%
if (varCampo1 <> "")or(varCampo2 <> "")or(varCampo3 <> "")or(varCampo4 <> "") then
 MyFile.Close
end if
%>


<%
Response.Redirect("item_incluido.asp?tipo="&varTipo&"&ps="&ps&"")
%>

<!--#include file="upload.asp"-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Voce colocou este problema no outro topico mas tudo bem

 

La a minha resposta nao lhe ajudará muito porque como voce nao colcoou o codigo nao pude analisar o problema como um todo

 

mas como voce colocou a declaração dentro do laco de repeticao ela ocorre mais de uma vez e da erro

 

voce poderia simplesmente colocar fora do laço mas vamos fazer melhor...

 

Em vez de

if request("x") = 1 then
dim rqux
set rqux = conexaodb.execute("delete * from produtos")
set rqux = conexaodb.execute("delete * from categorias")
end if

 

Troque por apenas

 

if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

Isso porque nao se precisa de recordset para DELETES, INSERTS E UPDATES

 

Dependendo do DB o asteristico dará erro tambem ai voce so tira o mesmo e testa novamente

Compartilhar este post

Link para o post
Compartilhar em outros sites

sergiofmaia    0

sergiofmaia
Postado

Mario agradeço muito pela sua ajuda

 

Troquei de todos mas da dando um erro diferente agora, pelo que vi tenho que mudar o asterisco de todos mas nao manjo muito

 

Request object error 'ASP 0208 : 80004005'

 

Cannot use generic Request collection

 

/admin/outputFile.asp, line 191

 

Cannot use the generic Request collection after calling BinaryRead.

<%
' Autor dos recursos de upload
' Philippe Collignon
' Email PhCollignon@email.com

' Autor das implementações de acesso a dados
' Tiago Francisco Romão
' Email: tiago202@gmail.com
%>


<!--#include file="conexao_login.inc"-->


<%
Session.LCID = 1033
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Server.ScriptTimeout = 999999
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

'email = UploadRequest.Item("email").Item("Value")

Dim varTipo, varCampo1, varCampo2, varCampo3, varCampo4, codLivro, ps
Dim varImg1, varImg2, varImg3
varTipo = Trim(UploadRequest.Item("hddTipo").Item("Value"))
varCampo1 = UploadRequest.Item("txtCapa").Item("FileName")
ps = Trim(UploadRequest.Item("hddps").Item("Value"))

if (varTipo = "livro")or(varTipo = "altlivro") then
varCampo2 = UploadRequest.Item("txtLivro").Item("FileName")
codLivro = UploadRequest.Item("hddCodLivro").Item("Value")
end if

if (varTipo = "brinde")or(varTipo = "altbrinde")or(varTipo = "altprodutoestoque") then
codLivro = UploadRequest.Item("hddCodBrinde").Item("Value")
varCampo2 = UploadRequest.Item("txt_img1").Item("FileName")
varCampo3 = UploadRequest.Item("txt_img2").Item("FileName")
varCampo4 = UploadRequest.Item("txt_img3").Item("FileName")
end if



'***** Inclusão de livros *******************************************
if (varTipo = "livro")and(varCampo1 <> "")and(varCampo2 <> "") then 
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../images/img_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next

varCapa = "images/img_"&filename
  
contentType = UploadRequest.Item("txtLivro").Item("ContentType")
filepathname = UploadRequest.Item("txtLivro").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtLivro").Item("Value")


if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

'Antigo - Ajuda do forum Imasters Mario Monteiro.

'if request("x") = 1 then
'	dim rqux
'	set rqux = conexaodb.execute("delete * from produtos")
'	set rqux = conexaodb.execute("delete * from categorias") 
'end if

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../downloads/"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next

varDownload = filename
end if




'***** Alteração de livros ****************************************************
if varTipo = "altlivro" then

if varCampo1 <> "" then 
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../images/img_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next

varCapa = "images/img_"&filename
end if

if varCampo2 <> "" then   
contentType = UploadRequest.Item("txtLivro").Item("ContentType")
filepathname = UploadRequest.Item("txtLivro").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtLivro").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../downloads/"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next

varDownload = filename
end if

end if




'***** Inclusão de brindes *********************************************

if (varTipo = "brinde")and(varCampo1 <> "") then
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img_"&filename)
For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img = "produtos/img_"&filename
end if


if (varTipo = "brinde")and(varCampo2 <> "") then
contentType = UploadRequest.Item("txt_img1").Item("ContentType")
filepathname = UploadRequest.Item("txt_img1").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img1").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img1_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img1 = "produtos/img1_"&filename
end if

if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

'Antigo - Ajuda do forum Imasters Mario Monteiro.
'if request("x") = 1 then
'	dim rqux
'	set rqux = conexaodb.execute("delete * from produtos")
'	set rqux = conexaodb.execute("delete * from categorias") 
'end if

if (varTipo = "brinde")and(varCampo3 <> "") then
contentType = UploadRequest.Item("txt_img2").Item("ContentType")
filepathname = UploadRequest.Item("txt_img2").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img2").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img2_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img2 = "produtos/img2_"&filename
end if

if (varTipo = "brinde")and(varCampo4 <> "") then
contentType = UploadRequest.Item("txt_img3").Item("ContentType")
filepathname = UploadRequest.Item("txt_img3").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img3").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img3_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img3 = "produtos/img3_"&filename
end if




'***** Alteração de brindes ****************************************************
if varTipo = "altbrinde" then

if varCampo1 <> "" then 
contentType = UploadRequest.Item("txtCapa").Item("ContentType")
filepathname = UploadRequest.Item("txtCapa").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txtCapa").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next

img = "produtos/img_"&filename
end if

if varCampo2 <> "" then
contentType = UploadRequest.Item("txt_img1").Item("ContentType")
filepathname = UploadRequest.Item("txt_img1").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img1").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img1_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img1 = "produtos/img1_"&filename
end if

if varCampo3 <> "" then
contentType = UploadRequest.Item("txt_img2").Item("ContentType")
filepathname = UploadRequest.Item("txt_img2").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img2").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img2_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img2 = "produtos/img2_"&filename
end if

if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

'Antigo - Ajuda do forum Imasters Mario Monteiro.

'if request("x") = 1 then
'	dim rqux
'	set rqux = conexaodb.execute("delete * from produtos")
'	set rqux = conexaodb.execute("delete * from categorias") 
'end if
if varCampo4 <> "" then
contentType = UploadRequest.Item("txt_img3").Item("ContentType")
filepathname = UploadRequest.Item("txt_img3").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("txt_img3").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"../produtos/img3_"&filename)

For i = 1 to LenB(value)
	 MyFile.Write chr(AscB(MidB(value,i,1)))
Next
img3 = "produtos/img3_"&filename
end if

end if
%>


<%
Dim strGrava, rsGrava, conexaodb
Dim varTitulo, varAutor, varPaginas, varFormato, varCategoria, varResenha, varCapa, varDownload, varDescricao


'***** Inclusão de livros *******************************************
if varTipo = "livro" then
varTitulo = Trim(UploadRequest.Item("txtTitulo").Item("Value"))
varAutor = Trim(UploadRequest.Item("txtAutor").Item("Value"))
varPaginas = Trim(UploadRequest.Item("txtPaginas").Item("Value"))
varFormato = Trim(UploadRequest.Item("txtFormato").Item("Value"))
varCategoria = Trim(UploadRequest.Item("txtCategoria").Item("Value"))
varResenha = Trim(UploadRequest.Item("txtResenha").Item("Value"))

varTitulo = replace(varTitulo, "'", "")
varAutor = replace(varAutor, "'", "")
varPaginas = replace(varPaginas, "'", "")
varResenha = replace(varResenha, "'", "")
varCapa = replace(varCapa, "'", "")
varDownload = replace(varDownload, "'", "")

Call abreConexao

'***** Insere o livro na tabela de livros
strGrava = "INSERT into livros "
strGrava = strGrava & "(codCategoria, Titulo, Autor, NPaginas, Formato, resenha, Capa, DtLanc, download) "
strGrava = strGrava & "VALUES (" & varCategoria & ", "
strGrava = strGrava & "'" & varTitulo & "', "
strGrava = strGrava & "'" & varAutor & "', "
strGrava = strGrava & varPaginas & ", "
strGrava = strGrava & "'" & varFormato & "', "
strGrava = strGrava & "'" & varResenha & "', "
strGrava = strGrava & "'" & varCapa & "', "
strGrava = strGrava & "'" & date & "', "
strGrava = strGrava & "'" & varDownload & "') "
Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing
end if



'***** Inclusão de brindes *******************************************
Dim titulo, loja, categoria, subcategoria, precoNormal, precoOferta, parcelas, juros, estoque
Dim peso, prazo, marcador, garantia, descricao, img, img1, img2, img3

if varTipo = "brinde" then
titulo = Trim(UploadRequest.Item("titulo").Item("Value"))
loja = Trim(UploadRequest.Item("loja").Item("Value"))
categoria = Trim(UploadRequest.Item("categoria").Item("Value"))
subcategoria = Trim(UploadRequest.Item("subcategoria").Item("Value"))
precoNormal = Trim(UploadRequest.Item("precoNormal").Item("Value"))
precoOferta = Trim(UploadRequest.Item("precoOferta").Item("Value"))
parcelas = Trim(UploadRequest.Item("parcelas").Item("Value"))

if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

'Antigo - Ajuda do forum Imasters Mario Monteiro.

'if request("x") = 1 then
'	dim rqux
'	set rqux = conexaodb.execute("delete * from produtos")
'	set rqux = conexaodb.execute("delete * from categorias") 
'end if
juros = Trim(UploadRequest.Item("juros").Item("Value"))
estoque = Trim(UploadRequest.Item("estoque").Item("Value"))
peso = Trim(UploadRequest.Item("peso").Item("Value"))
prazo = Trim(UploadRequest.Item("prazo").Item("Value"))
marcador = Trim(UploadRequest.Item("marcador").Item("Value"))
garantia = Trim(UploadRequest.Item("garantia").Item("Value"))
descricao = Trim(UploadRequest.Item("descricao").Item("Value"))
'img = Trim(UploadRequest.Item("txtCapa").Item("Value"))
'img1 = Trim(UploadRequest.Item("txt_img1").Item("Value"))
'img2 = Trim(UploadRequest.Item("txt_img2").Item("Value"))
'img3 = Trim(UploadRequest.Item("txt_img3").Item("Value"))

titulo = replace(titulo, "'", "")

precoNormal = replace(precoNormal, "'", "")
precoOferta = replace(precoOferta, "'", "")

precoNormal = replace(precoNormal, ".", "")
precoOferta = replace(precoOferta, ".", "")

precoNormal = replace(precoNormal, ",", ".")
precoOferta = replace(precoOferta, ",", ".")

parcelas = replace(parcelas, "'", "")
juros = replace(juros, "'", "")
estoque = replace(estoque, "'", "")
peso = replace(peso, "'", "")
peso = replace(peso, ",", ".")
prazo = replace(prazo, "'", "")
garantia = replace(garantia, "'", "")
descricao = replace(descricao, "'", "")
img = replace(img, "'", "")
img1 = replace(img1, "'", "")
img2 = replace(img2, "'", "")
img3 = replace(img3, "'", "")
dataInc = year(date)&"-"&month(date)&"-"&day(date)

Call abreConexao

'***** Insere o brinde na tabela de brindes
strGrava = "INSERT into produtos "
strGrava = strGrava & "(idLoja, idCategoria, idSubCategoria, titulo, descricao, precoNormal, precoOferta, peso, marcador, imgEx, imgG1, imgG2, imgG3, garantia, numParc, juros, qtdEstoque, prazoEntrega, dataInc) "
strGrava = strGrava & "VALUES (" & loja & ", "
strGrava = strGrava & "" & categoria & ", "
strGrava = strGrava & "" & subcategoria & ", "
strGrava = strGrava & "'" & titulo & "', "
strGrava = strGrava & "'" & descricao & "', "
strGrava = strGrava & "'" & precoNormal & "', "
strGrava = strGrava & "'" & precoOferta & "', "
strGrava = strGrava & "" & peso & ", "
strGrava = strGrava & "" & marcador & ", "
strGrava = strGrava & "'" & img & "', "
strGrava = strGrava & "'" & img1 & "', "
strGrava = strGrava & "'" & img2 & "', "
strGrava = strGrava & "'" & img3 & "', "
strGrava = strGrava & "'" & garantia & "', "
strGrava = strGrava & "" & parcelas & ", "
strGrava = strGrava & "'" & juros & "', "
strGrava = strGrava & "" & estoque & ", "
strGrava = strGrava & "" & prazo & ", "
strGrava = strGrava & "'" & dataInc & "') "
Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing
end if



'***** Alteração de livros *******************************************
if varTipo = "altlivro" then

varTitulo = Trim(UploadRequest.Item("txtTitulo").Item("Value"))
varAutor = Trim(UploadRequest.Item("txtAutor").Item("Value"))
varPaginas = Trim(UploadRequest.Item("txtPaginas").Item("Value"))
varFormato = Trim(UploadRequest.Item("txtFormato").Item("Value"))
varCategoria = Trim(UploadRequest.Item("txtCategoria").Item("Value"))
varResenha = Trim(UploadRequest.Item("txtResenha").Item("Value"))

if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

'Antigo - Ajuda do forum Imasters Mario Monteiro.

'if request("x") = 1 then
'	dim rqux
'	set rqux = conexaodb.execute("delete * from produtos")
'	set rqux = conexaodb.execute("delete * from categorias") 
'end if

varTitulo = replace(varTitulo, "'", "")
varAutor = replace(varAutor, "'", "")
varPaginas = replace(varPaginas, "'", "")
varResenha = replace(varResenha, "'", "")
varCapa = replace(varCapa, "'", "")
varDownload = replace(varDownload, "'", "")

Call abreConexao

'***** Altera o livro na tabela de livros  
strGrava = "UPDATE livros Set "

if (varCampo1 <> "")and(varCampo2 = "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "', "
strGrava = strGrava & "Capa = '" & varCapa & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

if (varCampo1 = "")and(varCampo2 <> "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "', "
strGrava = strGrava & "download = '" & varDownload & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

if (varCampo1 <> "")and(varCampo2 <> "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "', "
strGrava = strGrava & "Capa = '" & varCapa & "', "
strGrava = strGrava & "download = '" & varDownload & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

if (varCampo1 = "")and(varCampo2 = "") then
strGrava = strGrava & "codCategoria = " & varCategoria & ", "
strGrava = strGrava & "Titulo = '" & varTitulo & "', "
strGrava = strGrava & "Autor = '" & varAutor & "', "
strGrava = strGrava & "NPaginas = " & varPaginas & ", "
strGrava = strGrava & "Formato = '" & varFormato & "', "
strGrava = strGrava & "resenha = '" & varResenha & "' "
strGrava = strGrava & "WHERE codLivro = " & codLivro & " "
end if

Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing

end if



'***** Alteração de brindes *******************************************
if (varTipo = "altbrinde") or (varTipo = "altprodutoestoque") then

titulo = Trim(UploadRequest.Item("titulo").Item("Value"))
loja = Trim(UploadRequest.Item("loja").Item("Value"))
categoria = Trim(UploadRequest.Item("categoria").Item("Value"))
subcategoria = Trim(UploadRequest.Item("subcategoria").Item("Value"))
precoNormal = Trim(UploadRequest.Item("precoNormal").Item("Value"))
precoOferta = Trim(UploadRequest.Item("precoOferta").Item("Value"))
parcelas = Trim(UploadRequest.Item("parcelas").Item("Value"))
juros = Trim(UploadRequest.Item("juros").Item("Value"))
estoque = Trim(UploadRequest.Item("estoque").Item("Value"))
peso = Trim(UploadRequest.Item("peso").Item("Value"))
prazo = Trim(UploadRequest.Item("prazo").Item("Value"))
marcador = Trim(UploadRequest.Item("marcador").Item("Value"))
garantia = Trim(UploadRequest.Item("garantia").Item("Value"))
descricao = Trim(UploadRequest.Item("descricao").Item("Value"))
'img = Trim(UploadRequest.Item("txtCapa").Item("Value"))
'img1 = Trim(UploadRequest.Item("txt_img1").Item("Value"))
'img2 = Trim(UploadRequest.Item("txt_img2").Item("Value"))
'img3 = Trim(UploadRequest.Item("txt_img3").Item("Value"))

titulo = replace(titulo, "'", "")

precoNormal = replace(precoNormal, "'", "")
precoOferta = replace(precoOferta, "'", "")

precoNormal = replace(precoNormal, ".", "")
precoOferta = replace(precoOferta, ".", "")

precoNormal = replace(precoNormal, ",", ".")
precoOferta = replace(precoOferta, ",", ".")

if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

'Antigo - Ajuda do forum Imasters Mario Monteiro.
'if request("x") = 1 then
'	dim rqux
'	set rqux = conexaodb.execute("delete * from produtos")
'	set rqux = conexaodb.execute("delete * from categorias") 
'end if
parcelas = replace(parcelas, "'", "")
juros = replace(juros, "'", "")
estoque = replace(estoque, "'", "")
peso = replace(peso, "'", "")
peso = replace(peso, ",", ".")
prazo = replace(prazo, "'", "")
garantia = replace(garantia, "'", "")
descricao = replace(descricao, "'", "")
img = replace(img, "'", "")
img1 = replace(img1, "'", "")
img2 = replace(img2, "'", "")
img3 = replace(img3, "'", "")

Call abreConexao

'***** Altera o brinde na tabela de brindes  
strGrava = "UPDATE produtos Set "

strGrava = strGrava & "IdLoja = " & loja & ", "
strGrava = strGrava & "IdCategoria = " & categoria & ", "
strGrava = strGrava & "IdSubcategoria = " & subcategoria & ", "
strGrava = strGrava & "Titulo = '" & titulo & "', "
strGrava = strGrava & "Descricao = '" & descricao & "', "
strGrava = strGrava & "PrecoNormal = '" & precoNormal & "', "
strGrava = strGrava & "PrecoOferta = '" & precoOferta & "', "
strGrava = strGrava & "Peso = " & Peso & ", "
strGrava = strGrava & "Marcador = " & Marcador & ", "

if img <> "" then
	strGrava = strGrava & "ImgEx = '" & img & "', "
end if

if img1  <> "" then
	strGrava = strGrava & "ImgG1 = '" & img1 & "', "
end if

if img2  <> "" then
	strGrava = strGrava & "ImgG2 = '" & img2 & "', "
end if

if img3  <> "" then
	strGrava = strGrava & "ImgG3 = '" & img3 & "', "
end if

strGrava = strGrava & "Garantia = '" & garantia & "', "
strGrava = strGrava & "NumParc = " & parcelas & ", "
strGrava = strGrava & "Juros = '" & juros & "', "
strGrava = strGrava & "QtdEstoque = " & estoque & ", "
strGrava = strGrava & "PrazoEntrega = " & prazo & " "
strGrava = strGrava & "WHERE Id = " & codLivro & " "

Set rsGrava = conexaodb.Execute(strGrava)
Set rsGrava = Nothing

end if
%>

<%
'rsGrava.Close
Call fechaConexao
'Set rsGrava = Nothing
%>

<%
if (varCampo1 <> "")or(varCampo2 <> "")or(varCampo3 <> "")or(varCampo4 <> "") then
MyFile.Close
end if
%>


<%
Response.Redirect("item_incluido.asp?tipo="&varTipo&"&ps="&ps&"")
%>

<!--#include file="upload.asp"-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Nao utilize a tag CODEBOX que é horrivel e so atrapalha a boa leitura do post pode e deve usar a tag CODE

 

Nao post o codigo todo a menos que isso seja solicitado pois ninguem vai ler todo seu codigo

 

Apenas post a linha ou o trecho que deu erro e sua descricao

 

Qual a linha do erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

prof.priscilareis    0

prof.priscilareis
Postado

Voce colocou este problema no outro topico mas tudo bem

 

La a minha resposta nao lhe ajudará muito porque como voce nao colcoou o codigo nao pude analisar o problema como um todo

 

mas como voce colocou a declaração dentro do laco de repeticao ela ocorre mais de uma vez e da erro

 

voce poderia simplesmente colocar fora do laço mas vamos fazer melhor...

 

Em vez de

if request("x") = 1 then
dim rqux
set rqux = conexaodb.execute("delete * from produtos")
set rqux = conexaodb.execute("delete * from categorias")
end if

 

Troque por apenas

 

if request("x") = 1 then
conexaodb.execute("delete * from produtos")
conexaodb.execute("delete * from categorias")
end if

Isso porque nao se precisa de recordset para DELETES, INSERTS E UPDATES

 

Dependendo do DB o asteristico dará erro tambem ai voce so tira o mesmo e testa novamente

 

 

 

Ola tentei fazer isso, mas deu erro no asterisco como eu conserto ponho oq no local?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tira o asteristico para delete nao precisa

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