hola ..
mira hace algun tiempo hice una pagina q realizaba esa funcion...
era algo asi..
Dim oTools
Set oTools = Server.CreateObject("MSWC.Tools")
<%if oTools.FileExists(Replace(ruta,"/upload/","")) then%>
<div align="center"><a href="javascript
:Abrir_Popup_visor('<%=ruta%>');"> <img src="../../imagenes/cua_azul.gif" width="6" height="6"></a></div>
<%else%>
<div align="center"><a href="javascript
:alert(' El Documento <%=ruta%> No Existe. ');"><img src="../../imagenes/cua_azul.gif" width="6" height="6"></a></div>
<%end if%>
en todo caso....
revisa esta pagina...
http://www.microsoft.com/windows2000...p/comp7g8k.htm
ojala te sirva...
suerte..
chaop.