Ir para conteúdo
Fórum Script Brasil

fantasma

Membros
  • Total de itens

    901
  • Registro em

  • Última visita

Tudo que fantasma postou

  1. fantasma

    Excluir Dados

    ve isso se realmente a variavel esta chegando titulo=request.querystring("titulo") response.write titulo
  2. fantasma

    Não Limpar Combo

    tenta ai falouuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu <% data_source = "DRIVER={MySQL ODBC 3.51 Driver}; Server=mysqlhost; Port=3306; Option=0; Socket=; Stmt=; Database=banco; Uid=usuario; Pwd=senha;" Set con = Server.CreateObject("ADODB.Connection") con.cursorlocation = 3 con.Open data_source Response.Buffer = False cidade = request.querystring("cidade") sql = "select * from centrais order by cidade" set rs = con.execute(sql) %> <html> <head></head> <body> <form name="form1" method="post"> <select name="cidade" onchange="window.navigate('teste.asp?cidade='+form1.cidade.value)"> <option value="SELECIONE">Selecione o cidade</option> <% If Not RS.EOF Then While Not RS.EOF Response.Write "<OPTION VALUE='" & RS("cidade") & "'" If Request("cidade") = RS("cidade") Then Response.Write " selected" Response.Write ">" & RS("cidade") & "</OPTION>" RS.MoveNext Wend End If %> </select> <% if cidade = "" then %> <select name="NomedoFuncionario"> <option value="SELECIONE">Selecione a NomedoFuncionario</option> </select> <% else sqlcid = "select * from cadastro_funcionarios_centrais WHERE central2 = '" &estado& "'" set rs1 = con.execute(sqlcid) %> <select name="NomedoFuncionario"> <option value="SELECIONE">Selecione a NomedoFuncionario</option> <% while not rs1.eof %> <option value="<%=rs1("NomedoFuncionario")%>"> <%=rs1("NomedoFuncionario")%> </option> <% rs1.movenext wend %> </select> <% end if %> </form>
  3. fantasma

    Não Limpar Combo

    Estou testando o cod assim que estiver um novidade te aviso
  4. fantasma

    Excluir Dados

    você pode postar o cod inteiro
  5. fantasma

    Excluir Dados

    se for via link você tem que usar id=request.querystring("id")
  6. fantasma

    Não Limpar Combo

    de uma olhada neste cod <html> <HEAD> <script LANGUAGE="JavaScript"> <!-- Begin var arrItems1 = new Array(); var arrItemsGrp1 = new Array(); <!--*****************Itens que serão carregados no 2º combobox*******************--> arrItems1[3] = "Arroz"; arrItemsGrp1[3] = 1; arrItems1[9] = "Trigo"; arrItemsGrp1[9] = 1; arrItems1[4] = "Caderno"; arrItemsGrp1[4] = 2; arrItems1[5] = "Lapis"; arrItemsGrp1[5] = 2; arrItems1[8] = "Caneta"; arrItemsGrp1[8] = 2; arrItems1[6] = "Borracha"; arrItemsGrp1[6] = 2; arrItems1[7] = "Apagador"; arrItemsGrp1[7] = 2; arrItems1[0] = "Refrigerante"; arrItemsGrp1[0] = 3; arrItems1[1] = "Sucos"; arrItemsGrp1[1] = 3; arrItems1[2] = "Cervejas"; arrItemsGrp1[2] = 3; <!--*****************Itens que serão carregados no 3º combobox*******************--> var arrItems2 = new Array(); var arrItemsGrp2 = new Array(); arrItems2[21] = "Coca Cola"; arrItemsGrp2[21] = 0 arrItems2[22] = "Dolly"; arrItemsGrp2[22] = 0 arrItems2[31] = "Tang"; arrItemsGrp2[31] = 1 arrItems2[34] = "Maguary"; arrItemsGrp2[34] = 1 arrItems2[35] = "Schim"; arrItemsGrp2[35] = 2 arrItems2[36] = "Bavaria"; arrItemsGrp2[36] = 2 arrItems2[37] = "Brahma"; arrItemsGrp2[37] = 2 arrItems2[38] = "Scholl"; arrItemsGrp2[38] = 2 arrItems2[99] = "Preto HB2"; arrItemsGrp2[99] = 5 arrItems2[100] = "Preto HB5"; arrItemsGrp2[100] = 5 arrItems2[57] = "Cinza HB7"; arrItemsGrp2[57] = 5 arrItems2[101] = "Tio João"; arrItemsGrp2[101] = 3 arrItems2[102] = "Solito"; arrItemsGrp2[102] = 3 arrItems2[190] = "Candeias"; arrItemsGrp2[190] = 3 arrItems2[103] = "Universitário 100pg"; arrItemsGrp2[103] = 4 arrItems2[104] = "Universitário 200pg"; arrItemsGrp2[104] = 4 arrItems2[105] = "Faber Castel"; arrItemsGrp2[105] = 6 arrItems2[106] = "Lond red"; arrItemsGrp2[106] = 6 arrItems2[200] = "Quadro Branco"; arrItemsGrp2[200] = 7 arrItems2[201] = "Quadro Negro"; arrItemsGrp2[201] = 7 arrItems2[470] = "Kilometrica"; arrItemsGrp2[470] = 8 arrItems2[471] = "BIC"; arrItemsGrp2[471] = 8 arrItems2[352] = "Dona Benta"; arrItemsGrp2[352] = 9 arrItems2[353] = "Trigo Vaz"; arrItemsGrp2[353] = 9 <!--*****************Itens que serão carregados no 3º combobox*******************--> function selectChange(control, controlToPopulate, ItemArray, GroupArray) { var myEle ; var x ; // Empty the second drop down box of any choices for (var q=controlToPopulate.options.length;q>=0;q--) controlToPopulate.options[q]=null; if (control.name == "PRIMEIRO") { // Empty the third drop down box of any choices for (var q=myChoices.TERCEIRO.options.length;q>=0;q--) myChoices.TERCEIRO.options[q] = null; } // ADD Default Choice - in case there are no values myEle = document.createElement("option") ; myEle.value = 0 ; myEle.text = "SELECIONE" ; controlToPopulate.add(myEle) ; // Now loop through the array of individual items // Any containing the same child id are added to // the second dropdown box for ( x = 0 ; x < ItemArray.length ; x++ ) { if ( GroupArray[x] == control.value ) { myEle = document.createElement("option") ; myEle.value = x ; myEle.text = ItemArray[x] ; controlToPopulate.add(myEle) ; } } } // End --> </script> </HEAD> <BODY> <form name=myChoices> <table align="center"> <tr> <td> <SELECT id=PRIMEIRO name=PRIMEIRO onchange="selectChange(this, myChoices.SEGUNDO, arrItems1, arrItemsGrp1);"> <option value=0 SELECTED>Selecione</option> <option value=1>Alimentos</option> <option value=2>Bazar</option> <option value=3>Bebidas</option> <option value=4>Eletronicos</option> </SELECT> </TD><TD> <SELECT id=SEGUNDO name=SEGUNDO onchange="selectChange(this, myChoices.TERCEIRO, arrItems2, arrItemsGrp2);"></SELECT> <SELECT id=TERCEIRO name=TERCEIRO ></SELECT> </TD> </TR> </TABLE> </form> </html> Vou verif em asp o problema
  7. fantasma

    Win 98

    quero alterar proteção de tela atraves de arquivo.bat e tb bloquear a alteração da proteção de tela tem jeito
  8. tenta assimm MsgBody = "<font color=blue size=3>AAAAAAAAA:</font>"& Request.Form("teste") &"<br></body></html>" Ai você vai substituir pelos seus names
  9. fantasma

    Win 98

    quero alterar proteção de tela atraves de arquivo.bat e tb bloquear a alteração da proteção de tela tem jeito
  10. fantasma

    Socorro -> Help Me

    aqui neste link tb tem varios tipos de conexões http://www.connectionstrings.com/
  11. fantasma

    Socorro -> Help Me

    <% Dim lojaDB,db_path db_path = Server.MapPath("noticias.mdb") set lojaDB = Server.CreateObject("ADODB.Connection") lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_path lojaDB.open %> tenta usar assim e tb entra em contato com o provedor parra verificar permissão de pasta
  12. fantasma

    Socorro -> Help Me

    Qual o nome do diretorio onde esta o banco
  13. Criar a conexão e fazer o select eu já fiz isso e funcionou
  14. fantasma

    Contagem De Cadastros

    você vai verificar a data se for igual acrescenta +1 e verifica a area acrecentando tb +1 se não entendeu informe que passarei o cod
  15. De uma olhada neste link http://www.superasp.com.br/conteudo/artigos/artigo_350.asp vê se te ajuda
  16. fantasma

    Iis - Falha Ao Conectar

    você já tentou reiniciar ele.
  17. você que esta criando a pagina do outro link tb
  18. fantasma

    Btree

    você tera que utilizar um select e os campos que você quer agora referente a colocar embaixo de um link da empresa mão não entendi pode explicar melhor
  19. fantasma

    Iis

    faça a reinstalação configurando outra porta e ve se da algum problema
  20. fantasma

    Iis

    você digitou o comando no prompt, qual foi o resultado? você utiliza o programa chamado skype, ele pode dar problema tb.(apenas um aviso) porta pode ser 81
  21. fantasma

    Iis

    No prompt de comandos digite NETSTAT -A e verifique qual o outro processo que deve estar usando a porta 80. Pare o processo pelo gerenciador de tarefas ou configure no IIS para ele usar outra porta que não seja a 80.
  22. fantasma

    Problemão

    faz o seguinte function FORMULA(va,parc,tax) if tax <> 0 then tax = (tax/100) FORMULA = va*(tax*(1+tax)^parc)/((1+tax)^parc-1) FORMULA = formatNumber(FORMULA,0) FORMULA = FORMULA &".00" elseif tax= 0 then Response.Redirect "pagina.asp" end if END function na pagina.asp colocar qualquer coisa para dar um resposta que não pode dividir por zero tenta ai
  23. fantasma

    Problemão

    tenta assim function FORMULA(va,parc,tax) if tax <> 0 then tax = (tax/100) FORMULA = va*(tax*(1+tax)^parc)/((1+tax)^parc-1) FORMULA = formatNumber(FORMULA,0) FORMULA = FORMULA &".00" elseif tax= 0 then FORMULA = (va/parc) FORMULA = formatNumber(FORMULA,0) FORMULA = FORMULA &".00" end if END function
×
×
  • Criar Novo...