Ir para conteúdo
Fórum Script Brasil

ursolouco

Veteranos
  • Total de itens

    2.314
  • Registro em

  • Última visita

Tudo que ursolouco postou

  1. ursolouco

    Resgatar Dados Via Ldap

    Nossa..... Estou perdidinho neste tipo de aplicação (LDAP) , desculpe-me, mas não tenho como lhe ajudar... achei que fosse algo mais simples. Perdão.. Mas veja se pode lhe Identifying Users in IIS using Exchange and LDAP....
  2. ursolouco

    Lista De Sites Sobre Asp!

    Microsoft Data Access Components (MDAC) 2.7 Service Pack 1 Refresh
  3. ursolouco

    Resgatar Dados Via Ldap

    Nunca usei isto, mas vamos tentar, mostre seu código ai pra gente...
  4. ursolouco

    Check Box

    Tutorial Deletando multiplos registros de um mdb via checkbox!
  5. Microsoft Data Access Components (MDAC) 2.7 Service Pack 1 Refresh Diretamente do site da Microsoft. Se for interessante... esta aí. Abraços!!!
  6. ursolouco

    Busca Exata

    Firmeza, se precisar, estamos por ai, jogados ao chão do Kazebre Rock Bar...... Apenas lembre-se de se registrar no forum e pedir ao moderador para fechar o tópico.. Abraços!!!!! [urso]
  7. Jesus Crainstin..... Tempos dificeis estes.... Inverno é fogo, até congelo o cerebelo da gente.. fazendo que com interpretamos as cores errada. Endoidou né.. hehhe Deixando as grancinhas de lado...... Verifique, se os campos da sua tabela são requerido ou tem valor padrão, se não for isso, abra o IIS, botão direito sobre o diretorio virtual, propriedades.. e vejas as permissões.. Abração!!!
  8. ursolouco

    Busca Exata

    beleza, vamos ver se conseguimos explicar: Veja o exemplo: <% variavel = "<font face='verdana' size='2'>" Response.Write(variavel & "Adoro o Urso!" & "</font>") %> A 'Variavel' contem uma TAG Html, e as aspas simples ('') são para identificar os parametros, porque se você fechar com aspas duplas ("") o servidor vai interpretar que você esta fechando o valor da string.. O Resultado na tela, vai ser um texto escrito na fonte Verdana... Ajudou ?
  9. Nunca usei o Access XP, mas veja as permissões de acesso ao banco de dados e ao diretorio..
  10. ursolouco

    Coisinha Boba, Mas

    Vou viajar nesta 'pedalada'... Muito bom este esquema hein bicicleta ? Tu que fez ? Diria Excelente.. MESMO!!!! A principio, seria isso que o Bicicleta falou... Ontem eu, em casa, num frio da disgrama, fiquei pensando como fazer... mas nada de conclusão (sem Net para pegar referencia é complicado!). Quanto ao <Form> já e outro problema que vamos pensar depois.... Mas acho que pode ser feito enviando a string assim: Lá na frente, o esquema deve ser o mesmo: Acao = Trim(Request("Acao")) Não deve ser muito diferente do comum... os dados!! Muito legal mesmo galera, muito obrigado, à todos. Por enquanto não vamos fechar o tópico, vamos ver se alguém ainda, consegue ou conheçe algo legal e ai, podemos até montar um tutorial e enviar para o ASP.ScriptBrasil, já que ninguém escreve lá mesmo.. Abraços Rapaziada!!! [urso]
  11. Feito cara, mas vou logo avisar, não sei se funciona perfeitamente... fiz por cima aqui no Notepad..
  12. À pedido do [Guto].. tá aí, um pequenino exemplo do sorteio <% nome = "jose|paulo|william|wellington|giuliana" total = 3 Analistas = Split(questoes, "|") For k = 0 to Ubound(Analistas) response.Write(Analistas(k) & "<br>") Next response.Write("<br><b>Sorteio dos Analistas( ):</b><br><br>") y = 1 For i = 1 to total ArrayAnalista = Split(nome, "|") Randomize() AnalistaSorteado = Rnd() * UBound(ArrayAnalista) AnalistaSorteado = CInt(AnalistaSorteado) Response.Write y & " - " & ArrayAnalista(Cint(AnalistaSorteado)) & "<br>" If Cint(AnalistaSorteado) = 0 Then nome = Replace(nome, ArrayAnalista(Cint(AnalistaSorteado)) & "|", "") Else nome = Replace(nome, "|" & ArrayAnalista(Cint(AnalistaSorteado)), "") End If y = y + 1 Next %> OBS: fiz isso aí, por cima, não que esteja funcionando 100%, não custa testar.. Abraços!!!
  13. ursolouco

    Coisinha Boba, Mas

    beleza Mano!! Até ai, eu já até havia feito, mas com Frame mesmo... (dividi o site em duas linhas.. hehhehe) mas valeu kara, vamos aguardar mais opiniões... Muito Obrigado pela sua atenção!!! Abraços!! [urso]
  14. ursolouco

    Coisinha Boba, Mas

    Então Kara, é o seguinte: Quero fazer um esquema estilo da ScriptBrasil... So alternando os parametros na url e redirecionando o mesmo, só que desta forma...: "http://www.meusite.com.br/?class=1.0&menu=asp" vai para seção ASP "http://www.meusite.com.br/?class=1.0&menu=php" vai para seção PHP exibindo somente o titulo da classe e a seção... entendeu ?
  15. ursolouco

    Nº De Resultados Da Busca ?

    <% 'vUrsolouco 1.0 vpalavrachave = request.form("palavrachave") cBanco = Server.MapPath("db.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";" Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) cSQL = "SELECT * FROM cadastro WHERE palavrachave like '%" & vpalavrachave & "%'" Set Rs = Server.CreateObject("adodb.recordset") Set Rs = Conn.Execute(cSQL) Contador = 0 If Rs.Eof Then Response.Write("Não há registros a serem exibidos.") Else While Not Rs.Eof Response.Write(Rs("foto") & "<br>") Response.Write("<a href=" & Rs("Link") & ">" & "<b>" & Rs("Produto") & "</b>-" & Rs("Marca") & Rs("especificacoes") & "</a>") Response.Write("<br>") Rs.MoveNext Contador = Contador + 1 Wend End if Response.Write("Total:" & Contador) Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %> Tenta ai kara
  16. ursolouco

    Coisinha Boba, Mas

    dá uma força ae galerinha!! Reparei hoje e já fui atras, mas não encontrei nada por aqui... Em ASP, dá pra fazer esse esqueminhas assim ? "http://www.meusite.com.br/?class=1.0&menu=asp" Tem algum tutorial simples e rapido sobre isso ? Abraços!!! [urso]
  17. ursolouco

    Busca Exata

    Calça Quadrada... E o seguinte... o que vai selecionar estes dados é um objeto RecordSet, que tem a propriedade EOF (End of File) que é do tipo True/False. sendo desta forma, faça o seguinte.... If Rs.EOF Then Response.Write("Não há registros em sua consulta") Else Response.Write(Rs("NomedaColuna")) End If beleza ?
  18. ursolouco

    Request.form

    Firmeza!! Se precisar, dá um grito aí, mas não se esqueça de registrar-se na comunidade e pedir ao moderador para fechar o tópico.
  19. ursolouco

    Aspe-mail X Acentuação

    Sei lá... experimente também: <META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-8"> Ou dá uma olhada na documentação do produto...
  20. ursolouco

    Ajuda Com Sql

    Não sou muito boml, mas tenta assim: "SELECT * FROM contatos WHERE Campo_Data =#" & Variavel & "#";" Variavel é a variavel que recupera o campo da data a ser a consultada.
  21. ursolouco

    Request.form

    Brother!!! <% Variavel = Request.Form("NomeCampo")%>
  22. Xuxu, tenta ai.. <a href="./htm/contemplado.asp?dt=<% Response.Write(Server.URLEnconde(rstSorteio("dt_sorteio")))%>" target="_self">Texto</a> depois você recupera.... dt = Request.QuerySTring("dt")
  23. É vamos lá..... <% Dim strConn, cBanco, Conn cBanco = Server.MapPath("./bd/arquivos.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & cBanco &";" Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) Response.Write("Conexao Ok") Conn.Close Set Conn = Nothing %> Conectando no banco de dados e escrevendo na tela.. abraços!!
  24. ursolouco

    Manipulando Datas

    Hiii cara, sai pra lá Esse sua dúvida eu já tive também, e cara... eu demorei um tempão pra conseguir pensar desta forma. Na minha época de administração do forum, isso aqui era mais HETERO!!! Já essas nova administração... eu Hein!! Abraços e fechem o tópico, parem de bagunça aqui.. T +
  25. Seria algo semelhante a isso aqui: <% nome = "jose|paulo|william|wellington|giuliana" total = 3 Analistas = Split(questoes, "|") For k = 0 to Ubound(Analistas) response.Write(Analistas(k) & "<br>") Next response.Write("<br><b>Sorteio dos Analistas( ):</b><br><br>") y = 1 For i = 1 to total ArrayAnalista = Split(nome, "|") Randomize() AnalistaSorteado = Rnd() * UBound(ArrayAnalista) AnalistaSorteado = CInt(AnalistaSorteado) Response.Write y & " - " & ArrayAnalista(Cint(AnalistaSorteado)) & "<br>" If Cint(AnalistaSorteado) = 0 Then nome = Replace(nome, ArrayAnalista(Cint(AnalistaSorteado)) & "|", "") Else nome = Replace(nome, "|" & ArrayAnalista(Cint(AnalistaSorteado)), "") End If y = y + 1 Next %>
×
×
  • Criar Novo...