|
|
 |
<%Dim rsproduct
openconnection()
set rsproduct=server.CreateObject("ADODB.recordset")
sqlstr="select * from tbl_products where intCategory_id=1 order by intProduct_id DESC"
'Response.Write(sqlstr)
'Response.End()
rsproduct.open sqlstr,objconn,1,3
count = 0
if not rsproduct.eof then
do while not rsproduct.eof
count = count + 1 %>
<%if count mod 2 =0 then %>
 |
|
 |
| Product Name |
: |
<%=rsproduct("txtProdname")%> |
|
| Base |
: |
<%=rsproduct("txtBase")%> |
|
| Application |
: |
<%=rsproduct("txtApplication")%> |
|
| Packing |
: |
<%=rsproduct("txtPacking")%> |
|
| Description |
: |
<%=rsproduct("txtDescription")%> |
|
<%if rsproduct("txtPSpecs") <> "" then%>
|
| |
" target="_blank"> |
<%end if%>
|
<% if rsproduct("txtPimage") <> "" then %>
 " alt="Image" border="0"> |
<%end if%>
|
|
 |
|
 |
<%else%>
|
|
|
<% if rsproduct("txtPimage") <> "" then %>
| " alt="Image" border="0"> |
<%end if%>
|
| Product Name |
: |
<%=rsproduct("txtProdname")%> |
|
| Base |
: |
<%=rsproduct("txtBase")%> |
|
| Application |
: |
<%=rsproduct("txtApplication")%> |
|
| Packing |
: |
<%=rsproduct("txtPacking")%> |
|
| Description |
: |
<%=rsproduct("txtDescription")%> |
|
<%if rsproduct("txtPSpecs") <> "" then%>
|
| |
" target="_blank"> |
<%end if%>
|
|
|
|
|
<%end if%>
| | |
<%
rsproduct.movenext
loop
end if
closeconnection()
%>
|
 |
|
|
