Ir para conteúdo
Fórum Script Brasil

Victor

Veteranos
  • Total de itens

    1.756
  • Registro em

  • Última visita

Tudo que Victor postou

  1. Victor

    Adicionando Dados

    Olhe esse agora, eu esqueci de algumas coisas <% Set Conn=Server.CreateObject("ADODB.Connection") Conn.CursorLocation=3 Conn.open "DRIVER={SQL Server};DATABASE=Intranet;Network=DBMSSOCN;server=server-bd;uid=intraneti;pwd=intranet" Set RS=Server.CreateObject("ADODB.RecordSet") RS.Open sql, Conn If Not(rs.bof AND rs.eof) then For I =RS.recordcount to 1 step -1 rs.absoluteposition=I Next End If %> <% if request.form("acao") <> "" then Conn.execute "insert into tbdicasword (titulo, dica) values ('"&request.form("titulo")&"', '"&request.form("dica")&"')" else %> <form> <p><span class="style1">T&iacute;tulo</span>: <input name="titulo" type="text" id="titulo"> </p> <p class="style2">&nbsp;</p> <p class="style2">Dica: <textarea name="dica" id="dica"></textarea> </p> <p>&nbsp; </p> <input type="hidden" name="gravar"><input type="submit" name="gravar" value="gravar"> </form> <%end if%> Caso tanha mais dúvidas poste ai que te ajudaremos!!! []'s Victor
  2. Victor

    Adicionando Dados

    <% Set Conn=Server.CreateObject("ADODB.Connection") Conn.CursorLocation=3 Conn.open "DRIVER={SQL Server};DATABASE=Intranet;Network=DBMSSOCN;server=server-bd;uid=intraneti;pwd=intranet" Set RS=Server.CreateObject("ADODB.RecordSet") RS.Open sql, Conn If Not(rs.bof AND rs.eof) then For I =RS.recordcount to 1 step -1 rs.absoluteposition=I Next End If %> <% if request.form("acao") <> "" then Conn.execute "insert into tbdicasword (titulo, dica) values ('"&request.form("titulo")&"', '"&request.form("dica")&"')" else %> <form> <p><span class="style1">T&iacute;tulo</span>: <input name="titulo" type="text" id="titulo"> </p> <p class="style2">&nbsp;</p> <p class="style2">Dica: <textarea name="dica" id="dica"></textarea> </p> <p>&nbsp; </p> <input type="hidden" name="gravar"><input type="submit" name="gravar" value="gravar"> </form> <%end if%> Esse pode te ajudar melhor...Caso tenha mais alguma dúvida é só chamar que nós te ajudaremos!!! []'s Victor
  3. Victor

    Mudar Nivel

    <%if request.form("nome_da_checkbox") = "" then response.write "Você não selecionou nenhum" end if%> Saco?
  4. hauhauhauhauhua Tu é mo esperto reyno
  5. o replace se usa assim: request.form(replace("tatara")) Mas pode usar de outro jeito também!!! E acaso as virgulas, não ta dando erro aqui não!!! []'s Victor
  6. Victor

    Help!

    Não entendi o modo de arquivo que você quer
  7. É só você digitar no campo de texto, que ele vai gravar certinho!!! []'s Victor
  8. Victor

    Adicionando Dados

    Depende da sua conexão ao banco de dados, mas se você usar esse pode deixa assim mesmo....Só fecho conexão quando é recordset, porque ele deixa mais lento []'s Victor
  9. Como assim cara, executar somento o sql??
  10. Victor

    Session = Logado

    Você pode fazer por cookies também..Pode ser?? []'s Victor
  11. Victor

    Banner Rotativo

    Sim dark0, ele quer aprender, ai estamos tentando explicar pra ele o maximo
  12. Victor

    Mudar Nivel

    Está respondendo alguma erro?? Se tiver posta o erro ai!!! []'s Victor
  13. Victor

    Form

    Tem como faxer isso em ASP sim, mas não estou lembrado como...Tem um assim No form você coloca method get assim: <form action="pagina" method="get"> Ai vai aparecer isso que voc~e quer, mas não tudo completo!!! []'s Victor
  14. Victor

    Login E Senha...

    Você também pode usar os cookies, ai se o cara fechar a página e abrir denovo estará logado....É isso? []'s Victor
  15. Conseguiu resolver seu problema ai??
  16. Você quer que apareça alguma coisa do banco de dados na pagina...Certo?? []'s Victor
  17. É só você colocar o outro no value também assim: conn.Execute "delete from usuarios where id = " & intDelid & " and id = " intdelid " " Caso tenha mais alguma dúvida, é só chamar que eu estarei a disposição!!! []'s Victor
  18. Victor

    Menu Dinâmico

    Você quer fazer tipo de uma querystring, com os dados que tem no seu banco de dados...Certo?? []'s Victor
  19. Victor

    Adicionando Dados

    É só você usar o conn.execute...Assim: Conn.execute "insert into tabela_bd (nome, email, mensagem) values ('"&request.form("nome")&"', '"&request.form("email")&"', '"&request.form("mensagem")&"')" Caso tenha mais alguma dúvida posta ae, que te ajudaremos!!! []'s Victor
  20. Victor

    Formularios

    Sim mas você também pode fazer tudo na mesma página, ai tem um request.form que vai pegar os dados do cara que vai preencher o formulario, ai já vai enviar para o email!!! Caso tenha mais alguma dúvida posta ae []'s Victor
  21. Victor

    Formularios

    Você pode utilizar isso então: function_email.asp <% function email_cdonts(de_email, para_email, subject, mensagem) Set objmail = Server.CreateObject("CDONTS.NewMail") objmail.mailformat=0 'para enviar html como mensagem objmail.bodyformat=0 'para enviar html como mensagem objmail.from = de_email objmail.to = para_email objmail.subject = subject objmail.body = mensagem objmail.send Set objmail = nothing end function %> envio.asp call email_cdonts (request.form("email"), "email@provedor.com", "assunto", request.form("mensagem"))%> Caso tenha mais alguma dúvida, é só falar que te ajudaremos!!! []'s Victor
×
×
  • Criar Novo...