Erro - ASP - VBScript

[analeao2 0]

Caros amigos,

 

Ando um pouco ausente na minha participação no fórum, mas estou enrolada assumindo a direção de uma associação, a AjudaBrasil e tenho estado envolvida com os erros que o site está apresentando e, acreditem ou não, o pessoal que criou os códigos não sabem me dizer como posso acertar umas coisas que está ferrando com meu dia e com o cadastro de usuários, etc. Estou pedindo ajuda à vocês, vamos lá:

 

O endereço do portal é: http://www.ajudabrasil.org

 

Foi criado um adm simples para ele, onde posto as notícias e tenho o controle dos dados e de tudo o que acontece no site, ou pelo menos deveria, mas está acontecendo o seguinte:

 

Na área de cadastro de entidades, quando existem dois ou mais cadastros de uma mesma entidade, tenho a opção de, na janela de seus dados, colocar uma observação de "cadastro duplicado" e excluir, mas as informações deveriam ficar armazenadas no bd e eu poder tirar uma lista desses casos, como mostra a figura abaixo:

 

 

Janela que aparece com o erro:

 

 

Outro erro que está ocorrendo no mesmo adm é na vizualização e liberação de usuários, como mostra a figura abaixo:

 

 

Espero que alguém possa me ajudar o mais rápido possível, pois estas funções são primordiais para este momento do portal... :unsure:

 

Abraços,

;)

[xanburzum 169]

poste a linha 19

[analeao2 0]

poste a linha 19

Olá xanburzum,

 

Seguem as duas, assim fica mais completo de uma vez...rsrs.

 

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"
	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
[color="#8B0000"][b]	.Parameters.Append lCmd.CreateParameter("@idUsuario" ,adInteger , 1, , Cint(idUsuario) )[/b][/color]
	'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
%>

Tks! ;)

[xanburzum 169]

verifique se esta passando dados do mesmo tipo, por exemplo, numerico em numerico

veja se nao esta passando uma string para um parametro numerico

[analeao2 0]

verifique se esta passando dados do mesmo tipo, por exemplo, numerico em numerico

veja se nao esta passando uma string para um parametro numerico

Linha 19

 

.Parameters.Append lCmd.CreateParameter("@idUsuario" ,adInteger , 1, , Cint(idUsuario) )

 

xanburzum, eu nem coloco nada e aparece este erro apenas quando clico em "ver" o castro do usuário. Isso começou de repente, pois estava funcionando no final do ano passado. Estou com 8.000 usuários cadastrados, mas presos pq eu não consigo ver para liberar, sacou? http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

Abraços,

;)

[Mário Monteiro 179]

verifica o que tem em idUsuario?