Ir para conteúdo
Fórum Script Brasil

bareta

Moderadores
  • Total de itens

    6.231
  • Registro em

  • Última visita

Tudo que bareta postou

  1. bareta

    Topicos Exclusivos

    veja este artigo: http://www.portalmaracaju.com.br/blog/arti...=87&blog=14
  2. bareta

    Sql

    vlw galera acho q da pra fazer já... vou mexer aqui e qualquer coisa to d volta...
  3. bareta

    Sql

    ai que tá o problema $sql_=mysql_query(" SELECT * FROM pessoas where email<>'$email' "); $row=mysql_fetch_object($sql_); eu não sei como colocar as condições quando encontra e quando não... [sql] [se vazio] -> n achou [se achou] -> faz o insert [end if] é isso q preciso saber
  4. bareta

    Sugestões

    mta gente, acessa o forum do baboo pra ver...
  5. bareta

    Sql

    tenho o seguinte insert $sql->addSql( "INSERT INTO pessoa (nome, email, cpf, rg, cnpj, tipo_associado, nome_propriedade, ender_prop, ender_corre, login, senha, datanasc, codtipopes, publicar, ativar, dataini, datafim) VALUES ('$nome','$email','$cpf','$rg','$cnpj','$tipo_associado','$nome_propriedade','$ender_prop','$ender_corre', '$login','$senha', '$datanasc', $codTipoPes,'$publicar','$ativar','$dataini','$datafim')", "", ""); $sql->execute($acao); antes de cadastrar preciso verificar se já existe o nome ou e-mail ou login cadastrado, ai acontece que não sei nada de PHP... como ficaria a sql...
  6. bareta

    Tempo De Login

    se não me engano coloca na página o code session.timeout=tempo
  7. bareta

    Páginação

    visite os subforuns de asp ou use a busca...
  8. bareta

    Tratamento De Eventos!

    obviamente ... use Set rsQuery = conexao.Execute("insert into func(nome) values('"&request.form("nome")&"')") obviamente ... use conexao.Execute("insert into func(nome) values('"&request.form("nome")&"')")
  9. bareta

    Erro Ao Gravar Cookie

    obviamente sim... mas veja que não se deve armazenar dados importantes no cookie tais como.. endereço, numero de documentos e cartões, logins e senhas... mesmo criptografados... se a questão é segurança é isso ai... so ficaram os codigos de produtos e quantias..
  10. porque você não refaz o codigo inteiro?
  11. bareta

    Select Case

    exemplos sobre estas funções você encontra no forum, use a busca
  12. use: <script>document.location.href='pagina.asp';</script>
  13. bareta

    Select Case

    use funções xmlhttp ou ajax ou ainda iframes em conjunto com o select case
  14. bareta

    Evento Onclick

    sim use ajax.... tópico repetido to fechando esse continua no outro
  15. bareta

    Erro Ao Gravar Cookie

    crie um cookie com numeração... a cada novo cookie ele adiciona 1 veja mais ou menos a lógica da gambiarra toda.. response.cookies("codigo")=0 ai depois para add valores usando Response.Cookies("produtos") if request.Cookies("produto"&request.cookies("codigo"))<>"" then response.cookies("codigo")=request.cookies("codigo")+1 else response.Cookies("produto"&request.cookies("codigo"))=id_produto response.Cookies("quantidade"&request.cookies("codigo"))=quantidade_produto end if ai pra resgatar for i=0 to request.cookies("codigo") if request.Cookies("produto"&(i))<>"" then response.write "Produto: "&request.Cookies("produto"&(i))&"<br>" response.write "Quantia: "&request.Cookies("quantidade"&(i))&"<br><hr><br>" next
  16. bareta

    Chacal Downloads

    ele ta passando valor no pagina na url???
  17. hhiahiuahuiahauihauihaiuah.... concordo com você.. mais pra tudo na vida existem os ´prós e contras... fazer o que né?? ow alexandre não sei se foi você que em add aqui mais é fabiobareta@hotmail.com
  18. bareta

    Tratamento De Eventos!

    dessa forma que você está querendo somente em ajax, ou mistura de js com asp...
  19. a resposta é sim... para quem não sabe aqui tem um definição de POO http://www.criarweb.com/artigos/215.php um exemplo de uso de classes http://www.imasters.com.br/artigo/4301/asp...do_com_classes/
  20. use word application para ler os DOC... alguma coisinha referente http://www.4guysfromrolla.com/webtech/062402-1.shtml (em inglês) e esse outro em francês eu acho... http://www.asp-php.net/scripts/asp-php/asp_et_word.php o codigo é do ultimo site mais não testei... <% ' Export Word pour Access - Script de Guillaume ' Connexion à la base de données. ' Pensez à remplacer db_path par votre chemin + fichier set db = Server.CreateObject("ADODB.Connection") db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & db_path set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * from Table ", db, 1, 2 ' déclaration de deux futurs objets dim WordApp, WordDoc ' Création de l'objet application word Set WordApp = CreateObject("word.application") ' Pas la peine de démarrer Word sur le serveur, on n'y est pas !!! WordApp.Application.Visible = false ' Création du document Word Set WordDoc = WordApp.Documents.Add() ' Parcours du recordset. Pour chaque Item, création de plusieurs paragraphes contenant ' les informations de la base. ' Puis saut de page. ' Attention, là c'est du VBA Word, qui peut parfois être un peu étrange ' Par exemple, l'opérateur := du VBA ne passe pas en ASP. Donc remplacer par ' des parenthèses. ' De même, les constantes VBA genre WdAlignCenter ne sont pas connues en ASP ' et retournent donc 0. Il faut donc utiliser leur valeur entière (0, 1, 2...) Do while not rs.EOF Set Mypar1 = WordDoc.Paragraphs.Add set MyRange1 = Mypar1.range MyRange1.InsertBefore(rs.fields.item("Client").value & vbcrlf) MyRange1.Style = "Titre 1" MyRange1.ParagraphFormat.Alignment = 1 Set newpar = WordDoc.Paragraphs.Add set newrange = newpar.range with newrange .Bold = False .Italic = false .Font.Name = "Verdana" .Font.size = "12" end with newrange.insertBefore("Téléphone standard : " & rs.fields.item("tel_standard").value & vbcrlf) newrange.insertBefore("Activité : " & rs.fields.item("activite").value & vbcrlf) newrange.insertBefore(rs.fields.item("Commune").value & vbcrlf) newrange.insertBefore(rs.fields.item("CP").value & vbcrlf) newrange.insertBefore(rs.fields.item("Adresse3").value & vbcrlf) newrange.insertBefore(rs.fields.item("Adresse2").value & vbcrlf) newrange.insertBefore(rs.fields.item("Adresse1").value & vbcrlf) Set Mypar2 = WordDoc.Paragraphs.Add set MyRange2 = Mypar2.range MyRange2.InsertBefore("Représentant : " & rs.fields.item("Prenom").value & " " & rs.fields.item("Nom").value) MyRange2.Font.Bold = true set Myparag2 = WordDoc.Paragraphs.add set Myrang2 = Myparag2.range with Myrang2 .Bold = False .Italic = True .Font.Name = "Verdana" .Font.size = "10" end With myrang2.insertBefore("email : "& rs.fields.item("email").value & vbcrlf) myrang2.insertBefore("Mobile : "& rs.fields.item("mobile").value & vbcrlf) myrang2.insertBefore("Fax : "& rs.fields.item("fax").value & vbcrlf) myRang2.insertBefore("Téléphone : "& rs.fields.item("tel").value & vbcrlf) Set Mypar3 = WordDoc.Paragraphs.Add set MyRange3 = Mypar3.range MyRange3.InsertBefore("Date du contact : " & rs.fields.item("Date").value ) MyRange3.Font.Bold = False Set Mypar4 = WordDoc.Paragraphs.Add set MyRange4 = Mypar4.range MyRange4.InsertBefore("Commentaire : " & rs.fields.item("commentaire").value ) MyRange4.Font.Bold = False rs.movenext if not rs.EOF then ' Paragraphe de saut de page tant qu'il reste des enregistrements Set Mypar5 = WordDoc.Paragraphs.Add set MyRange5 = Mypar5.range MyRange5.InsertBreak Set Mypar5 = WordDoc.Paragraphs.Add set MyRange5 = Mypar5.range end if Loop ' enregistrement du document au format word WordDoc.SaveAs server.mapPath("doc/temp.doc") ' fermeture du document WordDoc.Close ' et de Word WordApp.Quit ' et du recordSet rs.close ' et d'Access db.close Set WordDoc = Nothing Set WordApp = Nothing Set rs = Nothing Set db = Nothing ' redirection du navigateur vers le document pour le visualiser, l'imprimer et le sauvegarder en local. response.redirect "doc/temp.doc" %>
  21. continua no primeiro tópico postado... / http://scriptbrasil.com.br/forum/index.php?showtopic=106209
  22. bareta

    Chacal Downloads

    <% regs = 5 pag = request.querystring("pagina") If pag = "" Then pag = 1 End If %> ele tá passando algum valor em pagina?
  23. bareta

    [resolvido] Tratamento Erro Eof

    sempre use o que a Andreia postou, para sempre vrificar se o select retornou alguma coisa....
  24. 1- qual o tipo do campo no banco? 2- use javascript... 3- você terá de criar uma função, que analisa se a data é verdadeira, analise algum calendario que você achará facil isso
  25. bareta

    Interação Página

    esse tab que você ta usando num tem nada a ver com o codigo <%=tab("id")%> esse tab é o nome do recordeset dfinido por você.. em Set rs = Conn.Execute(sql) e não o id da tabela.... ficaria algo assim <% sql="select * from tabela set tab=conn.execute(sql) if not tab.eof then while not tab.eof %> <a href="sua_pagina.asp?id=<%=tab("id")%>">link</a> <% tab.movenext wend end if tab.close set tab=nothing %>
×
×
  • Criar Novo...