Sierbestrating projecten [ klik op de foto voor vergroting ] <% Dim rs, data_source, no data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("vandenheuvel.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "sierbestrating", data_source While Not rs.EOF %> <% no = no + 1 rs.MoveNext if no >= 3 then no = 0 %> <% else end if Wend rs.Close Set rs = Nothing %> "> " BORDER="0" ALT="<%=rs("titel")%>">

werkwijze |  materiaal |  sierbestrating |  straatwerk |  grondwerk |  projecten |   home |  contact |  disclaimer | links