Ir para conteúdo
Fórum Script Brasil

dark0

Membros
  • Total de itens

    6.198
  • Registro em

  • Última visita

Posts postados por dark0

  1. opa.. beleza?

    tipow

    faz assim:

    <%
    Dim nome
    Dim email
    Dim strSQL
    Dim rsInsere
    
    nome = Request.Form("nome")
    email = Request.Form("email")
    
    url_conexao = Server.MapPath("banco.mdb")
    set conexao = Server.CreateObject("ADODB.Connection")
    conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
    
    strSQL = "INSERT INTO aula (nome, email) VALUES ('"&nome&"','"&email&"')"
    Set rsInsere = conexao.Execute(strSQL)
    
    response.write "<script>"
    response.write "window.location='obrigado.htm'"
    response.write "</script>"
    
    %>

    Para você saber:

    Eu alterei sua conexao.. e o modo de redirecionamento (usando javascript)

    Testa ae..

  2. você não tentou mudar seu modo de conexao?

    esse modo que você usa, eu acho mais complicado que o normal..

    tenta esse..

    url_conexao = Server.MapPath("boletim/fish.mdb")
    set conexao = Server.CreateObject("ADODB.Connection")
    conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
    sql = "select * from coment"
    set rs = conexao.execute(sql) 
    e depois:
    if rs.oef=true then
      response.redirect "erro.asp"
    end if
    
    Do while NOT rs.EOF
    Response.write rs("nome") & rs("email") & "<br>"
    rs.MoveNext
    Loop

  3. opa..

    veja:

    conecta no banco:

    url_conexao = Server.MapPath("fish.mdb")
    set conexao = Server.CreateObject("ADODB.Connection")
    conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
    
    seleciona os dados:
    sql = "select * from coment"
    set rs = conexao.execute(sql)
    testa se a tabela do banco ta vazia
    if rs.oef=true then
       response.redirect "erro.asp"
    end if
    acima.. veja que esta: se rs.eof (rs.fim) ou seja, se chegar no final da tabela, significa que esta vazia.. então, vai para o erro.. agora faz um LOOP, para mostrar todos os dados:
    do while not rs.eof
        response.write rs("campo_tabela_banco")
        response.write "<br>"
    rs.movenext
    loop

    teste... e veja como funciona..

    abraços..

  4. cara..

    faz um teste simples..

    cria uma pagina assim:

    pagina.asp

    <%
    url_conexao = Server.MapPath("banco.mdb")
    set conexao = Server.CreateObject("ADODB.Connection")
    conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
    
    sql = "insert into tabela (campo1) values ('teste')"
    set rs = conexao.execute(sql)
    
    response.write "ok, gravou"
    %>

    cria um banco do acess com o nome banco, e uma tabela.. executa e testa..

    isso é o mais simples.. se não rodar... tenta reinstalar seu servidor web..

  5. Bom Dia.

    Amigo, vamos começar assim:

    Se você estiver usando o Windows 98/ME:

    Pegue seu CD do Windows, abra a pasta ADDONS, e procure uma pasta PWS.

    instale o aplicativo, e pronto.. seu servidor asp estara funcionando..

    Se você estiver usando Windows 2000/XP:

    Pegue o cd do Windows, vá para Painel de Controle, Adicionar ou Remover Programas, Adicionar Componentes do Windows, Marque IIS, e dê Avançar.. espere acabar o processo de instalação e pronto..

    Em ambos os casos, para compartilhar uma pasta no servidor, clique com o Direito nela, e clique em Propriedades. Clique na Guia Compartilhamento da Web, e crie seu ALIAS.

    Abraços..

  6. opa

    beleza?

    tipo assim...

    O Windows XP, assim como a maioria dos Windows, já tem um utilitário para compartilhar a Internet.

    No XP, faça assim:

    clique no menu Iniciar, Configurações, Conexoes de rede.

    Vai se abrir uma janela, com suas conexoes de rede.

    Aqui, você dá dois cliques na sua conexao de rede local, vá em propriedades.

    Clique na guia Avançado, e marque.. Permitir que outros usuarios da rede...

    teste aí..

  7. opa

    nem eskenta kara

    eu tb já fui iniciante.. hehe

    faz assim:

    isso aqui é só pra teste (eu costumo fazer isso, quando encontro erros)

    seu codigo, no inicio tem:

    <%

    dim db, rs

    dim varcod

    varcod = request.form("cpf")

    aqui, você coloca:

    response.write varcod

    response.end

    depois manda executar, e vamos ver o que ele escreve na tela..

    deveria escrever o cpf do cara..

    se escrever, beleza... ae o problema é outro, que vemos depois

    se não mostrar nada, aí o problema é esse.. a variavel vem vazia..

  8. opa

    olha..

    para o linux "enchergar" maquinas windows, você deve instalar um pacote especifico para isso (que não lembro o nome agora), mas é algo como: smbclient ...

    de uma pesquisada sobre isso... pois é com ele que você vai comunicar linux com windows...

  9. hum.,.

    depende para que você quer o 98..

    Eu instalei aqui um Software muito BOM, o VM-WARE 4.0.

    Esse Software permite a instalação de Multiplos Sistemas Operacionais, um em cima do outro. ou seja, você nem precisa reiniciar o micro pra rodar o que você quiser.

    eu tenho instalado aqui, o Windows XP PRO. E Dentro dele: 98, ME, 2000, Conectiva 8, Novel 4.

    E Funciona numa boa.. só usa a memória RAM. Eu tenho 256 de ram, e roda que é uma beleza!

    procure no google, ou no superdownloads, que você acha..

    abraços

  10. opa..

    eu uso o FP 2003..

    e na boa..

    ele é o melhor de todas as versões...

    tem bastante recursos de script e tal, bem bacana..

    ele não está no cd do Office 2003 não, você deve pegar um cd específico do Front Page 2003.

    O único problema dele, é que não roda em win98/me, pois ele exige no mínimo Windows 2000, ou o XP, ou 2003, etc..

    eu baixei os cds do Office 2003, e FP2003 da Net mesmo..

    abraços

  11. Hum..

    não entendi, mas vamos lá..

    1º: para a mesma pagina?

    No action, defina para ele executar a mesma pagina, depois, no começo dela, você coloca:

    if request.form("seu_botao_de_submit") <> "" then

    faz suas ações...

    dentro desse mesmo if, você chama a outra pagina..

    pode ser:

    - response.redirect "pagina.asp" 'mas não pode ter sido escrito nada na pagina

    ou:

    response.write "<script>"

    response.write "window.location='pagina.asp'"

    response.write "</script>"

    esse segundo modo, usa javascript.. e funciona beleza..

    depois, você coloca o end if e pronto..

    abaixo o resto do codigo..

    abraços..

×
×
  • Criar Novo...