LaceyHealing.com ~~ Services

<% isdebug=false strAnchorName=request("AnchorName") on error resume next server.ScriptTimeout = 10 sSQL = "EXEC p_dhGetAllTestimonials " set rsList = GetRS(sSQL) if not rsList.eof then strTestimonials = "" & vbCrLf do while not rsList.eof strTestimonials = strTestimonials & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf strTestimonials = strTestimonials & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf strTestimonials = strTestimonials & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf rsList.movenext loop rsList.close strTestimonials = strTestimonials & "

" & DisplayHTMLStr(rsList("TestimonialText")) & "

- " & rsList("TestimonialAuthor") & "

" & vbCrLf end if set rsList = nothing '************************************************************************' '************************************************************************' Function DisplayHTMLStr(vStr) DisplayHTMLStr = Replace(vStr, vbCrLf, "
") End Function '************************************************************************' '************************************************************************' %> LaceyHealing.com ~~ Services

Testimonials

<%=strTestimonials%>