| |
FOTOALBUM
<%
Dim rs, data_source, no
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("lokhorst.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tuinen order by positie", data_source
While Not rs.EOF
%>
|
<%=rs("foto-klein")%>
<%=rs("tekst")%>
|
<%
no = no + 1
rs.MoveNext
if no >= 4 then
no = 0
%>
| |
<%
else
end if
Wend
rs.Close
Set rs = Nothing
%>
|
|
|
|
|
