|
|
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ProductType where TypeID=" & Request("TypeID") & ";"
rs.Open sql,conn,0,1
if Not rs.EOF then
ProductTypeName=rs("TypeName").value
end if
rs.Close
%>
Our
Products
<%=ProductTypeName%>
<%
i=0
sql="select * from Product where TypeID=" & Request("TypeID") & " and Status='Y' order by ProductName;"
rs.Open sql,conn,0,1
Do Until rs.EOF
i=i+1
if i mod 5=1 then
Response.Write ""
end if
%>
|
|
<%
if i mod 5=0 then
Response.Write " "
end if
rs.MoveNext
Loop
rs.Close
if i mod 5>0 then
Response.Write ""
end if
%>
|
|
|
|
|
|
 |
|
