<% Response.Redirect "http://www.toddfalcone.com/index.php" %> <% Dim objDB, strSQL, objRs Dim lngProductID lngProductID = CDef(mflForm("PID"), CDef(mflQueryString("PID"), CLng(-1))) If lngProductID = -1 Then Response.Redirect("products.asp") End If ' Open the database Set objDB = OpenDB(Application("DSN1")) %> Todd Falcone.com - Network Marketing Mastery


YES! Please subscribe me to The Fearless Networker ezine. I want to start learn his proven success strategies right now!

Your Name:

Your Email:


<% strSQL = "SELECT ProductID, Name, PurchaseURI, Price, Description FROM Product WHERE DisplayOrder > 0 AND ProductID = " & CDB(lngProductID) Set objRs = ExecuteSQL(objDB, strSQL, Empty, Empty) If Not objRs.EOF Then %>
<%=objRs("Name")%>
<%=objRs("Description")%>

" target="_blank">Purchase Now

<% End If objRs.Close %>