LaceyHealing.com ~~ Services

<% isdebug=false strAnchorName=request("AnchorName") on error resume next server.ScriptTimeout = 10 Function getPayPalString(vName, vNumPrices, vCost, vCostUnitStr, vPayMulti) Dim strTemp strTemp = "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf if vPayMulti = 1 then strTemp = strTemp & "" & vbCrLf end if if vNumPrices > 1 then arrCosts = Split(vCost, "~@~") arrCostsUnit = Split(vCostUnitStr, "~@~") strSelect = "" strTemp = strTemp & "

Choose session:
" & strSelect & _ " " & vbCrLf & _ "

" & vbCrLf strCostDisplay = "" & Left(strCostDisplay, Len(strCostDisplay)-3) & "" & vbCrLf else strCostDisplay = "" & FormatCurrency(vCost,2) & " " & vCostUnitStr & "" & vbCrLf strTemp = strTemp & "" & vbCrLf & _ "
" & vbCrLf end if getPayPalString = strCostDisplay & strTemp End Function sSQL = "EXEC p_dhGetServicesList " set rsList = GetRS(sSQL) if not rsList.eof then do while not rsList.eof strServiceID = rsList("ServiceID") strServices = strServices & "

" & rsList("ServiceTitle") & "

" & vbCrLf sSQL2 = "EXEC p_dhGetServiceCosts " & toSQLNum(strServiceID) if isdebug then writeln "sSQL2 = " & sSQL2 iNumCosts = 0 strServiceCost = "" strServiceCostUnit = "" strCostString = "" strPayPal = "" set rsCosts = GetRSStatic(sSQL2) if not rsCosts.eof then iNumCosts = rsCosts.recordcount do while not rsCosts.eof strServiceCost = strServiceCost & rsCosts("ServiceCost") & "~@~" strServiceCostUnit = strServiceCostUnit & rsCosts("ServiceCostUnit") & "~@~" rsCosts.movenext loop rsCosts.close strServiceCost = Left(strServiceCost, Len(strServiceCost)-3) strServiceCostUnit = Left(strServiceCostUnit, Len(strServiceCostUnit)-3) end if set rsCosts = nothing if toInt(rsList("ServicePayPal")) = 1 then strServices = strServices & "" ' else ' 'if InStr(rsList("ServiceTitle"), "Angels Readings") OR InStr(rsList("ServiceTitle"), "Angels Readings") then ' if toInt(rsList("ServiceID")) = 1 OR toInt(rsList("ServiceID")) = 21 OR toInt(rsList("ServiceID")) = 23 then ' strServices = strServices & "Click here for more information." & vbCrLf ' end if end if strServices = strServices & "" & DisplayHTMLStr(rsList("ServiceDesc")) & "" & vbCrLf strServices = strServices & "
" rsList.movenext loop rsList.close end if set rsList = nothing Function DisplayHTMLStr(vStr) DisplayHTMLStr = Replace(vStr, vbCrLf, "
") End Function Function GetFirstSection(sVal) if Len(sVal) > 0 then iPos = Instr(sVal, " ") if iPos < Len(sVal) then GetFirstSection = Left(sVal, iPos-1) & Mid(sVal, iPos+1, 2) else GetFirstSection = Left(sVal, iPos-1) end if else GetFirstSection = "" end if End Function %> LaceyHealing.com ~~ Services

<%=strServices%>

Any of the services or workshops mentioned can be done in someone's home or another location.

Lacey is also available for speaking engagements and teachings.

disclaimer:
All the treatment sessions that I perform are never intended to replace the care or advice of a trained medical physician. These treatments and the advice given is not a guarantee of a complete healing or cure of your situation. Intuitive, Angel or any other types of readings performed by myself is the information that is correct for you at the time of your reading. What you decide to do with the information and the path you choose to follow after the reading will impact any advice that you have received. I do not hold any responsibility for the steps that affect you in your future. It is my intention to teach people that the answers they are seeking are located within them. I am here to teach all that I can about healing ourselves with the techniques that are used in my practice. We all have the ability to heal ourselves and my mission is to teach as many people just that. So for the sake of protecting myself from any liabilities, I am stating that this is for entertainment purposes only.