O que pode estar errado

[rbaccaro 0]

Montei a pagina de alteração de dados e fotos, faço o teste na intranet, com os componentes instalados em meu micro, e a atualização ocorre normalmente.

Quando mando a pagina para o servidor, a pagina diz que atualiza os dados, mas solicito o arquivo alterado, ele da erro, pois ao inves de alterar, ele apaga todos os dados que compoem a atualização.

Fiz o teste com o banco Access, quando faço com o banco Mysql, ele da erro de Update. não atualiza.

Que pode estar acontecento....Alguem tem alguma ideia

[Salgado 4]

Posta a página, ou o trecho, que faz a atualização.

 

Outra coisa, se existir um "On Error Resume Next" em seu script desabilite-o.

[rbaccaro 0]

ElseIf VarAct = "Confirma" Then

 

VarEmpresa = Request.Form("Empresa")

VarNomeFantasia = Request.Form("NomeFantasia")

VarTipoEmpresa = Request.Form("TipoEmpresa")

VarDescricaop = Request.Form("Descricaop")

VarEndereco = Request.Form("Endereco")

VarNumero = Request.Form("Numero")

VarComplemento = Request.Form("Complemento")

VarBairro = Request.Form("Bairro")

VarEmailApresentacao = Request.Form("EmailApresentacao")

VarWebSite = Request.Form("WebSite")

 

 

If VarEstado = 0 Or VarEstado < 1 Then

VarEstado = EstadoSel("Cod")

Else

VarEstado = Request.Form("Estado")

End If

VarCidade = Request.Form("Cidade")

VarCep = Request.Form("Cep")

VarDDDT1 = Request.Form("DDDT1")

VarT1 = Request.Form("T1")

VarDDDT2 = Request.Form("DDDT2")

VarT2 = Request.Form("T2")

VarDDDCel1 = Request.Form("DDDCel1")

VarCel1 = Request.Form("Cel1")

VarDDDCel2 = Request.Form("DDDCel2")

VarCel2 = Request.Form("Cel2")

VarPalavraChave = Request.Form("PalavraChave")

VarFoto1 = Request.Form("Foto1")

VarFoto2 = Request.Form("Foto2")

VarFoto3 = Request.Form("Foto3")

VarFoto4 = Request.Form("Foto4")

VarFoto5 = Request.Form("Foto5")

VarPlano = Request.Form("Plano")

VarLocal = Request.Form("Local")

VarConfFoto1 = Request.Form("Foto1")

VarConfFoto2 = Request.Form("Foto2")

VarConfFoto3 = Request.Form("Foto3")

VarConfFoto4 = Request.Form("Foto4")

VarConfFoto5 = Request.Form("Foto5")

VarPlanoAtual = Request.Form("PlanoAtual")

 

Set AltBd = Server.CreateObject("ADODB.Recordset")

AltBd.CursorLocation = adUseServer

AltBd.CursorType = adOpenKeyset

AltBd.LockType = adLockOptimistic

AltBd.Open "SELECT * FROM Anuncios WHERE CodAnuncio="&objAnuncio("CodAnuncio"), Conn, , , adCmdText

 

 

AltBd("NomeFantasia") = VarNomeFantasia

AltBd("TipoEmpresa") = VarTipoEmpresa

AltBd("Descricaop") = VarDescricaop

AltBd("Endereco") = VarEndereco

AltBd("Numero") = VarNumero

AltBd("Complemento") = VarComplemento

AltBd("Bairro") = VarBairro

AltBd("EmailApresentacao") = VarEmailApresentacao

AltBd("WebSite") = VarWebSite

AltBd("Cidade") = VarCidade

AltBd("CodEstado") = VarEstado

AltBd("Cep") = VarCep

AltBd("DDDT1") = VarDDDT1

AltBd("T1") = VarT1

AltBd("DDDT2") = VarDDDT2

AltBd("T2") = VarT2

AltBd("DDDCel1") = VarDDDCel1

AltBd("Cel1") = VarCel1

AltBd("DDDCel2") = VarDDDCel2

AltBd("Cel2") = VarCel2

AltBd("PalavraChave") = VarPalavraChave

AltBd("CodPlano") = VarPlano

AltBd("CodLocal") = VarLocal

AltBd("Foto1") = VarConfFoto1

AltBd("Foto2") = VarConfFoto2

AltBd("Foto3") = VarConfFoto3

AltBd("Foto4") = VarConfFoto4

AltBd("Foto5") = VarConfFoto5

AltBd("CodAnunciante") = Session("Usuario")

If VarPlano <> VarPlanoAtual Then

AltBd("Ativacao") = false ' deixar false p/ ser ativado via e-mail de conf.

AltBd("Status") = false

AltBd("DataDe") = FormatDateTime(Date())

InsBd("DataAte") = FormatDateTime(Date()+365)

 

End If

AltBd.Update

AltBd.Close

Set AltBd = Nothing

[jrcardozo 4]

dê mais detalhes do erro

[rbaccaro 0]

Pelo Banco Access, a resposta é que foi alterado com sucesso, quando é solicitado o arquivo, dá erro, pois todos os campos que estão descriminados para uma alteração, não importando se foi alterado ou não, os dados são apagados.

 

No Mysql, diz que ha erro no Update - AltBd.Update

 

Mas só quando esta on line, interno na intranet esta tudo ocorrendo normal