1 <%@ Page Language="vb" Debug="true" validateRequest="false" %>
\r
2 <%@ Register TagPrefix="Rico" TagName="XmlWriter" Src="flickrPhotos.ascx" %>
\r
4 <script runat="server">
\r
6 '' -----------------------------------------------------------------------------
7 '' This script takes a "tags" parameter from the query string
8 '' and returns a list of flickr photos with that tag in the Rico LiveGrid format
10 '' PLEASE USE YOUR OWN FLICKR API KEY
11 '' Get one at: http://flickr.com/services/
13 '' Created by Matt Brown, Dec 2007
14 '' -----------------------------------------------------------------------------
16 dim RequestId as string
\r
18 Sub Page_Load(Sender As object, e As EventArgs)
\r
19 Response.CacheControl = "no-cache"
\r
20 Response.AddHeader("Pragma", "no-cache")
\r
21 Response.Expires = -1
\r
22 Response.ContentType="text/xml"
\r
24 RequestId=trim(Request.QueryString("id"))
\r
25 XmlObj.tags=trim(Request.QueryString("tags"))
26 XmlObj.flickrKey= "3773d42a5766f0bd27caa1d584ae0bc9"
\r
31 <ajax-response><response type='object' id='<%=RequestId%>_updater'>
\r
32 <Rico:XmlWriter id="XmlObj" runat="server"/>
\r
33 </response></ajax-response>
\r