Urgente quien me puede ayudar Gracias

[URSU]

Hola a todos:

Tengo un inconveniente, necesito escribir el codigo asp de tal forma que me escriba en la pagina solo los archivos que NO seas con la extencion .zip, les mando el padazo de codigo donde hace el write en el mismo escribe el nombre de todos los archivos que tengo, o sea lo que necesito hacer es restringir los archivos .zip

<%
While Not recordset.EOF
fecha_creacion = day(recordset("doc_fecha")) & "/" & month(recordset("doc_fecha")) & "/" & year(recordset("doc_fecha"))
fecha_hora = Hour(recordset("doc_fecha")) & ":" & Minute(recordset("doc_fecha")) & ":" & Second(recordset("doc_fecha"))


%>

<tr>

<td width="80%"><font face="Arial" size="2" color="#FFFFFF">-</font><font face="Arial" size="2" ><a target="Top" href="upload/<%=recordset("doc_nombre")%>" ><%=recordset("doc_nombre")%>&l t;/a></font>
</td>
<td><a target="Top" href="upload/<%=recordset("doc_nombre")%>&qu ot; target="_top"><img border="0" src="images/ver.gif"></a><a href="upload/<%=trim(recordset("doc_nombre"))%> .zip" target="_top"><img border="0" src="images/download.gif"></a></td>
<td width="20%" align="right"><font face="Arial" size="2"><%=fecha_creacion%>, <font face="Arial" size="1"><%=fecha_hora%></font></font></td>

</tr>


<%
recordset.movenext
wend
%>

[URSU]

Por favor alguien sabe como escribir el codigo en asp par que se fije y escriba solamente los archivos que sean distintos de la extencion.zip

gracias

[Snarfer]

Podrias intentar con algo como esto:

While Not rs.EOF
if mid(rs.Fields("Nom_doc"),len (rs.Fields("nom_doc")-3,3)<>"zip"
'Código que muestra los archivos
Endif
rs.MoveNext
Wend

Suerte y espero que te sea de ayuda

I.S.C Hilario Torres

[URSU]

Gracias Snarfer, pero encontre la solucion restringiendolo en el SP de esta forma Where id_desarrollo = @id_desarrollo and doc_nombre not like '%.zip% '

De todas formas te doy las gracias ;)

[Snarfer]

Podrias intentar con algo como esto:

While Not rs.EOF
if mid(rs.Fields("Nom_doc"),len (rs.Fields("nom_doc")-3,3)<>"zip"
'Código que muestra los archivos
Endif
rs.MoveNext
Wend

Suerte y espero que te sea de ayuda

I.S.C Hilario Torres

[XaRoD]

Es más eficaz el código de Snarfer, ya que con el que has utilizado, si el nombre de archivo lleva los 3 caracteres "zip" en cualquier lugar, no te lo mostrará.
Por ejemplo, si tienes un documento que se llame "Como_zipear_documentos.TXT" no te lo mostrará porque los caracteres "zip" se encuentran en el nombre.
En cambio el código de Snarfer comprueba que sólo los últimos 3 caracteres (o los de la extensión sean "zip").
Aunque se puede reducir un poquillo usando la función de cadena "right":

if right(rs.Fields("Nom_doc"),3)<>&qu ot;zip" then
'mostrar archivos
end if

Salu2