analeao

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!