|
|
|
          PREZZI
SPECIALI
PER TUTTO IL 2008!! clicca sulla moneta   PREVISIONI METEO FAQ le domande piu' frequenti  
      |
GALLERIA VIDEO
UPLOAD VIDEO LOGIN <% Dim conta1, conta2, contafld, flag1, conta3, conta5, contarec, stagbase, conta7, conta9 Dim path, fs, folder, file, item, url, fline, filename, folderarray(), arrayind, filearray() Dim barraflag, newcounter02, barraconta, midbarra, answer, titolo, titfoto Dim numerr, errdes, nompag, descriz, coldim, altriga, giustif arrayind=0 stagbase="1946-47" path="e:\volere-volare.com\dati\arearis\" 'response.write(path) 'response.write(" ") set fs = CreateObject("Scripting.FileSystemObject") On Error resume next set folder = fs.GetFolder(path) If Err.Number <> 0 then response.write("DATI NON DISPONIBILI! RIPROVARE PIU' TARDI") response.end End If if folder.SubFolders.Count > 0 then redim folderarray(folder.SubFolders.Count) else end if arrayind=folder.SubFolders.Count + 1 for each item in folder.SubFolders arrayind = arrayind - 1 folderarray(arrayind)=item.path next arrayind=0 if folder.Files.Count > 0 then redim filearray(folder.Files.Count) else end if barraflag=0 conta1=0 for each item in folder.Files if LCase(left(item.name,7))="vvvideo" AND LCase(right(item.name,3))="mdb" then conta1=conta1+1 'response.write(item.name & " ") filearray(conta1)=item.name else end if next contastag=0 if conta1>1 then contastag=1 else end if redim stagarray(conta1,2) 'response.write(conta1 & " ") for conta3=1 to conta1 stagarray(conta3,1)=conta3 stagarray(conta3,2)=mid(filearray(conta3),8,7) if stagarray(conta3,2) > stagbase then stagbase=stagarray(conta3,2) stagind=stagarray(conta3,1) else end if next 'for conta3=1 to conta1 ' response.write(stagarray(conta3,1) & ";" & stagarray(conta3,2) & " ") 'next 'response.write(stagbase & " ") redim folderarray(0) redim filearray(0) 'response.write(stagbase & " ") 'response.write(stagind & " ") %> <% conta3=0 conta5=0 conta9=0 fotoflag=0 for each fld in objRS30.fields conta9=conta9+1 next 'response.write(conta9 & " ") 'Da qui incomincia a displayare le tabelle dei video response.write(" ") response.write("
|
