Fórum Contato
  
   O portal do desenvolvedor ASP Segunda-feira - 14 de Junho de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Busca de arquivo Atualizado em 25/02/2010 ás 16:53:00

Postado em 25/02/2010 ás 16:53:00

Olá meus caros, estou precisando de uma ajuda de vocês.


Por favor, estou com problemas em um script para o retorno de arquivos, que seria basicamente o seguinte, no sistema existem duas datas base (09/2009 e 12/2009), o usuário seleciona uma delas através de uma Combo Box e os respectivos arquivos deveria ser retornados, porém apenas uma data base (09/12) retorna os arquivos, a outra data apenas carrega as tabelas, o que acho estranho é que as duas rotinas estão absolutamente iguais.


Já tentei todo tipo de solução porém não surtem efeito, estou postando o parte do Fonte para vocês analisarem e me ajudarem.


Grato.


<body onmousedown="F_Disable_Click();">


<p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#339999" size="2">ARQUIVOS


DISPON&Iacute;VEIS PARA DOWNLOAD </font></strong></font></p>


<form action="arquivosdisponiveis.asp" method="post" name="frmarqdisp" id="frmarqdisp">


<table width="80%" height="24" border="0" align="center" cellpadding="0" cellspacing="0">


<tr>


<td class="style2">


<div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Data


Base dos Arquivos: &nbsp;</font></strong></div></td>


<td class="style1"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">


&nbsp;


<select name="edtdata" size="1" id="edtdata" value="<%=xDataDigitada%>" style="width: 80px">


<option value=""></option>


<option value="1">09/2009</option>


<option value="2">12/2009</option></td>


&nbsp;&nbsp; </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><td><img src="../images/cmd-ok.gif" width="58" height="16" onClick="F_EnviaForm(document.frmarqdisp)" onMouseOver="this.style.cursor='hand'"></font></strong></td>


</tr>


</table>


</form>


<br>


<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">


<tr>


<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Dilig&ecirc;ncia


Fiscal </strong></font></td>


</tr>


</table>


<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#99CCCC">


<tr>


<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" >


<tr bgcolor="#669999">


<td width="50%"> <div align="center"><font color="#FFFFFF"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Arquivo</font></strong></font></div></td>


<td width="22%"> <div align="center"><font color="#FFFFFF"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Tamanho</font></strong></font></div></td>


<td width="28%"> <div align="center"><font color="#FFFFFF"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Data</font></strong></font></div></td>


</tr>


<%


For Each ObjArquivo in ObjPasta.Files


if xExibeTudo = " " then


if xDataDigitada = "1" then


if Left(UCase(ObjArquivo.Name),9) = "DFS_SET09" then


%>


<tr bgcolor="#FFFFFF">


<td> <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<a href="/asp/processdownload.asp<%=ObjParametro.montaurl(Session("CODCLIENTE"),Session("CODOPERADOR"),UCase(ObjArquivo.Name))%>"><%=UCase(ObjArquivo.Name)%></a>&nbsp;</font></div></td>


<td> <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=FormatNumber(ObjArquivo.Size/1024,0) & " KB"%>&nbsp;</font></div></td>


<td> <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=ObjArquivo.DateLastModified%>&nbsp;</font></div></td>


</tr>


<%


end if


end if


else


if xDataDigitada = "2" then


if Left(UCase(ObjArquivo.Name),9) = "DFS_DEZ09" then


%>


<tr bgcolor="#FFFFFF">


<td> <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<a href="/asp/processdownload.asp<%=ObjParametro.montaurl(Session("CODCLIENTE"),Session("CODOPERADOR"),UCase(ObjArquivo.Name))%>"><%=UCase(ObjArquivo.Name)%></a>&nbsp;</font></div></td>


<td> <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=FormatNumber(ObjArquivo.Size/1024,0) & " KB"%>&nbsp;</font></div></td>


<td> <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=ObjArquivo.DateLastModified%>&nbsp;</font></div></td>


</tr>


<%


end if


end if


end if


Next


%>


 


SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados