% @LANGUAGE = VBScript %>
<% strQ = strQ & "SELECT txtDescription, "
strQ = strQ & "txtName, "
strQ = strQ & "txtNumber, "
strQ = strQ & "txtNLA, "
strQ = strQ & "txtCatagory, "
strQ = strQ & "txtCulture, "
strQ = strQ & "txtSize, "
strQ = strQ & "txtMan, "
strQ = strQ & "txtBattleReady, "
strQ = strQ & "curPrice, "
strQ = strQ & "curSale, "
strQ = strQ & "txtDescription, "
strQ = strQ & "txtSubcatagory, "
strQ = strQ & "txtLimited, "
strQ = strQ & "txtStock, "
strQ = strQ & "txtStatus, "
strQ = strQ & "numWeight "
strQ = strQ & "FROM koaproducts "
strQ = strQ & "WHERE ((koaproducts.txtName) "
strQ = strQ & "LIKE 'Blow Out %') ORDER BY txtName"
objRS.Open strQ %>
Kult Of Athena - Blow Out
| Dent
- Scratch - Samples - 2nd's - Damaged - Blow Outs
Here
you can get some great deals on product samples, blemished, damaged or
otherwise un-perfect items. The following items are sold as is. All attempts
are made to list any damage fully and accurately. No returns can be accepted
on these items.
Please notice that the pictures are of the normal item and will link to
the normal item page so you can get more information. Please don't email
us asking for pictures of the damage, we simply do not have the time to
photograph every damaged item.
Be sure to order with the shopping cart buttons on this page to
get the blow out specials. |
<% 'test for data
if objRS.eof then
response.write("Sorry, none found.")
'begin formatting
else
%>
<%
i = 1
do until objRS.eof
cellString = " " & objRS("txtName") & " " & objRS ("txtDescription")&" "& objRS ("txtStock")&" Available
"& (FormatCurrency(objRS("curPrice")))&" "& (FormatCurrency(objRS("curSale")))&"
"
if not i mod 2 = 0 then
response.write(cellString)
else
response.write(cellString)%>
|
<%
end if
i = i + 1
objRS.movenext
loop
%>
<%
end if
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
|