Ruiva

Junho 30, 2011

mas ela tem...

Junho 30, 2011

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.

Junho 29, 2011

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

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

%>

Junho 8, 2011

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?

Junho 7, 2011

Só pra ver, tentan alterar
"Finalizado" por 'Finalizado'
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...

Junho 6, 2011

Só pra ver, tentan alterar
"Finalizado" por 'Finalizado'

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

Junho 6, 2011

Boa tarde.
Antes de executar o comando SQL, mande exibir na tela para checar como esta o SQL.
Coloca o código aqui

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 ...

Junho 6, 2011

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

<tr>

<td>

<fieldset><legend class="texto_admin">  Filtrar Solicitações Finalizadas:   </legend>

<tr>

<td class="texto_normal">Tipo de Solicitação:</td>

<%

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>

<tr>

<td>

<fieldset><legend class="texto_admin">  Solicitações Finalizadas:   </legend>

<tr>

</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()

Maio 24, 2011

Oi, consegui resolver era exatamente ela que estava com problemas....rsrsrsrs

function passaValor()

{

self.location="cad_solicitacao_suporte.asp?LstSolicitas=" + document.frmSolicita.LstSolicitas.value;

}

Maio 23, 2011

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>

Maio 23, 2011

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

<%

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:

<%

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

%>

</select>

Abril 6, 2011

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...

Março 31, 2011

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:

<%

objRs.MoveNext

wend

%>

</table>

</form>

<tr>

</td>

</tr>

</table>

O que eu preciso é imprimir sem que essa primeira coluna apareça onde está a imagem. alguém me ajuda?

Entrar

Ruiva

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Ruiva

MOVER ARQUIVO

MOVER ARQUIVO

MOVER ARQUIVO

Outro select dando erro

Outro select dando erro

Outro select dando erro

Outro select dando erro

Outro select dando erro

(Resolvido) Erro no Select

Problemas para criar menu!

(Resolvido) Erro no Select

Imprimir tabela

Imprimir tabela

Navegação

Atividades