Problema script VB

[Ale407]

Salve a tutti e grazie in anticipo a chi mi aiuterà

Ho uno script in VB che mi da qualche problema. Crea una tabella con intestazione e link ai file contenuti nella cartella specificata.
E' uno script che ripeto 3 volte in una pagina .asp con l'istruzione di crecare in 3 diverse cartelle, ma purtroppo i link generati dal primo e secondo script hanno il suffisso che ho impostato all'ultimo script

L'if incriminata è questa che pare valere per tutte le ripetizioni dello script eseguite nella pagina.

if cont < 10 then cont = "0"& cont
			s = s & "<tr><td>"& f1.name &"<div align=""right"">Dimensione File:"
			s = s & VbTab & f1.size/1000 & "Kb </div></tr>"
			cont = cont + 1

Questo invece è lo script "originale" che viene variato alla riga 10 19 e 20.
Potete vederlo attivo su http://www.skysoftware.biz/a-download.asp con il problema che ho segnalato.

		  <%
Function ShowFolderList(folderspec)
	Dim fso, f, f1, fc, s, cont
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFolder(folderspec)
	Set fc = f.Files
	cont = 1
	For Each f1 in fc
		if right(f1.name, 3) <> "asp" then
			if cont < 10 then cont = "0"& cont
			s = s & "<tr><td>"& f1.name &"<div align=""right"">Dimensione File:"
			s = s & VbTab & f1.size/1000 & "Kb </div></tr>"
			cont = cont + 1
		end if
   Next
   ShowFolderList = s
End Function
response.Write  "<table width=""100%"" class=""ruler""><tbody><thead><tr><th scope=""col""><a name=""teamsystem""></a>Software Commercializzati</th></tr></thead>"& ShowFolderList(server.MapPath("./a-download/sw-teamsystem")) &"</tbody></table>"
%>

[Santino83_02]

non ho capito nulla...qual'è il problema?

[Ale407]

Ho una pagina ( http://www.skysoftware.biz/a-download.asp ) dove ho ripetuto 3 volte questo script variandone queste parti:

riga11: s = s & "<tr><td><tbody><thead><tr><th scope=""col""><a name=""teamsystem "">Software Commercializzati </th></tr></thead>"& ShowFolderList(server.MapPath("./a-download/sw-teamsystem ")) &"</tbody></table>"

Purtroppo lo script crea i link nelle 3 tabelle risultanti mettendo come suffisso per tutti

a-download/sw-teamsystem

vorrei che i tre oggetti avessero oguno il suffisso indicato (che indica il percorsodella cartella).Puoi aiutarmi?

[Ale407]

nessuno sa come poter fare?

[Ale407]

Oggi niente aiuto a quanto pare.

Alla fine sono riuscito ad arrangiarmi creando quest'altro script, se può essere utile a qualcuno:

(Crea all'interno di una tabella formattata in css la lista di dei file contenuti con link e con relativa dimensione in Kb)

<table width="100%" class="ruler"><tbody><thead><tr><th scope="col"><a name="skysw"></a>Documentazione Sky Sofware</th></tr></thead>
<%
dir="/a-download/company_profile"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("./a-download/company_profile"))
Set file3 = file2.Files
For Each file in file3
response.write "<tr><td><A HREF='a-download/company_profile/"
response.write file.name
response.write "'>"
response.write file.name
response.write "</A><div align=""right"">Dimensione File: "
response.write file.size/1000
response.write " Kb </div></tr></td>"
Next
%>
</tbody></table>