<%@ Language=VBScript %> HealthyWealthynWise.com | Library <%Server.Execute "/inc/top.inc"%>

<%Server.Execute "/inc/sign-in.inc"%>
<%Server.Execute "/inc/links.inc"%>

  
Library

 
Please use the links below to browse our complete library. Many more selections exist than just the ones on this page.
 
Library <%'Show path of clicks so users can travel back QSCount=Request.ServerVariables("QUERY_STRING").count IF QSCount>0 Then'we've got a link to build UserQueryString="Products.asp?" For Each name in Request.QueryString 'Response.Write Loopcount&" "&name&" " UserQueryString=UserQueryString&name&"="&Request.QueryString(name)&"&" 'find out what ID type it is IF name="CatID" Then Source="Select name from TblCategory Where ID="&Request.QueryString(name) NRS=Connect.Execute (Source) Response.Write " > "&NRS("name")&"" Elseif name="TypeID" Then Source="Select type from TblProductTypes Where ID="&Request.QueryString(name) NRS=Connect.Execute (Source) Response.Write " > "&NRS("type")&"" ElseIF name="SAMID" Then Source="Select fname,lname from TblMentor Where ID="&Request.QueryString(name) NRS=Connect.Execute (Source) Response.Write " > "&NRS("fname")&" "&NRS("lname")&"" End IF NExt 'link needs to be made End IF 'Response.Write Link %>
<%'grab the headliner products '1)test to see if user has selected anything, or if it's the first time '2)Test to see what user has selected '3)Build SQL source statement to reflect user selections WhereClause=" TblProducts.Cost<>'FREE' AND " changed=0'trigger to check for multiple selections If SAMID<>"" Then'user wants to see a certain SAM WhereClause=WhereClause&"MentorID="&SAMID changed=1 End IF IF TypeID<>"" THEN If changed=0 Then'first choice selected WhereClause=WhereClause&"TypeID="&TypeID changed=1 Else WhereClause=WhereClause&" AND TypeID="&TypeID End IF'ends test to see if user selected more than option at this point End IF IF CatID<>"" THEN If changed=0 Then'first choice selected WhereClause=WhereClause&"CategoryID="&CatID changed=1 Else WhereClause=WhereClause&" AND CategoryID="&CatID End IF'ends test to see if user selected more than option at this point End IF If changed=0 Then'no selection at all Source="Select * FROM TblProducts Where Headliner='yes' AND Cost<>'FREE'Order by Name" 'Response.Write Source Else Source="Select * FROM TblProducts Where "&WhereClause&" Order by Headliner,Name" 'Response.Write Source End If Set ProdRS=Server.CreateObject("ADODB.RecordSet") Set ProdRS.ActiveConnection=Connect ProdRS.Source=Source ProdRS.Open While NOT ProdRS.EOF Response.Write "" Response.Write "" 'test for full link code in database If Instr(ProdRS("Link"),""&PRodRS("Link")&"
" Response.Write ""&ProdRS("Name")&"   "&ProdRS("cost")&"
"&PRodRS("Desc1")&"

 
" Else'partial link Response.Write "
Order Now!

 
" End IF ProdRS.MoveNext Wend %>

 
<%Server.Execute "/inc/footer.inc"%>    <%Server.Execute "/inc/right_ads.inc"%>