-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathrss-feeder.asp
64 lines (64 loc) · 2.38 KB
/
rss-feeder.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title>Test Page - RSS FEEDER</title>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.2.2/jquery.min.js" language="javascript"></script>
<script src="rss-feeder.js" language="javascript"></script>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<%
'------------------------------------------------------------------------------------------------
' Notes for News Feeds:
' Login at http://feed.informer.com
'------------------------------------------------------------------------------------------------
' Digest Title: "IBC.com Blog Feed (IBC Home Page)"
' Digest Source: http://internetbuildersconsulting.blogspot.com/feeds/posts/default?alt=rss
' Digest Source: http://plusfeed.frosas.net/+Internetbuilderconsulting
' Digest Source: http://buildersocialmedia.blogspot.com/feeds/posts/default?alt=rss
' Digest ID: YQB6UIEOA9
' News Template: "IBC.com Blog Feed", ASP.NET (USED ON THIS PAGE)
' Sharing link:: http://feed.informer.com/share/1PE6GMRN1P
' Sharing ID: 1PE6GMRN1P
'------------------------------------------------------------------------------------------------
' Digest Title: "Builder Consulting Twitter Feed"
' Twitter Feed: https://twitrss.me/twitter_user_to_rss/?user=builderwebsites
' Digest ID: HXCN9NN2TS
' News Template: "Twitter Tweets (Simple) ASP", ASP.NET (USED ON THIS PAGE)
' Sharing link:: http://feed.informer.com/share/0TS5GV2XON
' Sharing ID: 0TS5GV2XON
'------------------------------------------------------------------------------------------------
%>
<body>
<div class="rss-feeder">
<div class="feeder">
<h5>From Our Blog</h5>
<%
On Error Resume Next
dim blogObject
set blogObject = CreateObject("MSXML2.XMLHTTP")
Call blogObject.Open("GET", "http://feed.informer.com/widgets/1PE6GMRN1P.html", false)
Call blogObject.Send()
Response.Write(blogObject.responseText)
Response.Flush()
set blogObject = nothing
%>
</div>
<div class="feeder">
<h5>Latest Tweets</h5>
<!--tweet list-->
<%
On Error Resume Next
dim tweetObject
set tweetObject = CreateObject("MSXML2.XMLHTTP")
Call tweetObject.Open("GET", "http://feed.informer.com/widgets/0TS5GV2XON.html", false)
Call tweetObject.Send()
Response.Write(tweetObject.responseText)
Response.Flush()
set tweetObject = nothing
%>
</div>
</div>
</body>
</html>