|
Hoodia Plus TM |
|
|
|
Using the latest in ancient and modern herbal technology Hoodia PlusTM was
formulated to help IT'S IMPORTANT TO KNOW! If you decide to use Hoodia
in its "PURE" form, ultimately
Hoodia
Gordonii Succulent
will fail
|
|||||||||
|
"Hoodia PlusTM" is a unique energy & weight loss formula that contains a proprietary blend of:
|
One Capsule of "Hoodia PlusTM"
every
|
|||||||||
|
Anyone who has struggled to lose weight can
|
||||||||||
|
Each bottle of Hoodia Plus
TM contains
Your Success is Guaranteed! If for any reason within the first 30 days you are unsatisfied with our "Hoodia Plus TM" Diet formula return the unopened bottles for a refund Less $5.00 shipping & handling cost per bottle.
Questions & Answers
Q.
What is Hoodia? Q. Where
does the Hoodia Gordonii Succulent come from? Q. What
type of Hoodia Gordonii Succulent is best? Q. I
thought Hoodia was not commercially available? Q. Are
there any side-effects to taking Hoodia Plus?
Real Life Testimonies "After using your product for only a week I have lost 5 lbs and I have more energy than I have had in years." - Kelly "I have tried other so called Hoodia products and so far Hoodia Plus is the only one that has worked for me. I have so much energy I had to join a gym. All of my co-workers are asking me what my secret is. I tell them it's Hoodia Plus!" - Kimberly "I can't believe how much better Hoodia Plus works over some of the more expensive so called Hoodia products." - Betty "I believe I first heard about your product on 60 Minutes and at first I was a skeptical, now I'm a believer." - Janet "Wow, Hoodia Plus works GREAT! I tried other Hoodia products that cost a lot more than yours that don't even compare to my results using Hoodia Plus! Super fast shipping too! You have a loyal customer for life!" - Diana "This Hoodia Plus actually works, what a shocker!" - Tim "It works!" - John "Down 3 dress sizes, only two more sizes to go, thanks." - Linda "I can't believe the amount of energy I have and I am eating less and less everyday!" - Michelle
|
Three Bottles |
|||||||||
|
![]()
These statements have not been evaluated by the food and drug administration. This product is not intended to diagnose, treat, cure or prevent any disease. This product is not intended for individuals under the age of 18. Consult your Medical Professional before starting any weight loss program.
©2005 HEARTLAND HERBAL SUPPLY - ALL RIGHTS RESERVED
*Shipping times are for US orders. International orders will take longer to arrive. |
||||||||||
Links <% ' # THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION. ' # PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED. ' # Dimensioning variables - DO NOT MODIFY! Dim UserKey Dim ThisPage Dim CategoryColumns Dim LinksPerPage Dim OpenInNewWindow Dim PostingString Dim PassedQuery Dim AllowSearch Dim ErrorString Dim ResultString ' # // Finished dimensioning variables. ' # MODIFY THE VARIABLES BELOW: ' # Enter your user key below (provided to you by PowerLinks.com): UserKey = "4144130172005-ZK7NZXH5TN" ' # The following variable defines how many columns are used to display categories CategoryColumns = 2 ' # The following variable defines how many links to display per page LinksPerPage = 25 ' # The following variable defines whether links are opened in a new window ' # (1 = Yes, 0 = No) OpenInNewWindow = 1 ' # The following variable determines whether the search function is enabled ' # for your links page (1 = Yes, 0 = No) AllowSearch = 1 ' # DO NOT MODIFY ANYTHING IN THIS BLOCK!! ' --------------------------------------------------------------------------------- ' # The following variable is sent to the PowerLinks server in order to ' # generate working links on your page: ThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the PowerLinks.com server PostingString = "UserKey=" & UserKey PostingString = PostingString & "&ScriptName=" & ThisPage PostingString = PostingString & "&CatCols=" & CategoryColumns PostingString = PostingString & "&LinksPerPage=" & LinksPerPage PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow PostingString = PostingString & "&AllowSearch=" & AllowSearch ' # pass through any querystring data to PowerLinks to allow paging PassedQuery = Request.QueryString ' --------------------------------------------------------------------------------- If GetPowerLinksData(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString Else ' here we are just dumping error info to the page. You can clean this up to ' fit your site Response.Write ErrorString End If Function GetPowerLinksData(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim ComponentString Set hObj = Nothing On Error Resume Next Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then If TryMSXML(strQuery, strPost, strResponse, strError) Then ' the MSXML function will return the data GetPowerLinksData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetPowerLinksData = False End If Else hObj.Open "POST", "http://www.powerlinks.com/bin/dumplinks.asp?" & strQuery, False hObj.SetRequestHeader "Content-type", "application/x-www-form-urlencoded" hObj.Send strPost If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetPowerLinksData = False Else strResponse = ComponentString & hObj.responseText GetPowerLinksData = True End If End If End Function Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing ' let's see if the server supports the XMLHTTP component, various versions On Error Resume Next Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = Server.CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then strError = "No support for HTTP requests found." TryMSXML = False Else ' # Open connection to PowerLinks.com server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "POST", "http://www.powerlinks.com/bin/dumplinks.asp?" & strQuery, false hObj.setRequestHeader "Content-type", "application/x-www-form-urlencoded" hObj.Send strPost If hObj.status <> 200 Then ' # error! strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" TryMSXML = False Else ' # We should have received the links information from the server, ' # the following line will return the data by reference: strResponse = ComponentString & hObj.responseText TryMSXML = True End If Set hObj = Nothing End If End Function ' # //FINSIHED POWERLINKS.COM SCRIPT BLOCK %>