*No Fax Payday Loans - No Faxing Required
*Funds Deposited Next Business Day
*Free For First Time Borrowers
Approval Requirements For A No Fax Payday Loan
- Must have a steady income of at least 1,000 a month
- Have NOT filed for bankruptcy in the past year
- Have a clean checking account without multiple NSF's
- Have a steady job for at least two months
|
<%=keyword%> Payday Loans
Apply today for your <%=keyword%> payday
loans. We offer a wide variety of <%=keyword%> payday loan
options. Each option virtually guarantees anyone with a full
time job and a checking account will qualify for these <%=keyword%>
payday loans. Online Payday Loans can be done in the comfort
of your own home with the proceeds from your <%=keyword%> payday loans
direct deposited into your account.
| Featured <%=keyword%> Payday Loans |
|
|
<%
Response.Buffer = True
Dim objXMLHTTP, xml
' Create an xmlhttp object:
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Opens the connection to the remote server.
xml.Open "get", "http://toolbar.search.msn.com/results.aspx?q=" & server.URLEncode(keyword) & "+Payday+Loans&first=1&count=10&FORM=PERE&format=rss", false
' Actually Sends the request and returns the data:
xml.Send
strXML=xml.responseText
set xml=nothing
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
Set objHdl = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.LoadXML (strXML)
If objXML.parseError.errorCode <> 0 Then
Response.Write "error" & strxml
End If
Set objLst = objXML.getElementsByTagName("item")
noOfHeadlines = objLst.length-1
For i = 0 To noOfHeadlines
Set objHdl = objLst.item(i)
title=objHdl.childNodes(0).text
url=objHdl.childNodes(1).text
desc=objHdl.childNodes(2).text
%>
| <%=title%> |
| <%=desc%> |
| <%=url%> |
<%
Next
%>
| 
