Olá Renan,
Obrigada pelo rápido retorno...
Bloco - linhas de 76 a 93 do Erro em adm/AlteraStatusEntidade.asp
<%
function enviaEmailExclusao( email, mensagem, nomecontato , nome)
set fso=server.CreateObject("scripting.filesystemobject")
set fil=fso.OpenTextFile(server.MapPath("../email/exclusaoEntidade.txt"))
body = fil.readAll()
body=replace(body,"<<nomecontato>>", nomecontato)
body=replace(body,"<<nomeentidade>>", nome)
body=replace(body,"<<motivo>>", mensagem)
set em = server.CreateObject("CDO.Message")
[color="#FF0000"][b]em.To = email[/b][/color]
em.From = "Equipe AjudaBrasil <faleconosco.ajudabrasil@gmail.com>"
em.subject = "Exclusão de cadastro no AjudaBrasil"
88 em.body = body
em.send
set em=nothing
end function
%>Bloco - Linhas de 03 a 65 do Erro em adm/dadosUsuarios.asp
<%
const adVarChar=200
const adParamInput=1
const adDBDate = 133
const adDBTimeStamp= 135
const adChar=129
const adInteger=3
const adInt=3
idUsuario=request("idUsuario")
abreCon()
Set lCmd = server.createObject("ADODB.Command")
with lCmd
.CommandType = 4 'stored procedure
.CommandText = "pr_sel_Usuario"
.ActiveConnection = Con
19 .Parameters.Append lCmd.CreateParameter("@idUsuario" ,adInteger , 1, , Cint(idUsuario) )
'adParamInput
'.Parameters("@LOGIN") = strLogin
end with
set rsRecadastro=server.CreateObject("adodb.recordset")
lCmd.Execute , , adCmdStoredProc
rsRecadastro.open lCmd
if not (rsRecadastro.EOF and rsRecadastro.BOF) then
tipopessoa = rsRecadastro("tipopessoa")
login=rsRecadastro("login")
nome=rsRecadastro("nome")
senha=rsRecadastro("senha")
'senha2=rsRecadastro("senha2")
status=rsRecadastro("status")
pergunta=rsRecadastro("perguntasecreta")
resposta=rsRecadastro("respostasecreta")
endereco = rsRecadastro("endereco")
numero = rsRecadastro("numero")
bairro = rsRecadastro("bairro")
cidade = rsRecadastro("cidade")
estado = rsRecadastro("estado")
cep = rsRecadastro("cep")
cep1=left(cep,5)
cep2 = right(cep,3)
email = rsRecadastro("email")
telefone = rsRecadastro("telefone")
dddtel = left(telefone,2)
tel1 = mid(telefone,3,4)
tel2 = right(telefone,4)
sexo = rsRecadastro("sexo")
DataNasc = rsRecadastro("DataNascimento")
dianasc=Day(DataNasc)
mesnasc=Month(DataNasc)
anonasc=Year(DataNasc)
escolaridade=rsRecadastro("escolaridade")
profissao=rsRecadastro("idprofissao")
areaatuacao = rsRecadastro("idareaatuacao")
newsletter = rsRecadastro("newsletter")
'suspenso=rsRecadastro("suspenso")
'causainteresse1 = rsRecadastro("causainteresse1")
'causainteresse2 = rsRecadastro("causainteresse2")
'causainteresse3 = rsRecadastro("causainteresse3")
nomeprofissao=mostraProfissao(profissao)
nomeescolaridade=mostraProfissao(escolaridade)
nomeareaatuacao=mostraareaatuacao(areaatuacao)
end if
%>O mais importante é ressaltar que o erro no "dadosUsuarios.asp" começou a aparecer este ano, pois até o ano passado estava tudo ok. Eu não faço nada, apenas tento ver, através do adm, os dados do usuário que está aguardando liberação e me aparece isso. Incrível também é que, com os usuários de 2008 isso não ocorre....
Já o outro erro, sei que sempre ocorreu, pelo menos desde que conheço estes códigos...rs.
Tks!
