|
I want to purchase:
*Please select an item(s) to purchase or you will get an error
|
PAL OR NTSC..USE THE LIST BELOW TO FIND OUT...
The above list of DVD formats is for your reference only - you DO NOT need to select an option
TITLES ON NTSC DVD...
<%set rs=server.CreateObject("adodb.Recordset")
rs.CursorType=3
rs.LockType=1
rs.Open "select * from products where category in (1,2) and status=1 order by tStamp desc",sdb
if rs.BOF=false or rs.EOF=false then
rs.movefirst
do while not rs.eof
if rs.fields("category")=1 then
%>
" name="purchase"><%=rs.fields("itemName")%> - <%=formatcurrency(rs.fields("price"))%>
<%
end if
rs.movenext
loop
end if
%>
TITLES ON PAL DVD...
<%if rs.BOF=false or rs.EOF=false then
rs.movefirst
do while not rs.eof
if rs.fields("category")=2 then
%>
" name="purchase"><%=rs.fields("itemName")%> - <%=formatcurrency(rs.fields("price"))%>
<%
end if
rs.movenext
loop
end if
rs.close()
set rs=nothing
sdb.close()
set sdb=nothing
%>
|