|
<%Dim rsimgs
set rsimgs=server.CreateObject("Adodb.recordset")
rsimgs.Open "select * from Banners where ID=4",conn,3,3%>
" target="_blank"> " border="0"> |
<%
Set RsProd = Server.CreateObject ("ADODB.RecordSet")
Set RsProd = Conn.execute("Select * from Product order by ProductName ASC")
%>
| Product
Name |
Formula |
Packing |
<% Do Until RsProd.EOF%>
| <%=RsProd("ProductName")%> |
<%=RsProd("Formula")%> |
<%=RsProd("Packing")%> |
<% RsProd.MoveNext
Loop
RsProd.Close ()
Set RsProd = Nothing
%>
|
| |
| |
| |
|