<%@ Language=VBScript %> <% Dim CanInclude CanInclude=TRUE %> <% response.contenttype = "application/rss+xml" %> http://<%=bsublink%>.<%=bdomain%>/ <%=btagline%> blog. en-us <% if bsiteid=0 then command = "SELECT TOP 10 * FROM Items WHERE date<=getdate() AND active = 1 ORDER BY date desc" else command = "SELECT TOP 10 * FROM Items WHERE " & bsearch & " AND date<=getdate() AND active = 1 ORDER BY date desc" end if 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 if bsiteid=0 then blogurl="http://" & SiteToUrl(rs("siteid")) & ".pirateshiprevenge.com" & MakeBlogURL(rs("id"),rs("title")) else blogurl=MakeBlogURL(rs("id"),rs("title")) end if '"/item," & rs("id") & "," & Replace(Replace(Replace(Replace(Replace(rs("title")," ","-"),",",""),"#",""),"/",""),"'","") & ",0.html" response.write(" " & vbcrlf) response.write(" " & vbcrlf) response.write(" " & vbcrlf) response.write(" " & vbcrlf) response.write(" " & vbcrlf) rs.MoveNext loop rs.close set rs = nothing response.write(" " & vbcrlf) response.write("" & vbcrlf) %>