Proizvodi

Izdvajamo

<%Option Explicit%> <% Sub ListFolder(path)Dim fs, folder, file, item, put, i, fld Set fs = CreateObject("Scripting.FileSystemObject") Set folder = fs.GetFolder(path) 'Display the target folder. Response.Write("
  • " & folder.Name) Response.Write("
      " & vbCrLf) If (folder.Files.Count > 0)OR(folder.SubFolders.Count >0) Then 'Display a list of sub folders. for each item in folder.SubFolders ListFolder(item.Path) next 'Display a list of files. i=1 For each item in folder.Files put="Reference-slike/" & folder.Name & "/"& item.Name Response.Write( "slika " & i & "
      " & vbCrLf ) i=i+1 Next End If Response.Write("
    " & vbCrLf) Response.Write("
    • " & vbCrLf ) Response.Write("
    " )End Sub%> <%shoppageheader%>

      <% ListFolder(Server.MapPath("Reference-slike")) %>

    Noviteti

    UV-uređaji sa Powerline lampama srednjeg tlaka Primjena: dezinfekcija velikih količina vode Protok: do 800 m³/h
    DVGW-certificiran UV-uređaj sa Opti-Flux lampama dezinfekciju pitkih i potrošnih voda Protok: do 230 m³/h (ovisno o transmisiji)
    DVGW-certificiran UV-uređaj sa Opti-Flux lampama dezinfekciju pitkih i potrošnih voda Protok: do 230 m³/h (ovisno o transmisiji)
    1 2 3

    Reference

    Industrija
    Bazenska tehnika
    Hoteli
    Medicinska djelatnost
    Farmaceutika
    Ostalo

    Iz medija


    energetika-net

    hrt

    seebiz