% Dim productname(15),displayurl(15),votes(15),score(15),ids(15) tfilter=Request.QueryString("filter") Set MyConn = Server.CreateObject(con_type) MyConn.Open "DRIVER=" & db_driver & ";DBQ=" & Server.MapPath("private/products.mdb") & ";" Set rs = Server.CreateObject(rs_type) a=1 If tfilter="" Then strSQL = "SELECT * FROM Products ORDER BY (Score/Votes) DESC;" Else strSQL = "SELECT * FROM Products WHERE Category=" & tfilter & " ORDER BY (Score/Votes) DESC;" End If rs.Open strSQL, MyConn, adOpenStatic, adLockReadOnly Do While NOT rs.EOF AND a<11 ids(a)=rs.Fields("ID") productname(a)=rs.Fields("ProductName") displayurl(a)=rs.Fields("DisplayURL") votes(a)=rs.Fields("Votes") score(a)=Int(rs.Fields("Score")/(votes(a))*10) rs.MoveNext a=a+1 Loop rs.Close MyConn.Close Set rs = Nothing Set MyConn = Nothing a=a-1 %>
|
|
|
|
|
Avoid the pitfalls of male enhancement and start
living a more confident, happy, fulfilled, and rewarding life today!
This site is the place to learn how to make your penis bigger easier and risk-free. |
|
|
|
Bookmark this page. Link to this site. Tell your friends.
Enlargement Techniques Penis Enlargement Charts Ask The Experts Useful Products For Men
Sudan
Jelqing Techniques
Mental Enlargement Secret
The Best Male Masturbators
Free
Testicle Enlargement |
Download your Free "How to make your penis bigger" e-Book |
|
|
"How do you size up?" |
©
www.EnlargementReviews.org 2006
All rights reserved.
The Elephant Award badge is a trademark.