|
|
|
|
|
|
Producten
Hieronder vindt u een greep uit een aantal producten die wij maken.
<%
Dim rs, data_source, no
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("metaalbewerking.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from producten order by positie", data_source
While Not rs.EOF
%>
">
 " ALT="<%=rs("titel")%>" BORDER="0">
|
<%
no = no + 1
rs.MoveNext
if no >= 3 then
no = 0
%>
<%
else
end if
Wend
rs.Close
Set rs = Nothing
%>
|
|
|
|
|
|
