Rietdekkersbedrijf Prins »» projecten met een Rietendaken
<%
Dim rs, data_source, no
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("rietdekkersbedrijf.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from rietendak order by positie", data_source
While Not rs.EOF
%>
|
|
<%
no = no + 1
rs.MoveNext
if no >= 2 then
no = 0
%>
| |
<%
else
end if
Wend
rs.Close
Set rs = Nothing
%>
|
