| |
<%
Const adOpenForwardOnly = 1
Const adLockOptimistic = 3
Const adCmdTable = 1
'tmp=Server.MapPath("../db/aren.mdb")
'strconnect="Driver={Microsoft Access Driver (*.mdb)};DBQ="&tmp
strconnect="DSN=arenco"
set myconn=server.CreateObject("ADODB.connection")
set rs=server.CreateObject("ADODB.Recordset")
myconn.Open strconnect
for i=1 to 5
str="SELECT prodname, picname, prodcat,id FROM tblproduct WHERE (prodcat)='"&i&"' ORDER BY prodname;"
rs.Open str,myconn,adOpenForwardOnly,adLockOptimistic, adCmdTable
%>
<%if not rs.EOF then %>
 |
<%end if %>
<%while not rs.EOF%>
<%=rs("prodname")%> <%if len(rs("picname"))>0 then%>"> <%end if%> |
<%rs.MoveNext
wend%>
| |
<%rs.close
next%>
|
|
