 |
<%
set newsproduct=server.CreateObject("ADODB.Recordset")
sqltext="select top 12 * from news where news10=3 order by news1 desc,id desc"
newsproduct.Open sqltext,cn,1,1
if newsproduct.bof or newsproduct.eof then
response.write "No Message!"
else
i=1
do while not newsproduct.EOF
set news6=newsproduct("news6")
set idd=newsproduct("id")
set news3=newsproduct("news3")
%>
|
|
<%
i=i+1
newsproduct.movenext
loop
end if
newsproduct.close
set newsproduct=nothing
%>
|
|
|
 |
<%
id=request("id")
set rs=server.CreateObject("ADODB.Recordset")
if id<>"" then
sqltext="select * from news where id="&id&""
else
sqltext="select top 1 * from news where news10=3"
end if
rs.Open sqltext,cn,1,1
set news3=rs("news3")
set news5=rs("news5")
set news6=rs("news6")
set news8=rs("news8")
set news12=rs("news12")
%>
Choosing the right bath accessories will take your bathroom to a new level. Imagine all the different ideas and styles you can play with in order to enhance your bath room? Browse around until you find the perfect match for your bath.
With our designer bath accessories you can relax and enjoy the serenity and beauty of your bathroom.
Choose from our different styles to accomplish the effect that you so desire. Your bathroom should be a place where you can unwind and enjoy peace and be comfortable in your beautiful bathroom.
Our luxury bath accessories can be utilized in any room of the house, not just bathrooms. Add the perfect coordinating tissue cover to any room for easy access. A lotion dispenser can be added to your kitchen to add moisture to your hands after washing dishes as well as a coordinating soap dish. Add a touch of elegance to your bedroom or den with a coordinating waste basket. These luxurious bath accessories can make a wonderful addition to any room in your home.
|
|
|
|
|
|
