<% Function getPayPalString(vName, vCost) Dim strTemp strTemp = "

" & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf strCostDisplay = "" & vName & ":   " & FormatCurrency(vCost,2) & "  " & vbCrLf & _ "" & vbCrLf & _ "" & vbCrLf & "

" & vbCrLf getPayPalString = strTemp & strCostDisplay End Function 'strIndivSession = getPayPalString("SoulFlow Individual Session", 150) 'strMonthSession = getPayPalString("SoulFlow Monthly Coaching", 333) ''strFriendSession = getPayPalString("SoulFlow Monthly Coaching - Partnered", 444) %>