<% productid=Request("id") action=Request.Form("action") Set MyConn = Server.CreateObject(con_type) MyConn.Open "DRIVER=" & db_driver & ";DBQ=" & Server.MapPath("private/products.mdb") & ";" Set rs = Server.CreateObject(rs_type) strSQL = "SELECT * FROM Products WHERE ID=" & productid &";" rs.Open strSQL, MyConn, adOpenStatic, adLockReadOnly productname=rs.Fields("ProductName") displayurl=rs.Fields("DisplayURL") votes=rs.Fields("Votes") score=Int((rs.Fields("Score")/votes)*10) rs.Close If action="vote" AND Request.Form("score")<>0 Then strSQL = "SELECT * FROM Products WHERE ID=" & productid &";" rs.Open strSQL, MyConn, adOpenStatic, adLockPessimistic votes=rs.Fields("Votes") rs.Fields("Votes")=votes+1 score=rs.Fields("Score") rs.Fields("Score")=score+Request.Form("score") rs.Update rs.Close End If MyConn.Close Set rs = Nothing Set MyConn = Nothing %> ..: Rate <%=productname%> :.. <% Response.Flush %>


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 dick bigger easier and risk-free.	Get easy and free penis enlargement tips by email!

<% if action="vote" Then %>

Thank you for voting!

Click here to see the updated scores.

<% Else %>

Vote for <%=productname%>

What is your experience with this penis enlargement product?

<% End If %>