<%
dim i
i=1
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ProductList order by ListID"
rs.open sql,conn,1,1
do while not rs.eof
response.Write ""&rs("ClassNameC")&" "
rs.movenext
i=i+1
loop
%>
<%
i=1
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ProductList order by ListID"
rs.open sql,conn,1,1
do while not rs.eof
response.Write ""&rs("ClassNameE")&" "
rs.movenext
i=i+1
loop
%>