Moore-Rose Funeral Home

photograph
Welcome to
Thank you for visiting the 24 hour website. Our funeral homes proudly serve Floyd, Briscoe and Hall County and the surrounding areas.

This site will allow you to view current obituaries, sign our online guestbook and send condolences to each family.

We are a family owned and operated firm which takes great pride in caring for our neighbors and friends when they need us the most. Please feel free to call us or email us with any questions you might have.

Sincerely,
The
Owners and Staff
Recent Obituaries
<% Dim xmlHttp Dim data data = "funeralHomeID=854b22c1-1388-4a02-a254-4e5ac3e33c85" Dim postUrl postUrl = "http://www.heartfeltconnections.net/WebServices/Public_WebService.asmx/GetRecentTributes" Set xmlHttp = server.Createobject("MSXML2.XMLHTTP") xmlHttp.Open "POST", postUrl, false xmlHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded" xmlhttp.setRequestHeader "Mime-type", "text/xml" xmlHttp.setRequestHeader "Connection", "close" xmlHttp.send data 'set xmlDoc = Server.CreateObject("Microsoft.XMLDOM") set xmlDoc = Server.CreateObject("MSXML2.DOMDocument.4.0") xmlDoc.async = false Dim xmlString xmlString = xmlHttp.responseText '' NEED to perform the replace string functions in order for the XML Document to load properly xmlString = Replace(xmlString, "", "") xmlString = Replace(xmlString, "", "") xmlString = Replace(xmlString, "", "") xmlString = Replace(xmlString, "<", "<") xmlString = Replace(xmlString, ">", ">") '' For Testing Purposes; Uncomment the following lines to save the response to a file '' on the server. The server must have write permissions 'dim fs,fname 'set fs=Server.CreateObject("Scripting.FileSystemObject") 'set fname=fs.CreateTextFile(server.mapPath("test.xml"),true) 'fname.WriteLine(xmlString) 'fname.Close 'set fname=nothing 'set fs=nothing xmlDoc.loadXML(xmlString) Dim nodes Dim memberID Dim lastName Dim firstName ' display other info here set nodes = xmlDoc.documentElement.childNodes If (nodes.length > 0) Then 'Response.Write("NODES: " & nodes.length) Response.Write ("
    ") For Each node in xmlDoc.documentElement.childNodes 'Response.Write ("NODE: " & node.Xml) 'Response.End memberID = node.selectSingleNode("MemberID").Text lastName = node.selectSingleNode("LastName").Text firstName = node.selectSingleNode("FirstName").Text Response.Write("
  • " & firstName & " " & lastName & "
    • ") Next Response.Write("
") Else response.write("No current tributes found.") End If %>