<%@ Language="VbScript"%> <% if strDBNTUserName = "" then Err_Msg = "
  • Devi essere iscritto al Forum per visualizzare questa Pagina
    • " Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " Tutti i Forum
    " & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " File Library
    " & vbNewLine & _ "

    C'è stato un Problema!

    " & vbNewLine & _ "

    Devi essere iscritto al Forum per visualizzare questa Pagina

    " & vbNewLine & _ "

    Torna al Forum

    " & vbNewLine & _ "
    " & vbNewLine WriteFooter Response.End else %>
     Tutti i Forum
     Download File

    <% strSql = "SELECT * FROM " & strTablePrefix & "FILES" Set rs = my_conn.execute (strSql) %>
    <%Do While Not RS.EOF%> <% rs.MoveNext Loop rs.close set rs = nothing %>
    ">Nome ">Autore ">Descrizione ">Grandezza ">Tipo ">Piattaforma
    "><%=RS("Name")%> <%=RS("Author")%> <%=RS("Description")%> <%=RS("FileSize")%>
    <% select case RS("Type") case "Zip" Response.Write getCurrentIcon(strIconZip,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Doc" Response.Write getCurrentIcon(strIconWord,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Pdf" Response.Write getCurrentIcon(strIconAdobe,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Txt" Response.Write getCurrentIcon(strIconNotePad,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Mp3" Response.Write getCurrentIcon(strIconMp3,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Stuffit" Response.Write getCurrentIcon(strIconStuffit,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Font" Response.Write getCurrentIcon(strIconFont,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Exe" Response.Write getCurrentIcon(strIconExe,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline case "Altro" Response.Write getCurrentIcon(strIconOther,"","align=""absmiddle""")&"
    " & RS("Type") &vbNewline end select %>
    <% select case RS("Platform") case "Windows" Response.Write getCurrentIcon(strIconwindows,"","align=""absmiddle""")&"
    " & RS("Platform") &vbNewline case "Mac" Response.Write getCurrentIcon(strIconmac,"","align=""absmiddle""")&"
    " & RS("Platform") &vbNewline case "Linux" Response.Write getCurrentIcon(strIconlinux,"","align=""absmiddle""")&"
    " & RS("Platform") &vbNewline case "Tutte" Response.Write getCurrentIcon(strIconAny,"","align=""absmiddle""")&"
    " & RS("Platform") &vbNewline end select %>

    <% WriteFooter end if %>