Ir para conteúdo
Fórum Script Brasil

ursolouco

Veteranos
 Perfil  Explorar Conteúdo

  • Total de itens

    2.314

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que ursolouco postou

  1. ursolouco
    Movido para Outros Assuntos!!!
  2. ursolouco

    Como Selecionar?

    pergunta respondeu ao golbranco de ursolouco em ASP

    Já haviam respondido...
  3. ursolouco
    Essas mensagem são exibidas após o envio da página ? Ou assim que o visitante preencha o campo e pule para o proximo campo ?
  4. ursolouco

    Código Para Datas - Urgente!

    uma questão respondeu ursolouco em ASP

    <% Session.LCID = 1046%> Deixa a data no formato: 07/02/2004 Veja se pode lhe ajudar....
  5. ursolouco

    Algumas Dúvidas...

    pergunta respondeu ao wgalafassijr de ursolouco em ASP

    Salve!! 1° - Sim, é possivel rodar mais de um dominio no WinXP Pró!! 2° - Na propria SB há porção de coisa na pagina principal e no sistema de busca. Abraços!!!
  6. ursolouco
    Ok, movido então para seção de dreamweaver...
  7. ursolouco
    Movido para Sistema Operacional..
  8. ursolouco

    Fórum Em Português

    uma questão respondeu ursolouco em ASP

    Lucas!! Registre-se na nossa comunidade e ajude ela a crescer cada vez mais. Parabéns pelo ótimo site desenvolvido, original, leve, simples e direto. Nota 10. Veja alguns forum da categoria do Código Livre pode lhe ajudar. Até + [ursão]
  9. ursolouco

    Banco De Dados

    pergunta respondeu ao Miranda de ursolouco em Access

    Movido para seção de Banco de Dados!!!
  10. ursolouco
    Com Asp ou DreamWeaver ?
  11. ursolouco

    Consulta Sql

    pergunta respondeu ao vivigrieco de ursolouco em ASP

    Não que vá funcionar, mas é mais ou menos assim.. set RSAgencias = Server.CreateObject("ADODB.Recordset") RSAgencias.Activeconnection = MM_Movimentacao_STRING SQL2 = "select * from cu_cadastro_usuarios where cuMatUsu ='"& UsLogin &"'" RSAgencias.Open SQL2, Conn, 3, 3 If RSAgencias.Eof Then SQL = "insert into cu_cadastro_usuarios (cuMatUsu, cuUniUsu, cuOrgaoUsu) values ('"&UsLogin&"','41501202','"& AgDescricao &"')" Else SQL = "UPDATE cu_cadastro_usuarios Set cuOrgaoUsu ='" & AgDescricao & "'" SQL = SQL & " WHERE CuMatUsu ='" & UsLogin &"'" End If RsAgencias.Close RSAgencias.Open SQL, Conn, 3, 3
  12. ursolouco

    Consulta Sql

    pergunta respondeu ao vivigrieco de ursolouco em ASP

    <% If Session("Logado") = "Ok" Then 'Faço o UpDate Else 'Faço o Insert End If
  13. ursolouco
    Desculpe- me, mas refaça o site para ofereçe-lo ao seu cliente. Esta muito simples e sem vida. T+
  14. ursolouco

    Mural De Recados

    pergunta respondeu ao Mateustg de ursolouco em ASP

    I.E 5.0/5.5 Ferramentar / Opções da Internet Guia segurança / Nivel Personalizado > Opção Redefinir em Médio / Redefinir Responder Sim para o alerta na tela Ok. I.E 6.0 Ferramentar / Opções da Internet Guia Privacidade / Baixar o controle até o indicador informar 'Aceitar todos os Cookies' Ok. Veja se pode lhe ajudar... Abraços!!! [urso]
  15. ursolouco
    Estou lhe convidando para se registrar na nossa comunidade e ajudar-la a ser a melhor e maior da internet Temos uma lista de servidores gratuitos neste tópico. Veja se o mesmo pode lhe ajudar.. t+
  16. ursolouco

    Mural De Recados

    pergunta respondeu ao Mateustg de ursolouco em ASP

    Sorry, you are not authorised to view the material in this part of the web site. If you try again make sure you have session cookies enabled on your machine. Seu navegador não esta aceitando a manipulação de cookies por isso esta sendo exibida a mensagem de erro. Reconfigure o mesmo para seu sistema funcionar perfeitamente. Até +
  17. ursolouco

    Input Control Error

    uma questão respondeu ursolouco em ASP

    Novamente, convido você a se registrar na nossa comunidade. View Code para gente lhe ajudar.. T +
  18. ursolouco

    Consulta

    uma questão respondeu ursolouco em ASP

    Aline!! Registre-se na comunidade para obter um contato mais facil Artigo: Busca indiferente da acentuação Veja se pode lhe ajudar. T+ urso
  19. ursolouco

    Chat

    pergunta respondeu ao Deividy de ursolouco em ASP

    Pesquise em : www.codigolivre.com.br
  20. ursolouco

    Asp Wingate

    uma questão respondeu ursolouco em ASP

    Dantas!!! Convido você a se registra na nossa comunidade. Dê uma pesquisada sobre 'Response.AddHeader' T +
  21. ursolouco
    Movido para Avaliações!!!! Desculpe-me, mas há um local para este tipo de questão.
  22. ursolouco

    Me Ajudem

    pergunta respondeu ao rcnery de ursolouco em ASP

    Brother!!! Há duas ou mais informações no seu banco de dados com o campo 'resultidexpo' igual ?
  23. ursolouco
    <!--#include file="conexao.inc" --> <% PaginaAtual = Request("PaginaAtual") If PaginaAtual = "" Then PaginaAtual = 1 End If QuantidadeRegistros = Session("RegistrosPorPagina") If QuantidadeRegistros = "" Then QuantidadeRegistros = 3 End If Session("NomeCliente") = Request.Form("txtnome") If Request.Form("Quantidade") <> "" Then Session("RegistrosPorPagina") = Request.Form("Quantidade") End If InstrucaoSQL = "SELECT * FROM Authors" Set rsConsulta = Server.CreateObject("ADODB.RecordSet") Set rsConsulta = Conn.execute(InstrucaoSQL) rsConsulta.Pagesize = QuantidadeRegistros TotalPaginas = cint(rsConsulta.PageCount) TotalRegistros = cint(rsConsulta.PageSize) RegistroAtual = 0 If rsConsulta.EOF Then Session("ConsultaErro") = 1 rsConsulta.Close Set rsConsulta = Nothing Response.Redirect "Consulta.ASP" Else rsConsulta.MoveFirst ' rsConsulta.AbsolutePage = PaginaAtual Response.Write "<html>" Response.Write "<head>" Response.Write "<title>Fabricio Costa - Intranet - Resultado da Consulta de Clientes</title>" Response.Write "</head>" Response.Write "<body link=""#245399"" vlink=""#245399"" alink=""#245399"">" Response.Write "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" Response.Write "<tr><td width=""30%""><p align=""center""><img src=""images/logompm.jpg"" width=""163"" height=""164""></td>" Response.Write "<td width=""80%""><p align=""center""><font face=""Arial"" size=""4""><strong>Fabrício Costa - Desenvolvimento para Web</strong></font></td></tr>" Response.Write "</table>" Response.Write "<p align=""center""><font face=""Arial"" size=""3""><strong>Resultado da Pesquisa no Cadastro de Clientes</strong></font></p>" Response.Write "<p align=""left""><font face=""Arial"" size=""2""><strong>Mostrando página " & PaginaAtual & " de " & TotalPaginas & "<br>" Response.Write "Selecione a página: [" ZeroAEsquerda = "0" NomeScript = Request.ServerVariables("script_name") PaginaAnterior = "" PaginaPosterior = "" For Contador = 1 to TotalPaginas If Contador >= 10 Then ZeroAEsquerda = "" End If Auxiliar = "<a href='" & NomeScript Auxiliar = Auxiliar & "?PaginaAtual=" & Contador Auxiliar = Auxiliar & "'>" & ZeroAEsquerda & Contador & "</a>" Response.write " "& Auxiliar & " " If (PaginaAtual - 1) = Contador Then PaginaAnterior = "<a href='" & NomeScript & "?PaginaAtual=" & Contador PaginaAnterior = PaginaAnterior & "'>Página Anterior</a>" End If If (PaginaAtual + 1) = Contador Then PaginaPosterior = "<a href='" & NomeScript & "?PaginaAtual=" & Contador PaginaPosterior = PaginaPosterior & "'>Próxima Página</a>" End If Next Response.Write "]</strong></font></p>" Do Until rsConsulta.EOF OR RegistroAtual >= TotalRegistros Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">" Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>" Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta(0) & "</strong></font></td>" Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">" Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>" Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta(1) & "</strong></font></td>" Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">" Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>" Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta(2) & "</strong></font></td>" Response.Write "</table><p>" RegistroAtual = RegistroAtual + 1 rsConsulta.MoveNext Loop Session("ConsultaErro") = 0 rsConsulta.Close Set rsConsulta = Nothing Response.Write"<p align=""center""><font face=""Arial"" size=""2"" color=""#245399""><strong><a href=""Consulta.ASP"">Nova Consulta</a>" & " | " & PaginaAnterior & " | " & PaginaPosterior & "</strong></font></p>" Response.Write"<p><font face=""Arial"" size=""1""><strong>Copyright 2000© - Fabricio Costa - todos direitos reservados.</strong></font></p>" Response.Write"</body>" Response.Write"</html>" End If %> Brother!! Não testei seu código, apenas adaptei algumas coisas, veja se funciona e re-estruture no seu sistema (se funcionar, é claro ) Até + Urso
  24. ursolouco
    Procure usar um arquivo *.UDL!!! (Microsoft Data Link) Depois, abra-o mesmo no bloco de notas, copie e cole todo código depois de provider.. Até + [ursão]
  25. ursolouco

    Update Multiplos

    pergunta respondeu ao Eli@ne de ursolouco em ASP

    Eli@ne!!! Pesquise algo sobre AddNew, acredito que seja isso que esteja precisanto. Até + [urso]
×
×
  • Criar Novo...