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