 |
|
American Ginseng
Only $28.50
Great Energy Booster ! Helps to Enhance Imune System ! Promotes Physical Endurance ! Helps to Cope With Stress !
|
|
Korean Ginseng
Only $23.00
A Power Packed Extract That Delivers Energy and Health Improvement Properties Fast !
|
|
Chinese Ginseng
Only $23.00
Feel the Ginseng Energy Only Minutes After Use ! Enjoy the Lasting Health Benefits Through Continued Use !
|
|
Valerian Root Extract
Only $15.00
Having Trouble Relaxing ? After a Dropper or Two of This Extract, You'll Be Looking for a Place to Lay Down !
|
|
|
We have compiled a list of interesting links that you may find helpful in your
quest for health.
L3xicon.com - a web
thesaurus and lexicon listing qualitycolloids.com under Colloidal
Silver, Colloidal Zinc
and Colloids
Aromatherapy and Massage Supplies
Massage oils for relaxation and sensual massage. Herbal remedies with tea tree oil, st johns wort and pure essential oils.
Alternative Health - If you are looking for alternative health remedies or any information about alternative medicines then click here to visit our forum.
Herbs like Yohimbe, Kava, Ephedra, Saw Palmetto
A guide for herbal nutritional supplements describes ginseng, yohimbe, kava kava, ephedra, deer velvet, cordyceps and many other remedies.
Discover Health and Wealth....Alternative Health Products
SelfGrowth.com- - SelfGrowth.com is the most complete guide to information about Self -Improvement, Personal Growth and Self Help on the Internet. It is designed to be an organized directory, with articles and references to thousands of other Web Sites on the World Wide Web.
Ozone Therapy: Steam Saunas, Food & Water OzonationNon-commercial website exploring the use of ozone in alternative medicine
SEO-Tech - Search Engine Optimization, Website Ranking, and Website Promotion Website design and search engine optimization company located in Las Vegas, Nevada. We specialize in the developement of concept presentation web sites, website architecture and search engine placement.
OffersDepot.com Online Shopping Mall
Colloidal Silver HQ: categorized resource directory for everything about colloidalsilver hq.
Natural Health Products - Natural health products affiliate program. Earn residual commissions. Just plug-in to our easy 1-2-3 system and begin following the system and tools that will lead you to success. With marketing experts and professional support staff standing by ready to help, advise, guide and coach you -- you have all the advantages and tools the big boys do without the costs!
Discount Shopping - Save up to 80% online shopping coupons and discounts.
Healing Clays & Pelotherapy - Healing with the Earth: Bentonite, Illite, MontmorilloniteEytons' Earth is a non-commercial website exploring the use of healing clays as used in natural medicine.
Educational Toys Planet - A world of educational toys, games, crafts, puzzles, to encourage the kid's curiosity, discovery, and creativity.
Tsection Web Directory -- Add your URL today!
1st For Health Web DirectoryAn internet portal for everything related to health from leading health sites and products for all areas of natural, alternative and mainstream health
Home , Colloidal
Silver, Colloidal
Silver Testimonies, What
is Colloidal Silver, Colloidal
Zinc, Colloidal
Zinc Information, Juicers,
Champion
Juicer, Jack
Lalanne Juicer, Soy
Milk Makers, Products,
Contact Us,
Links, Privacy
Statement, Company,
Shipping
Policies, Refund
Policy, Sitemap,
Good Health Blog,
<%
' # 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
Dim Category
' # // Finished dimensioning variables.
' # MODIFY THE VARIABLES BELOW:
' # Enter your user key below (provided to you by GotLinks.com):
UserKey = "YT36-SAUL-F9ZL"
' # 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 GotLinks server in order to
' # generate working links on your page:
ThisPage = Request.ServerVariables("SCRIPT_NAME")
' # Generate the data to post to the GotLinks.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 GotLinks to allow paging
PassedQuery = Request.QueryString
Category = Request.QueryString("cn")
' ---------------------------------------------------------------------------------
Function GetGotLinksData(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Dim ComponentString
Set hObj = Nothing
On Error Resume Next
Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = 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
GetGotLinksData = True
Else
' we don't need to supply error information, since the error string
' is passed ByRef, the MSXML function will supply the data
GetGotLinksData = False
End If
Else
hObj.Open "GET", "http://www.gotlinks.com/engine.php?" & strQuery & strPost, False
hObj.Send
If hObj.Status <> 200 Then
strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText
GetGotLinksData = False
Else
strResponse = ComponentString & hObj.responseText
GetGotLinksData = 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 = CreateObject("Msxml2.ServerXMLHTTP")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
Set hObj = 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 GotLinks.com server, sending the UserKey information via POST
' # Also, pass through the querystring information (contains category, link information)
hObj.open "GET", "http://www.gotlinks.com/engine.php?" & strQuery & strPost, false
hObj.Send
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
%>
<%=Request.ServerVariables("SERVER_NAME")%> <%=Category%> Link Partners
<%
If GetGotLinksData(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
' # //FINSIHED GotLinks.COM SCRIPT BLOCK
%>
|
|