Ir para conteúdo

POWERED BY:

Arquivado

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

fabiosc80

Aonde está o erro aqui. Não tem sentido.

Recommended Posts

Pessoal tenho o seginte Codigo:

 

<!--#include file="conexao.asp"--><!--#include file="../espiao.asp"--><%Session.LCID = 1046%><%Dim Codigo,Del,Del2,SQL,TB,TB2,TB3,BC,ArquivoDel,diretorioCodigo = request.QueryString("Cod")'Aqui começa o select para poder pegar o nome do arquivo que vai ser apagado diretório UPLOADSQL = "Select * from ImagemEventos where CodigoEventos=" & CodigoSet TB3 = BC.Execute(SQL)response.write TB3("Imagem")response.enddiretorio = Server.MapPath("Upload")'Response.Write(diretorio)'response.end'Cria o objeto FileSystemObjectSet ObjFS = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = ObjFS.GetFolder(diretorio)Do While not TB3.EOFArquivoDel = diretorio &"\"& TB3("Imagem")'Aqui apaga o Arquivo do Diretório UPLOADSet FSO= Server.CreateObject("Scripting.FileSystemObject")FSO.DeleteFile (ArquivoDel)TB3.MoveNextLoopDel = "Delete * from ImagemEventos where CodigoEventos =" &CodigoDel2 = "Delete * from Eventos where CodigoEventos =" &CodigoAbreBancoSet TB = BC.Execute(Del)Set TB2 = BC.Execute(Del2)FechaBancoSet TB = Nothing%>

quando clico pra executar essa pagina da o seguinte erro:

 

Microsoft VBScript runtime error '800a01a8' Object required: '' /multilabor/admin/eventosexc.asp, line 10

a linha 10 é essa aqui:

 

Set TB3 = BC.Execute(SQL)

e chama a query:

SQL = "Select * from ImagemEventos where CodigoEventos=" & Codigo

quando dou o response.write da query pra ver oque ele traz ele ta trazendo isso aqui:

Select * from ImagemEventos where CodigoEventos=5

Agora eu pergunto:

 

AONDE ESTA O ERRO:

NÃO EXISTE ERRO....

Compartilhar este post


Link para o post
Compartilhar em outros sites

onde você define BC?? em um dos includes??

Compartilhar este post


Link para o post
Compartilhar em outros sites

onde você define BC?? em um dos includes??

<{POST_SNAPBACK}>

BC esta definido no include conexao.asp

 

veja ele abaixo:

 

 

<%sub AbreBanco()           SET BC = Server.CreateObject("ADODB.Connection")     BC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../labormulti05fsc.mdb")end sub  sub FechaBanco()     BC.close     Set BC =nothingend sub%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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