Ir para conteúdo
Fórum Script Brasil

edmais

Membros
  • Total de itens

    40
  • Registro em

  • Última visita

Tudo que edmais postou

  1. edmais

    Verificar Um Testo

    Tudo bem, se foi útil alguma coisa dita, use-a. Precisando, é só postar
  2. edmais

    Verificar Um Testo

    Cara, afinal o que você quer fazer? É mais fácil você ser mais claro.. Enfim, Com a Função Split, você de forma alguma retira os espaços, você 'corta' sua frase onde estiver espaço. Exemplo: variavel = "Ler e Pesquisar antes de postar é importante." variavel2 = Split(Variavel," ") variavel2(0) = "Ler" variavel2(1) = "e" variavel2(2) = "Pesquisar" variavel2(3) = "antes" variavel2(4) = "de" variavel2(5) = "postar" variavel2(6) = "é" variavel2(7) = "importante." Deu pra sacar? Tendo noção nisso aê, acho que fica tranquilo desenvolver a plicação que você não consegue explicar, não é mesmo? Abraços!!
  3. edmais

    If Not Bd.eof

    If Not Rs.Eof or Not Rs.Bof Then Do While Not Rs.Eof Response.write bd("campo") Rs.MoveNext Loop Else Response.write "Não Existem Dados no BD" End If
  4. Recordset.OPEN SQL,CONEXAO,3,3 Testa ae!
  5. edmais

    Verificar Um Testo

    Para Identificar e Separar, faça o Seguinte: Use a função Split Variavel = Split(String," ") For i= 0 To Ubound(Variavel) Response.write Variavel(i) Next Vê se ajuda.
  6. edmais

    Busca Por Mais De Um Valor

    Cara, faz o seguinte: .Cria um campo CODIGO autoincremental para cada notícia; .Cria um campo para título; .Cria um campo para UPLOAD de imagem e grava o nome do arquivo (Caso necessário); .Cria um campo para a noticia toda; .Cria um Campo para a pessoa, na qual redigiu a notícia; Bom, ótimo.. Agora, jogue isso numa página html dentro de um formulário e mande gravar isso no BD. na página lista.asp, você lista todas suas notícias, cada uma com o link, noticias.asp?codigo=<%=rs("CODIGO")%> ai na pagina noticias.asp, quando aberta, você faz o seguinte: codigo = Request.Querystring("codigo") Sql = "Select * from Noticias Where CODIGO="&codigo&"" Set rs = conn.execute(Sql) E pronto.. Entendeu +-? É assim que funciona...
  7. Importante: IsEmpty = É Vazio Ou Seja: If Not Isempty(String) Then Quer dizer que.. Se não estiver vazio então Executa comandos Fim-Se; Enfim, Tira esses teste (Isempty, <> "", etc..) Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\Inetpub\wwwroot\exemplos\3\Formulario\dados\dados_cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "INSERT INTO curriculo_cadastrado (nome, cidade)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nome")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cidade")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %> <font face="Arial" size="2"> <center><br>Os dados foram enviados com sucesso! <br><a href="index.asp"><b>Clique aqui</b></a> para continuar</font></center> <% End If %> Pronto!
  8. edmais

    Algum Servidor

    Bons e Baratos? www.locaweb.com.br www.localone.com.br De Graça? www.domaindlx.com www.7host.com Abraços!!
  9. edmais

    Perda De Session

    ViniciusJau: Session.Timeout = 60 Onde 60 é o seu tempo em minutos. Voltando ao tópico, Cara seta o Session.LCID antes das sessions receberem valores, e tente novamente, caso não dê, logo após fazer as variáveis receberem seus respectivos valores, dê um response.write(session("variavel")) e depois um response.end() e vê se elas ao menos, recebem valores. Tá ok?
  10. edmais

    Duvida Com Frames

    If Request.QueryString("action") = 2 Then O que é isso? Por que não tenta: If Request.form("BOTAO") <> "" Then Não entendi esse action = 2, já que você requisita dados do formulário.. caso seja isso mesmo, poste o código todo, tudo bem? Abraços!!
  11. edmais

    Erro Em Script

    O ponto(.) na frente do seu arquivo.mdb está provocando o erro no script, verifique o nome do arquivo, e tente novamente! Abraços!!
  12. edmais

    Verificar Um Testo

    Não sei se entendi. Mas independente da frase estar minúscula ou não, você quer que a primeira Letra seja sempre maiúscula? Ucase(String) - > Converte a String para Maiúsculo Lcase(String) - > Converte a String para Minúsculo Então vamos ao código? Variavel = Ucase(Left(String,1)) & Right(String,Len(String)-1) Ou seja, Ucase(Left(String,1)) -> Joga Maiúsculo(Ucase) na primeira Letra da sua Frase(Left(string,1)) e o resto. Entendido?
  13. edmais

    Vb E Delphi

    Claro Brother!! É uma ótima idéia sim, porém só usarei caso não tenha opção, queria algo que recebesse e repasse automaticamente. De qualquer forma, Obrigado! []´s
  14. edmais

    Vb E Delphi

    Olá pessoal, Tenho um programa em Delphi que está passando um parâmetro, com o caminho de um arquivo, para o vb, o vb processa algumas coisas, e devolve um outro parâmetro para o Delphi. O problema é: . Como eu recebo pelo vb, esse parâmetro do Delphi? . Como eu passo um parâmetro do VB para o Delphi? Podem me ajudar? []'s
×
×
  • Criar Novo...