Welcome

Thank you for visiting the 24 hour website. Our funeral home proudly serves the families of Plainview and Hale County.

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

is proud to be family owned and locally operated by the Summers Family. We take great pride in caring for our neighbors and friends when they need us the most. Please feel free to call us, stop by or email us with any questions you might have.

Sincerely,
Chip and Amanda Summers
and the staff of
Recent Obituaries
<% Dim xmlHttp Dim data data = "funeralHomeID=D7712A69-286A-404E-9AC5-69234DEB4042" 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 %>
Plainview Weather Forecast, TX