Fleetwood's
Reply IQ System is a
high-end, high performance radio system, offering multi-digit capability,
superior range, and incredible speed. The system supports up to 25,000
keypads.
Send questions to hundreds of cell phone
users, anywhere in the world.
Within minutes, view their answers as a pie
chart. (more)
Audience Response
Industry News: <% response.write date %>
<%
' RSSlib @ 2RSS.com :: RSS directory, RSS scripts, RSS articles, RSS software.
' This scripts are distributed for free and are provided "AS IS" for PHP & ASP.
' For details read docs.htm or see our site.
' Copyright: Ovi Crisan @ www.2RSS.com
' Uses OneWayEncrypt.inc from http://pajhome.org.uk/crypt/md5/index.html
' A JavaScript implementation of the RSA Data Security, Inc. MD5 Message
' Digest Algorithm, as defined in RFC 1321.
' Copyright (C) Paul Johnston 1999 - 2000.
' Updated by Greg Holt 2000 - 2001.
' Adapted for use in ASP by Ian Brennan, Cyrona Software, 2001
' (Any modifications covered by LGPL)
' parameters used for caching
use_cache=true
cache_folder="tmp"
cache_valid=60 ' minutes
display_channel_name=false ' set to false to hide channel name & link
dim channel(5)
dim items
'********************************
function rss2html(url, m, w, target, cssprefix)
call getrss(url)
if display_channel_name then
if channel(1)<>"" then
response.write ""
else
response.write ""
end if
response.write channel(0)
if channel(1)<>"" then
response.write " "
else
response.write " "
end if
end if
if m=0 then m=UBound(items)
for l=0 to m-1
' display items
if items(l)(1)<>"" then
response.write ""
else
response.write "
"");" & vbcrlf
end function ' rss2js
'********************************
function getrss(url)
dim xmlDoc,nodeList,node
on error resume next
set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
xmlDoc.async = false
xmlDoc.resolveExternals = false
if use_cache then
cache_filename=Server.MapPath(cache_folder & "/" & OneWayEncrypt(url) & ".rss")
dim fs, f
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(cache_filename) then
Set f = fs.GetFile(cache_filename)
cache_create=(DateDiff("n",f.DateCreated,Now) after
Dim c
set node=xmlDoc.documentElement.childNodes(0)
do until node is nothing
if UCase(node.nodeName)="ITEM" then
n=UBound(items)
Redim Preserve items(n+1)
tmp(0)=""
tmp(1)=""
tmp(2)=""
For Each c in node.childNodes
Select Case UCase(c.nodeName)
Case "TITLE"
tmp(0)=c.text
Case "LINK"
tmp(1)=c.text
Case "DESCRIPTION","CONTENT:ENCODED"
tmp(2)=c.text
End Select
Next
items(n)=tmp
End If
set node=node.nextSibling
loop
on error goto 0
end function // getrss
function quotes(s)
s=replace(s,"""","\""")
quotes=replace(s,vbcrlf,"\n")
end function
%>
<%
'VBScript Wrapper
Function OneWayEncrypt(plaintext)
OneWayEncrypt=PJEnc_calcMD5(plaintext)
End Function
%>
<%
response.write "" & vbcrlf
url= "http://www.audience-response-rentals.com/blog/rss.xml"
if url="" then
response.write "- The news service is temporarily unavailable -"
else
m=20
ch=185
t="_blank"
css="rsslib"
call rss2html(url,m,ch,t,css)
end if
%>
Demand for
audience
response system rentals is likely to be quite strong for the Spring
2007 season.
Place your rental order early to ensure availability.
If you are thinking about buying an
audience response system, you should take a look at
ComTec ARS. The
software they develop is
the one most used by industry professionals.
