<%@ Language=VBScript %> <% response.contenttype = "application/rss+xml" %> http://www.cashsurfers.com/ Earn Money And Get Paid To Sign Up For Special Offers <%=Left(FormatDateTime(now,1),3) & ", " & Day(now) & " " & Left(MonthName(Month(now)),3) & " " & Year(now) & " " & FormatDateTime(now,4) %>:00 PST en-us <% Function stripchars(data) stripchars = Server.URLEncode(data) stripchars = stripchars & ".html" End Function command = "SELECT TOP 10 name,info FROM SOffers WHERE active='1' ORDER BY NewID()" SET rs = Server.CreateObject("ADODB.Recordset") rs.Open command, conn, adOpenForwardOnly, adLockReadOnly if rs.EOF then response.write(" " & vbcrlf) response.write(" " & vbcrlf) response.write(" No link." & vbcrlf) response.write(" No description." & vbcrlf) response.write(" " & vbcrlf) end if do while not rs.EOF blogurl="/sign-up/" & stripchars(rs("name")) response.write(" " & vbcrlf) response.write(" " & vbcrlf) response.write(" " & vbcrlf) response.write(" " & vbcrlf) response.write(" " & Left(FormatDateTime(now,1),3) & ", " & Day(now) & " " & Left(MonthName(Month(now)),3) & " " & Year(now) & " " & FormatDateTime(now,4) & ":00 PST" & "" & vbcrlf) response.write(" http://specialoffers.cashsurfers.com" & blogurl & "" & vbcrlf) response.write(" " & vbcrlf) rs.MoveNext loop rs.close set rs = nothing response.write(" " & vbcrlf) response.write("" & vbcrlf) %>