wvrosario
-
Total de itens
36 -
Registro em
-
Última visita
Tudo que wvrosario postou
-
Segue o código! <% escolha = Request("vMD") arrDados = Split(escolha, ",") For w = LBound(arrDados) To UBound(arrDados) objet = Trim(arrDados(w)) %> <tr> <td width="105" style="border-style: solid; border-width: 1px"> <% response.write lista_obj_exc(objet,Project,Typ,SubTyp,Nam,Hide) response.write type_subtype(Typ,SubTyp) %> </td> <td width="237" style="border-style: solid; border-width: 1px"> <%response.write(Nam)%></td> <td width="97" style="border-style: solid; border-width: 1px"> <select size="1" name="propriedade" disabled> <option value=""></option> <option value="N/A" <%If ( Hide = "0" ) Then %> Selected <% End If %> >Falso</option> <option value="Hidden" <%If ( Hide = "1" ) Then %> Selected <% End If %> >Verdadeiro</option> </select> </td> <td width="108" style="border-style: solid; border-width: 1px"> <select size="1" name="acao"> <option value="0"></option> <option value="1">Alteração</option> <option value="2">Exclusão</option> <option value="3">Inclusão</option> <option value="<%result_acao = 4%>">Movimentação</option> </select> </td> <td width="156" style="border-style: solid; border-width: 1px"> <% response.write Caminho_Pasta(objet,Pro,Camin) response.write(Camin) %> </td> <td width="148" style="border-style: solid; border-width: 1px"> <% Response.Write(Camin) %> </td> </tr> <% Camin = "" Next %>
-
Consegiu resolver este problema? estou com o mesmo
-
fercosmig muito obrigado pela ajuda, mais ainda não consegui arrumar meu problema Deixa eu tentar explicar melhor... É o seguinte um preciso pegar esse valor separado unicamente... ex... MeuArray = [ 1,2,3,4,5,6,7] como eu Preciso MeuArray = [1] porque esse valor do array eu vou enviar para um "select * from tabela where campo = ' "& MeuArray[1] & "'" na proxima vez "select * from tabela where campo = ' "& MeuArray[2] & "'" e assim por diante...até terminar o MeuArray tem como?? Consegui arrumar este problema... Valeu...
-
tenho esse codigo abaixo e não estou conseguindo colocar o mesmo para funcionar... alguém pode me ajudar? <% Dim x y = 10 %> <script language="JavaScript"> <!-- function mostra_combo() { var quantidade = "<%=y%>" for (var i=0;i<=quantidade;i++) { if (acao.selectedIndex == 4) { movimentacao.style.visibility[i] = "visible" } else { movimentacao.style.visibility[i] = "hidden" } } } //--> </script> <body marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" > <%For x= 0 to 10 %> <select size="1" name="acao" onclick="mostra_combo();"> <option value=""></option> <option value="1">Alteração</option> <option value="2">Exclusão</option> <option value="3">Inclusão</option> <option value="4">Movimentação</option> </select> <input type="text" name="movimentacao" size="20" style='visibility: hidden;' > <br> <%Next%> <br> Abs, William
-
fercosmig muito obrigado pela ajuda, mais ainda não consegui arrumar meu problema Deixa eu tentar explicar melhor... É o seguinte um preciso pegar esse valor separado unicamente... ex... MeuArray = [ 1,2,3,4,5,6,7] como eu Preciso MeuArray = [1] porque esse valor do array eu vou enviar para um "select * from tabela where campo = ' "& MeuArray[1] & "'" na proxima vez "select * from tabela where campo = ' "& MeuArray[2] & "'" e assim por diante...até terminar o MeuArray tem como??
-
fercosmig, Tenho que fazer isso dinamicamente... pois não sei a quantidade de registro que podem ser enviados pelo o usuário... tem como?? no meu código acima ele não respeita o for.. Att, William
-
Tenho esse código ae... é o request me retorna valores... só que preciso pegar somente um valor de cada vez não como ele tá vindo... Ex. ele fica assim depois do tratamento objet = 1,2,3,4,5,6,7,8 eu preciso assim objet = 1 objet = 2 objet = 3 <% escolha = Request("vMD") arrDados = Split(escolha, ",") For w = LBound(arrDados) To UBound(arrDados) objet = Trim(arrDados(w)) %> <tr> <td width="105" style="border-style: solid; border-width: 1px"> <% response.write lista_obj_exc(objet,Project,Typ,SubTyp,Nam,Hide) response.write type_subtype(Typ,SubTyp) %> </td> <td width="237" style="border-style: solid; border-width: 1px"> <%response.write(objet)%></td> <td width="97" style="border-style: solid; border-width: 1px"> <p align="center"> <select size="1" name="propriedade"> <option value=""></option> <option value="N/A">Falso</option> <option value="Hidden">Verdadeiro</option> </select></td> <td width="108" style="border-style: solid; border-width: 1px"> <p align="center"> <select size="1" name="acao"> <option value=""></option> <option value="Alteração">Alteração</option> <option value="Exclusão">Exclusão</option> <option value="Inclusão">Inclusão</option> <option value="Movimentação">Movimentação</option> </select></td> <td width="156" style="border-style: solid; border-width: 1px"> <% 'response.write Caminho_Pasta(objet,Project,Camin) response.write(Camin) %> </td> <td width="169" style="border-style: solid; border-width: 1px"> <% response.write(Camin) %> </td> </tr> <% Next %> Valeus, William
-
Galera, Tenho uma página asp que gera uma lista de objetos , está lista contém algumas informações. ex. Nome, Endereço , Tel e etc.... isso é listado numa tabela ... então o cara pode escolher quais nomes ele deseja somente ver.... ex.. joão , rua xx , 1234 maria , rua xy , 1234 joana, rua xyz, 12345 vamos supor que ele queria somente ver os registro ( joana e maria ) então ele escolhe o checkbox correspondente aos dois registros .. e clica no botão enviar... na próxima página eu só vou poder mostrar para usuário os dois registro selecionados... como faço isso?? Abs, William
-
Andreia, O problema e que esse seu código está tirando pedaços necessários do meu código... Você já fez alguma paginação que você não tem a quantidades de registro em linhas, mais sem em um campo especifico?? Esse seria o normalz... Para saber a qtde de pessoas cadastradas no BANCO Ex. Nome: William Sexo: M Andreia F No meu caso está assim, para saber a mesma informação Ex. QTDE_PESSOAS = 2 eu não tenho listado a quantidade ... e sim um número fixo. agradeço a ajuda.. e testarei mais algumas coisas com o seu script.. qualquer coisa eu vou mudar o tipo de minha modelagem para fazer utilizar o seu script.. se você quiser me ajudar mais posso te mandar os arquivos... (*.asp e o BD) para você melhor entender... Abs. William
-
Galera, Não consigo colocar paginação neste código, já peguei alguns exemplos desse site mais mesmo assim ainda não consegui colocar, será te alguém pode me ajudar??? Para dar uma ajuda vou dizer o que cada campo do select retorna. DT_ULTIM = DATA DO EVENTO DS_NULTI = DESCRIÇÃO DO EVENTO DS_PASTA = AONDE AS FOTOS SE ENCONTRAM DS_QTFOT = QUANTIDADE DE FOTOS ARMAZENADAS NA PASTA CD_ULTIM = CÓDIGO DO EVENTO <% Option Explicit Dim BD Dim SQL Dim ULTIM Dim rs Dim conn Dim N_FTS,QTDE,X,Y,T ULTIM = CInt(Request.QueryString("CD_ULTIM")) set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../banco/banco.mdb") set rs = createobject("adodb.recordset") set rs.activeconnection = conn sql = "SELECT DT_ULTIM,DS_NULTI,DS_PASTA,DS_QTFOT,CD_ULTIM FROM ULTIMAS WHERE TP_ULTIM = 'F' AND CD_ULTIM = " & ULTIM rs.open sql %> <html> <head> <body marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" > </head> <table cellspacing="0" cellpadding="0" border="0" width="449"> <tr valign="top"> <td width="449"> <table cellpadding="4" border="0" width="449" > <tr> <td valign="top" width="437" bgcolor="#D2DCEB"> <table width="437" height="443" border="0" cellspacing="0" bgcolor="#D2DCEB" id="table5"> <tr align="center" style="font-family: tahoma, verdana; font-size: 12px; color: black"> <td width="98%" height="443" valign="middle" style="font-family: tahoma, verdana; font-size: 12px; color: black"> <!-- aqui comeca a exibir a imagem // --> <p align="center"> <b><%=Day(rs("DT_ULTIM")) & "/" & Month(rs("DT_ULTIM")) & "/" & Year(rs("DT_ULTIM"))%> - <%=RS.FIELDS("DS_NULTI")%></b><br> </p> <table border="0" width="40%" id="table1"> <%N_FTS = 1%> <%QTDE = RS.FIELDS("DS_QTFOT")%> <%DO WHILE QTDE >= N_FTS%> <%FOR X = 1 TO 4%> <tr> <%IF (QTDE >= N_FTS) THEN%> <%FOR Y = 1 TO 4%> <td> <%IF (QTDE >= N_FTS) THEN%> <%IF (N_FTS < 10) THEN T = "00" & N_FTS ELSE IF (N_FTS < 100) THEN T = "0" & N_FTS ELSE T = N_FTS END IF END IF%> <%N_FTS = N_FTS + 1%> <p align="center"><a href="javascript:void('');" onClick="imagemVar='<%=(RS.FIELDS("DS_PASTA") & CStr(T) & ".jpg")%>'; tituloVar='<%=rs.fields("DS_NULTI")%>'; precarrega();" style="text-decoration: none; color: black"> <img src ="<%=(RS.FIELDS("DS_PASTA") & "MINIATURAS/" & CStr(T) & ".jpg")%>" width="100" height="81" border="0"></a> <%=T%><br></p> <%END IF%> </td> <%NEXT%> <%END IF%> </tr> <%NEXT%> <%LOOP%> </table> <!-- aqui termina a exibir a imagem // --> <% rs.close conn.close set rs = nothing set conn = nothing %> </body> </html> Abs, William Rosário