Ir para conteúdo
Fórum Script Brasil

Ruiva

Membros
  • Total de itens

    13
  • Registro em

  • Última visita

1 Seguidor

Sobre Ruiva

  • Data de Nascimento 16/01/1989

Perfil

  • Gender
    Female
  • Location
    Belo Horizonte

Ruiva's Achievements

0

Reputação

  1. Ruiva

    MOVER ARQUIVO

    mas ela tem...
  2. Ruiva

    MOVER ARQUIVO

    Eu coloquei como você falou porém agora aparece o erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada /Nsconf/alterar_num_proc.asp, line 53 Essa linha 53 é a origem e destino do arquivo.
  3. Ruiva

    MOVER ARQUIVO

    Oi gente, É o seguinte, preciso mover arquivos para pastas específicas mas quando rodo alguns arquivos dão a mensagem de "Arquivo movido com sucesso" porém no final da página aparece o erro: Arquivos movidos com sucesso Arquivos movidos com sucesso Arquivos movidos com sucesso Erro de tempo de execução do Microsoft VBScript erro '800a01b6' O objeto não dá suporte para a propriedade ou método: 'fileObject.MoveFile' /Nsconf/alterar_num_proc.asp, line 55 Vou postar o código completo aki, no início criei as pastas está funcionando perfeitamente, estão todas lá! O problema é ém mover os arquivos de um destino para o outro. código: <% if clsBancoConnection.ConectaBanco() then set objAdoConn = clsBancoConnection.Conexao() strSQL = "select * from movimentacao_processos where anexo <> ''" set objRs = server.createobject("ADODB.Recordset") objRs.open strSQL, clsBancoConnection.Conexao() while not objrs.eof strSQLs = "select * from processo where Cod_processo ="&objrs("Cod_processo") set objRss = server.createobject("ADODB.Recordset") objRss.open strSQLs, clsBancoConnection.Conexao() if not objrss.eof then proc= objrss("Num_processo") end if Set ObjetoArquivo = Server.CreateObject("Scripting.FileSystemObject") Dir ="C:\Inetpub\wwwroot\NSconf\upload\processos"&"\"&proc 'Dir ="e:\home\jcm1\web\nsconf\upload\processos"&"\"&proc if not ObjetoArquivo.FolderExists(Dir) then ObjetoArquivo.CreateFolder(Dir) End If 'ObjetoArquivo.MoveFile "C:\Inetpub\wwwroot\NSconf\upload\"&objrs("anexo"),Dir&"\&" 'ObjetoArquivo.CopyFile("C:\Inetpub\wwwroot\NSconf\upload\"&objrs("anexo")),(Dir&"\&") cod = objrs("anexo") 'Set fso = Server.CreateObject("Scripting.FileSystemObject") If ObjetoArquivo.FileExists("C:\Inetpub\wwwroot\NSconf\upload\"&cod) then Set fileObject = ObjetoArquivo.GetFile("C:\Inetpub\wwwroot\NSconf\upload\"&cod) fileObject.MoveFile(Dir&"/"&cod) Set fso = NothingElse Response.Write "Arquivo Não existe: " & Server.MapPath("upload/"&cod) Response.End End If Response.Write "Arquivos movidos com sucesso"&"<br>" objrs.movenext wend end if %>
  4. Ruiva

    Outro select dando erro

    Deu certo sim \o/...vlwww os campos nulos é porque na verdade a tela tem dois preenchimentos só que em tempos diferentes...ou seja, uma parte fica escondida até a outra ser liberada... você acha melhor trocar os campos nulos assim mesmo? Mesmo que na segunda parte eles sejam de preenchimento obrigatório?
  5. Ruiva

    Outro select dando erro

    Wowwwww...eu ia ficar nisso até amanhã kkkk mas só mais uma dúvida.... ='Finalizado' funciona mas <>'Finalizado' não..porque?? Tentei ...tirei todos os () porém nada acontece... mandei exibir o select na tela e coloquei no access...ele retorna vazia a consulta e quando coloco em modo disign coloco os relacionamentos em propriedade 02 de associação. e quando tento executar dá o erro: A instrução SQL não pôde ser executada porque contém associações externas ambiguas, Para forçar que uma das associações seja executada primeiro, crie uma sonsulta separada que execute a primeira associação e inclua essa consulta na instrução SQL. Porém..não to entendendo o que eu devo fazer...
  6. Ruiva

    Outro select dando erro

    Wowwwww...eu ia ficar nisso até amanhã kkkk mas só mais uma dúvida.... ='Finalizado' funciona mas <>'Finalizado' não..porque??
  7. Ruiva

    Outro select dando erro

    SELECT Solicitacao_suporte.cod_solicitacaosuporte, Solicitacao_suporte.cod_solicitacao, Solicitacao.cod_solicitacao, Solicitacao.des_solicitacao, Solicitacao_suporte.cod_tipo_solicitacao, Tipo_Solicitacao.cod_tipo_solicitacao, Tipo_Solicitacao.des_tipo_solicitacao, Solicitacao_suporte.escritorio, Solicitacao_suporte.us_cadastro, Solicitacao_suporte.email, Solicitacao_suporte.Data_solicitacao, Solicitacao_suporte.obs_suporte, Solicitacao_suporte.prioridade FROM Solicitacao INNER JOIN (Solicitacao_suporte INNER JOIN Tipo_Solicitacao ON Solicitacao_suporte.cod_tipo_solicitacao = Tipo_Solicitacao.cod_tipo_solicitacao) ON Solicitacao.cod_solicitacao = Solicitacao_suporte.cod_solicitacao WHERE (((Solicitacao_suporte.cod_tipo_solicitacao)=11)) ORDER BY Solicitacao_suporte.prioridade Esse é o código ...mudei a parte em negrito porque realmente eu precisava passar o código senão a filtragem não funcionaria porém eu preciso colocar um AND no WHERE porque eu quero selecionar além dakelas que tem o cod_tipo_solicitação = 11 mas as que também são "Finalizadas" igual estava em negrito no primeiro tópico... porém o AND não funciona e dá o mesmo erro ... fim de instrução esperado e sem ele funciona mas não filtra as finalizadas ...
  8. Ruiva

    Outro select dando erro

    Gente tem o código abaixo que filtra o tipo de solicitação no primeiro select (funciona perfeitamente) porém no segundo select ele funciona no Access mas não funciona na hora que coloco no dreamweaver..erro: Fim de instrução esperado na linha que vou grifar se alguém puder ajudar THANKS <table width="71%" border="0" align="center"> <tr> <td> <fieldset><legend class="texto_admin">&nbsp;&nbsp;Filtrar Solicitações Finalizadas: &nbsp;&nbsp;</legend> <table width="100%" border="0"> <tr> <td class="texto_normal">Tipo de Solicitação:</td> <td colspan="3"> <select name="LstEquipes" class="frmInputText" id="LstEquipes" tabindex="2" onChange="passarValor()"> <option>---------------------------------------------------</option> <% if clsBancoConnection.ConectaBanco() then set objAdoConn = clsBancoConnection.Conexao() strSQLx = " SELECT Tipo_Solicitacao.cod_tipo_solicitacao, Tipo_Solicitacao.des_tipo_solicitacao" função passarvalor: function passarValor() { self.location="Relatorio_finalizadas.asp?LstEquipes=" + document.frmBusca.LstEquipes.value; } strSQLx = strSQLx & " FROM Tipo_Solicitacao" strSQLx = strSQLx & " ORDER BY Tipo_Solicitacao.des_tipo_solicitacao" set objRsx = server.CreateObject("ADODB.Recordset") objRsx.open strSQLx, clsBancoConnection.Conexao() while not objRsx.eof response.write "<option value=" & objRsx("cod_tipo_solicitacao")& "" & iif(cint(objRsx("cod_tipo_solicitacao")) = cint(request("LstEquipe"))," selected", "")& ">" & objRsx("des_tipo_solicitacao") objRsx.movenext wend objRsx.close end if %> </select> </td> </tr> </table> </fieldset> </td> </tr> </table> <table width="71%" border="0" align="center"> <tr> <td> <fieldset><legend class="texto_admin">&nbsp;&nbsp;Solicitações Finalizadas: &nbsp;&nbsp;</legend> <table width=100% border=0 align=center cellpadding="0" cellspacing="2" bordercolor="#CCCCCC"> <tr> <td><br></td> </tr> <% if clsBancoConnection.ConectaBanco() then strSQL = "SELECT Solicitacao_suporte.cod_solicitacaosuporte, Solicitacao_suporte.Des_status, Solicitacao_suporte.cod_solicitacao, Solicitacao.cod_solicitacao, Solicitacao.des_solicitacao, Solicitacao_suporte.cod_tipo_solicitacao, Tipo_Solicitacao.cod_tipo_solicitacao, Tipo_Solicitacao.des_tipo_solicitacao, Solicitacao_suporte.escritorio, Solicitacao_suporte.us_cadastro, Solicitacao_suporte.email, Solicitacao_suporte.Data_solicitacao, Solicitacao_suporte.obs_suporte, Solicitacao_suporte.prioridade" strSQL = strSQL & " FROM Solicitacao INNER JOIN (Solicitacao_suporte INNER JOIN Tipo_Solicitacao ON Solicitacao_suporte.cod_tipo_solicitacao = Tipo_Solicitacao.cod_tipo_solicitacao) ON Solicitacao.cod_solicitacao = Solicitacao_suporte.cod_solicitacao" strSQL = strSQL & " WHERE ((Solicitacao_suporte.Des_status)="Finalizado")" strSQL = strSQL & " ORDER BY Solicitacao_suporte.prioridade" 'response.Write(strSQL) 'response.End()
  9. Ruiva

    (Resolvido) Erro no Select

    Oi, consegui resolver era exatamente ela que estava com problemas....rsrsrsrs function passaValor() { self.location="cad_solicitacao_suporte.asp?LstSolicitas=" + document.frmSolicita.LstSolicitas.value; }
  10. Oi tenta isso: <style type="text/css"> <!-- body { padding:0px; margin:0px; } #menu ul { padding:1px; margin:1px; float: left; background-color:#EEE8AA; } #menu ul li { display: inline; } #menu ul li a { background-color:#EEE8AA; color: #000000; text-decoration: none; padding: 2px 10px; float:left; } #menu ul li a:hover { background-color:#696969; color: #FFFFFF; } --> </style> </head> <body> <div id="menu"> <ul> <table border="1"> <tr> <td><li><a href="NOME DO LINK.html" target="url">Upload de midia</a></li></td> <td><li><a href="NOME DO LINK.html" target="url">&nbsp;&nbsp;Inscrever-se&nbsp;&nbsp;</a></td> <td><li><a href="NOME DO LINK.html" target="url">&nbsp;&nbsp;Ferramentas&nbsp;&nbsp;</a></li></td> <td><li><a href="NOME DO LINK.html" target="url">&nbsp;&nbsp;Minhas Imagens&nbsp;&nbsp;</a></li> </td> </tr> </table> </ul> </div>
  11. Boa tarde gente, Estou com o seguinte problema. Estou fazendo um requerimento de solicitações (tipo dela e solicitação em si). Quando clico no dropdown de tipo de solicitação ele tem que fazer com que as solicitações daquele tipo sejam vistas em outro dropdown. Porém o que eu fiz não dá erro mas não aparece nada no dropdown. Ex: primeiro dropdown (tipo de solicitacao): Sistema Interno Informatica (vamos supor que marquei esse) segundo dropdown (solicitacao em si referente ao tipo de solicitacao marcado anteriormente): peças formatação sistemas operacionais (teriam q aparecer todas estas solicitações) o código que estou usando segue abaixo: o primeiro funciona que é do primeiro dropdown <select name="LstSolicitas" class="frmInputText" id="LstSolicitas" onChange="passaValor()" > <option>---------------------------------------------------</option> <% if clsBancoConnection.ConectaBanco() then set objAdoConn = clsBancoConnection.Conexao() strSQLx = " SELECT Tipo_Solicitacao.cod_tipo_solicitacao, Tipo_Solicitacao.des_tipo_solicitacao" strSQLx = strSQLx & " FROM Tipo_Solicitacao" strSQLx = strSQLx & " ORDER BY Tipo_Solicitacao.des_tipo_solicitacao" set objRsx = server.CreateObject("ADODB.Recordset") objRsx.open strSQLx, clsBancoConnection.Conexao() while not objRsx.eof response.write "<option value=" & objRsx("cod_tipo_solicitacao")& "" & iif(cint(objRsx("cod_tipo_solicitacao")) = cint(request("Solicitacao"))," selected", "")& ">" & objRsx("des_tipo_solicitacao") objRsx.movenext wend objRsx.close end if %> </select> mas o segundo não funciona: <select name="LstSolicita" class="frmInputText" id="LstSolicita"> <option>---------------------------------------------------</option> <% if clsBancoConnection.ConectaBanco() then if request("Solicitacao") <> "" then strSQL = "SELECT Solicitacao.cod_solicitacao, Solicitacao.cod_tipo_solicitacao, Solicitacao.des_solicitacao, Tipo_Solicitacao.des_tipo_solicitacao, Tipo_Solicitacao.cod_tipo_solicitacao" strSQL = strSQL & " FROM Tipo_Solicitacao LEFT JOIN Solicitacao ON Tipo_Solicitacao.cod_tipo_solicitacao = Solicitacao.cod_tipo_solicitacao" strSQL = strSQL & " WHERE (((Solicitacao.cod_tipo_solicitacao)="&request("Solicitacao")&"))" strSQL = strSQL & " ORDER BY Solicitacao.des_solicitacao" 'response.Write(strSQL) 'response.End() set objRs = server.createobject("ADODB.Recordset") objRs.open strSQL, clsBancoConnection.Conexao() while not objRs.eof response.write "<option value=" & objRs("cod_solicitacao")& "" & iif(cint(objRs("cod_solicitacao")) = cint(request(Solicitacao))," selected", "")& ">" & objRs("des_solicitacao") objRs.movenext wend objRs.close end if end if %> </select>
  12. Ruiva

    Imprimir tabela

    Certo, Eu teria que chamar essa div em um botão, ou seja, ele teria q mostrar na tela com o display funcionando normal e somente quando clicar em um botão ele sumir...
  13. Ruiva

    Imprimir tabela

    Olá pessoal, Estou iniciando agora e preciso da ajuda de vocês..é o seguinte: Criei um relatório de processo dentro de uma tabela HTML e preciso imprimir essa tabela porém usando a função print() eu consigo imprimir ela inteira mas eu quero imprimir essa tabela sem a primeira <td> nela está um cursor que redireciona para a pagina do processo. Segue uma parte do código para facilitar: <td colspan="3" align="center" class="frmTD" id="mais" ><img src="images/oui_16.gif" alt="Visualizar" id="imagem" style="cursor:pointer" onClick="atualiza('<%=objRs("Num_processo")%>',<%=objRs("Cod_processo")%>)"></td> <td colspan="3" class="tabela"> <%=objrs("Num_processo")%> </td> <td colspan="9" class="tabela"> <%=objrs("Razao_social")%> </td> <td colspan="9" class="tabela"> <%=objrs("Tipo_acao")%> </td> <td colspan="9" class="tabela"> <%=objrs("Tipo_objeto")%> </td> <td colspan="9" class="tabela"> <%=Descricao%> </td></tr> <% objRs.MoveNext wend %> </table> </form> <br><br><br> <table width="55%" border="0" align="center" id="divMenu"> <tr> <td align="center"> <input type="button" value="Impressao" onClick="print()" class="botao2" > <input name="button" type="button" class="botao2" onClick="default.asp" value="Voltar" > </td> </tr> </table> O que eu preciso é imprimir sem que essa primeira coluna apareça onde está a imagem. alguém me ajuda?
×
×
  • Criar Novo...