Here is my code. It doesn't give me a error and also it doesn't give me the resutl i want.

Code:
<%@ LANGUAGE = VBScript %>
<% Response.Expires = 0 %>
<!--#include file="../Area_Riservata/Sicurezza.asp"-->
<!--#INCLUDE FILE = "IFormC.asp" -->
<!--#INCLUDE FILE = "IForm06b.asp" -->
<%
Dim risposta
Dim risposta1
Dim ViewPath

'Declare our FileSystemObject variable 
Dim objFSO 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Declare our folder variable 
Dim objFolder 
 
'web's root folder? 
Dim strRootFolder 
strRootFolder = "F:/Inetpub/wwwroot/intraform/Form/SpoolPDF/out/" 


'Set web path to view the PDF from the browser
ViewPath = "/formpdf/"

'set our folder object to the web root folder 
Set objFolder = objFSO.GetFolder(strRootFolder)

'Declare a file object 
Dim objFile 

'**
dim fNames()
dim fDates()
redim fNames(fileCount) 
redim fDates(fileCount)
Dim sExt
Dim fileCount

sExt = ".PDF"
filecount = 0

For each objFile in objFolder.files
	if instr(objFile.Name,sExt) > 0 then
		fileCount = filecount + 1
		If LCase(Left(objFile.Name, 3)) = "03_" then
			'cFcount = cFcount + 1 
        	fDates(cFcount) = objFile.DateLastModified
			fNames(cFcount) = lcase(objFile.name)
			Response.write objFile.Name & "<br>"
		End If
	end if
next

for tName = 1 to cFcount 
	for nName = (tName + 1) to filecount
		if (fDates(tName) < fDates(nName)) then 
			'Sort dates
			buffer = fDates1(nName) 
			fDates(nName) = fDates(tName)
			fDates(tName) = buffer 
			'Sort names
			buffer = fNames(nName) 
            fNames(nName) = fNames(tName)
			fNames(tName) = buffer 
		end if 
	next
next

set objFolder = nothing
set objFSO = nothing
%>
<html>
<head>
<title>Intr@Form - Identificazione Sottoscritto</title>
<link rel="stylesheet" type="text/css" href="Layout.css">
<style type="text/css">
<!--
a:hover {  color: #990000}
-->
</style>
</head>
<script language="javaScript">
function cmdBack()
{
        window.location = '<%if s = "" then%>IForm01.asp<%else%>IForm01.asp<%end if%>';
}
</script>
<body bgcolor="#FFFFFF">
<table width="825" border="0">
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td width="186" valign="top"><table border="0" cellspacing="1" width="158">
        <tr bgcolor="#E6E6E6">
          <td width="157" height="25"><a href="javascript:cmdBack()" class="Menu1Title">&nbsp;Precedente</a></td>
        </tr>
      </table></td>
    <td width="629" valign="top"><table width="623" border="0">
        <tr>
          <td valign="top"><div align="center"><span class="TXT_3">Registro</span> <br>
            </div></td>
        </tr>
      </table>
      <table width="623" border="1">
        <tr>
          <td width="413" valign="top"><span class="TXT_5_center">Nome File PDF</span><br>
            <%	
	for nName = 1 to cFcount 
	Response.Write "<span class='TXT_4'><a href='" & ViewPath & fNames(i) & "' class='TXT_4'>" & fNames(i) & "</a></span><br>"
	next
%></td>
          <td width="194" valign="top"><span class="TXT_5_center">Data Creazione</span><br>
            <%
for nName = 1 to cFcount 
	Response.Write "<span class='TXT_4'>" & fDates(i) & "</span><br>"
	next
%></td>
        </tr>
      </table>
      <br>
      <table width="623" border="0">
        <tr>
          <td valign="top"><div align="center"><span class="TXT_3">Cartellino</span> <br>
            </div></td>
        </tr>
      </table>
      <table width="623" border="1">
        <tr>
          <td width="413" valign="top"><span class="TXT_5_center">Nome File PDF</span><br>
          </td>
          <td width="194" valign="top"><span class="TXT_5_center">Data Creazione</span><br></td>
        </tr>
      </table>
      <br>
      <table width="623" border="0">
        <tr>
          <td valign="top"><div align="center"><span class="TXT_3">Ricevuta</span> <br>
            </div></td>
        </tr>
      </table>
      <table width="623" border="1">
        <tr>
          <td width="413" valign="top"><span class="TXT_5_center">Nome File PDF</span><br></td>
          <td width="194" valign="top"><span class="TXT_5_center">Data Creazione</span><br></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
In my Response.write i get the following "03_MOD48_2007_126103327.PDF"
Which is correct. But when i ask it to write it in the body section it doesn't do anything. I guess the For..Each i used is wrong..

Code:
<table width="623" border="1">
        <tr>
          <td width="413" valign="top"><span class="TXT_5_center">Nome File PDF</span><br>
            <%	
	for nName = 1 to cFcount 
	Response.Write "<span class='TXT_4'><a href='" & ViewPath & fNames(i) & "' class='TXT_4'>" & fNames(i) & "</a></span><br>"
	next
%></td>
          <td width="194" valign="top"><span class="TXT_5_center">Data Creazione</span><br>
            <%
for nName = 1 to cFcount 
	Response.Write "<span class='TXT_4'>" & fDates(i) & "</span><br>"
	next
%></td>
        </tr>
      </table>
Anyone??

Thank you