rodrigotnoma

Membros
  • Content Count

    168
  • Joined

  • Last visited

Community Reputation

0 Neutro

About rodrigotnoma

  1. Irei tentar Fulvio, Obrigado pela atenção.
  2. Ola Fulvio, entendi sua resposta, mas tem um porem: o try catch rola somente no 2005, e estou utilizando o 2000. Obrigado. Abraços.
  3. Boa noite, Estou tentando fazer uma procedure, dentro dessa procedure serão executadas outras procedures e alguns inserts e updates. Gostaria de executa-la por bloco, e a se o bloco a ser executado der algum erro, paro a execução e exibo uma mensagem do step que deu problema. Criei essa como teste: alter procedure Sp_TesteErro -- Sp_TesteErro 'Rodrigo' ( @nome varchar(100) ) as begin begin transaction declare @error int declare @msg varchar(1000) insert into tabela1 values('Rodrigo') Set @error = @@error if @error<>0 begin set @msg = 'Erro passo 1' goto errodetail end insert into tabela1 values('Romina') Set @error = @@error if @error<>0 begin set @msg = 'Erro passo 2' goto errodetail end errodetail: if @error <> 0 begin rollback transaction select @msg end else commit transaction end Quando executo, a segunda vez, a procedure exibe erro de PK, mostra a mensagem de "Erro no passo 1", mas também exibe o erro: Server: Msg 2627, Level 14, State 1, Procedure Sp_TesteErro, Line 14 Violation of PRIMARY KEY constraint 'PK__tabela1__0DAF0CB0'. Cannot insert duplicate key in object 'tabela1'. The statement has been terminated. Como faço para que não seja exibida essa mensagem e sim somente a minha mensagem de "Erro no passo 1"? Obrigado.
  4. Bom dia. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set conntemp = Server.CreateObject("ADODB.Connection") conntemp.Open Application("Conecta_bd") vCapital = Request.form("txtcapital") SQL = "SELECT * FROM verifica WHERE ParcelaI < '"&vCapital&"' And ParcelaFinal > '"&vCapital&"'" et rsPedidos = conntemp.Execute(SQL) base = rsPedidos("Parcela") %> Abços.
  5. rodrigotnoma

    IP X DNS

    Você está usando algum desse Request: REMOTE_ADDR REMOTE_HOST REMOTE_USER ???
  6. Seguinte: Sub ExibirConteudoPagina Call AbreConexao SQL_ExibirConteudoPagina = "SELECT * FROM tbl_noticias where categoria = '"&var_Id_Categoria&"' and categoria_coluna ='"&var_Categoria_coluna&"' order by id desc limit 3" set RS_ExibirConteudoPagina = ConexaoDB.Execute(SQL_ExibirConteudoPagina) End Sub A sub "ExibirConteudoPagina" não pede paramêtro e você esta tentando passar com o tal. ExibirConteudoPagina(RS_ExibirConteudoPagina) Abços.
  7. rodrigotnoma

    IP X DNS

    Poste o fonte por favor. Abços
  8. Seguinte: <% '***************** Faço o request do campo digitado login = request("login") '*****************Utilizo o x para controlar o WHILE**************** x = 0 '***************** Efetuo um select em todos os registros sql = "select * from loginteste" Set rsaux = objConn.Execute(sql) '**************** Para cada registro, pego o que estiver antes do @ e jogo para a variavel nome. do while not rsaux.EOF nome = mid(rsaux("login"),1,(instr(rsaux("login"),"@")-1)) '**************** Se o que foi digitado for igual a string que vem antes do @ if login = nome then '***************Incremento o x x = x + 1 end if rsaux.movenext loop '************** Se x=1 significa que encontrou algum registro na base que é idêntico '************** ao que foi digitado. if x = 1 then '************** Redireciono para a página seguinte response.redirect "paginacerta.asp" else '************** Redireciono para a página de erro response.redirect "paginaerrada.asp" end if set rsaux = nothing Set objConn = nothing %> Abços
  9. rodrigotnoma

    Mudar o status

    http://www.plugmasters.com.br/sys/materias...Usando-DateDiff Vlw
  10. Qual o problema que ocorre? Primeiro tire o ";" da segunda linha. Tente dar um Response.Write Request("id_com") para ver o que retorna. De um novo- Response.Write coment -para verificar qual query está tentando executar, teste no banco e veja o que retorna. Abços
  11. Pelo que me parece o código está OK, só verifique as configurações do IIS. O mesmo código deve funcionar no IIS 5, IIS 6 e IIS 7 da mesma forma, independe do código o que pode afetar é a configuração do IIS, permissões, etc... Abços
  12. Seguinte: Ta vendo aquele "rsa" que você colocou ali? Isso é chamado de "Recordset", com ele você irá percorrer todos os registros da sua tabela. Ex: Set rsMeuSelect = Server.CreateObject("ADODB.Recordset") strSql = "Select * from TB_cadastro" rsMeuSelect.Open strSql,con Sendo: strSql = a query que você utilizará para trazer os seus registros do banco, ok? con = Objeto de conexão(no seu código seria o cnn), ok? Todos os resultados que retornar do meu select acima, serão "armazenados" no recordset rsMeuSelect, ok? Suponha que na sua tabela TB_cadastro, tenha o campo nome, telefone, endereco e idade. Faz de conta que aquele SELECT lá em cima esteja assim: "Select nome from TB_cadastro where id = 20" Ele retorna isso: nome = "José" telefone = "9999-9999" endereco = "Rua 2" idade = 25 Como você faz para resgatar o registro que que contenha o nome? Pega o seu RECORDSET( rsMeuSelect) e busca o campo desejado(nome), ficando: rsMeuSelect("nome") , entendeu? a mesma coisa se você quiser pegar a idade: rsMeuSelect("idade"). Caso você utilize: "Select * from TB_cadastro" Qual o resultado do select? Resposta:****Tudo que tem no banco***** Para trazer o resultado no seu ASP, como se fosse uma lista de todos os nomes que estão cadastrados no banco: While not rsMeuSelect.EOF Response.Write rsMeuSelect("nome")&"<br>" rsMeuSelect.Movenext Loop No seu código, seu recordset é "rs" e você esta utilizando "rsa", o erro já começa por ai!!! Depois, no seu primeiro IF, você cria uma conexão, faz o select tudo certo, mas é se ele não satisfazer a sua condição e for para o ELSE, o que o seu recordset irá trazer? NADA.....pois não existe nem um select para alimentar seu "rs". Entendeu? Abços
  13. Response.redirect("http://www.linhasrodoviarias.com.br/busca/resultado.asp?txtCidadeOrigem=são+PAULO&estado= " & rs("cod_tipo") & " &cidade= " & rs("codcat") & " &botao=Buscar") Só que assim: Logo depois do seu else, o response.redirect não vai adr certo por causa que o Recordset(rs), não está setado a nenhum select. Você deverá efetuar um select no seu banco para trazer esses registros(cod_tipo e codcat) setando o resultado do registro para o recordset rs(como você fez no IF), só que para o else também. O jeito que você estava fazendo(request.form("cod_tipo")) só resgata valores de forms e querystring, para trazer resultados de select em banco, você utiliza o seu recordset com o campo que você quer, por isso utilize: rs("cod_tipo"). Abços Abços
  14. De uma olhada: http://www.linhadecodigo.com.br/Artigo.aspx?id=275 Abços
  15. O problema não poderia estar no IIS que está rodando no 64 bits?