<%
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 projecten order by positie", data_source
While Not rs.EOF
%>
">
 " ALT="<%=rs("titel")%>" BORDER="0">
[">meer info]
|
<%
no = no + 1
rs.MoveNext
if no >= 2 then
no = 0
%>
|
<%
else
end if
Wend
rs.Close
Set rs = Nothing
%>
|
