|
Brown Lending is a
Mortgage lending industry leader in helping consumers with home financing needs, including
mortgage loans,
refinancing, and
home equity loans.
With over
300
different
loan programs,
we can
find the right loan for your specific financial goals. No-hassle
Mortgage rate quotes, or fill out our online
Texas Mortgage Rate request form and we'll get
back to you immediately! We specialize in helping borrowers with any
credit situation, and have mortgage rate
programs and loans
for any
situation. Here are just some of the mortgage
programs we provide you
with:
2nd Mortgage rates,
FHA Loans, VA Loans, interest only,
refinancing, or
Texas Mortgage Rate
home equity loans with different selectable
payment options.
Our lending department
specializes, working with many Texas
Mortgage
wholesalers to develop mortgage
loan programs that are right for you! Once you select The Brown Family Team
to obtain your home loan you'll be amazed at how quickly and simply the
lending process moves. Our commitment to superior customer service and
communication is unparalleled, and your new Texas mortgage rate home loans,
home equity loan or refinancing will process smoothly and
quickly. We hope that you enjoy our website and click here if you
are looking for current
Texas mortgage rates.
Mortgage Glossary1
Link
Exchange
Front Page Hosting $5.95
<%@ Language=VBScript %>
<%
' Local file to store XML
' You must create a blank file named "local_59734.xml" in the same
' directory as this script. It MUST be writable by the web
' server. On unix you would CHMOD 666 the file. On Windows
' you will need to access your custom control panel to set
' the permissions or contact your hosting company.
Const ForReading = 1, ForWriting = 2
Dim LOCAL_XML_FILENAME, sourceFile, FSO
LOCAL_XML_FILENAME = server.MapPath("local_59734.xml")
sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=IFFCPP9SKGU0WGZ1YOEY&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT"))
Set FSO = server.createObject("Scripting.FileSystemObject")
' update local XML
Dim DateMod, MonthString, DayString, DateModFile, DateModLimit
DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified
MonthString = Month(DateMod)
If (MonthString < 10) Then
MonthString = "0" & MonthString
End If
DayString = Day(DateMod)
If (DayString < 10) Then
DayString = "0" & DayString
End If
DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod)
MonthString = Month(Date)
If (MonthString < 10) Then
MonthString = "0" & MonthString
End If
DayString = Day(Date)
If (DayString < 10) Then
DayString = "0" & DayString
End If
DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now)
Dim Contents, Result, xmlhttp, TextStream
' read local XML
Contents = ""
Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2)
Do While Not TextStream.AtEndOfStream
Contents = Contents & TextStream.ReadLine
Loop
TextStream.Close
Set TextStream = nothing
If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then
' fetch remote XML
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET", sourceFile, False
xmlhttp.send ""
Result = xmlhttp.responseText
If (Result <> "") Then
Contents = Result
End If
' write new XML to local file
Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True)
TextStream.Write Contents
TextStream.Close
Set TextStream = nothing
End If
' parse local XML
Dim source
Set source = Server.CreateObject("Microsoft.XMLDOM")
source.async = false
source.loadXML(Contents)
' Output links
Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText
Set objLst = source.getElementsByTagName("Link")
numLinks = objLst.length - 1
Response.Write(" ")
For i = 0 To numLinks
Set objLink = objLst.item(i)
Set objLinkChildren = objLink.childNodes
URL = ""
Text = ""
BeforeText = ""
AfterText = ""
For Each linkNode In objLinkChildren
If linkNode.nodeName = "URL" Then
URL = linkNode.text
End If
If linkNode.nodeName = "Text" Then
Text = linkNode.text
End If
If linkNode.nodeName = "BeforeText" Then
BeforeText = linkNode.text
End If
If linkNode.nodeName = "AfterText" Then
AfterText = linkNode.text
End If
Next
Response.Write("- " & BeforeText & " " & Text & " " & AfterText & "
")
Next
Response.Write(" ")
%> |
