% DSNName = Application("wol_ConnectionString") SQLStatement = "wol.md_ModalitiesSelectFinalCount ('1')" Set DBConnection = Server.CreateObject("ADODB.Connection") DBConnection.open DSNName,"","" Set RecordSet = Server.CreateObject("ADODB.RecordSet") RecordSet.Open SQLStatement, DBConnection, 3, 3 intMCount = 0 If Not RecordSet.EOF Then RecordSet.MoveFirst Do While Not RecordSet.EOF strModality = Trim(RecordSet.Fields("strModality")) strModalityEncode = strModality MDID = Trim(RecordSet.Fields("MDID")) strCount = Trim(RecordSet.Fields("intCount")) If intMCount <= 11 Then If intMCount > 0 Then htmlModalityList = htmlModalityList & ", " htmlModalityList = htmlModalityList & "" & strModality & "" If intMCount > 0 Then htmlDescriptionList = htmlDescriptionList & ", " htmlDescriptionList = htmlDescriptionList & strModality End If If Cint(strCount) > 1 Then If intMCount > 0 Then htmlModalityFullList = htmlModalityFullList & ", " htmlModalityFullList = htmlModalityFullList & "" & strModality & "" End If intMCount = intMCount + 1 RecordSet.MoveNext Loop End If Set RecordSet=Nothing DBConnection.Close Set DBConnection=Nothing strPageURL = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") If Request.ServerVariables("QUERY_STRING") & "*" <> "*" Then strPageURL = strPageURL & "?" & Request.ServerVariables("QUERY_STRING") If strPageTitle & "*" = "*" Then strPageTitle = "Online Wellness Network, directory of complimentary alternative medicine practitioners, holistic health and wellness products and alternative healing information" %>
![]()
|
|
||||||||||||||
|
PRACTITIONERS LOGIN
FAQs
|
*** |
*** |
|||||||||||||
| This website and all its contents are copyright
© protected, 2000-2006. All rights reserved. Online Wellness
Network, OnlineWellnessNetwork, |
|||||||||||||||