<% '--- Get the form details --- t=lcase(request("t")) sz=(request("sz")) lv=(request("lv")) un=(request("un")) sg=(request("sg")) skn=(request("skn")) sx=cint((request("sx"))) dim sk(9) for i = 1 to 9 sk(i)=(request("sk" & i)) next '--- Fill in blank details --- if tagtype="" then tagtype="tag" if sz ="" then sz="mm" if un <> "" then tagtype="user" if preset<>"none" and preset<>"" then tagtype="pool" un="" t="" end if '--- Set the thumbnail sizes --- if sz = "sm" then thumbsize=40 elseif sz = "mm" then thumbsize=50 elseif sz = "lg" then thumbsize=75 end if '---define the arrays for the 10 pictures--- dim flickrpic(10) dim flickrid(10) dim flickrtitle(10) dim flickrlink(10) dim fOrigPic(10) dim fOrigH(10) dim fOrigw(10) '---set the blank picture 0--- flickrpic(0) = "0.jpg" flickrtitle(0) = "blank" flickrlink(0)="" flickrpic(1) = "1.jpg" flickrpic(2) = "2.jpg" flickrpic(3) = "3.jpg" flickrpic(4) = "4.jpg" flickrpic(5) = "5.jpg" flickrpic(6) = "6.jpg" flickrpic(7) = "7.jpg" flickrpic(8) = "8.jpg" flickrpic(9) = "9.jpg" '---editable stuff---- flickrtitle(1) = "The Mousetrap" flickrtitle(2) = "Wicked" flickrtitle(3) = "Billy Elliot" flickrtitle(4) = "Blood Brothers" flickrtitle(5) = "Lion King" flickrtitle(6) = "Chicago" flickrtitle(7) = "We Will Rock You" flickrtitle(8) = "Legally Blonde" flickrtitle(9) = "Theatre Breaks Ltd" flickrlink(1)="http://www.theatrebreaks.com/The-Mousetrap-St-Martins-Theatre.aspx" flickrlink(2)="http://www.theatrebreaks.com/Wicked-Apollo-Victoria-Theatre.aspx" flickrlink(3)="http://www.theatrebreaks.com/Billy-Elliot-Victoria-Palace-Theatre.aspx" flickrlink(4)="http://www.theatrebreaks.com/Blood-Brothers-Phoenix-Theatre.aspx" flickrlink(5)="http://www.theatrebreaks.com/The-Lion-King-Lyceum-Theatre.aspx" flickrlink(6)="http://www.theatrebreaks.com/Chicago-Cambridge-Theatre.aspx" flickrlink(7)="http://www.theatrebreaks.com/We-Will-Rock-You-Dominion-Theatre.aspx" flickrlink(8)="http://www.theatrebreaks.com/Legally-Blonde-The-Musical-Savoy-Theatre.aspx" flickrlink(9)="http://www.theatrebreaks.com/" 'gridpattern="008050701000908040100070902030004020804000709060800040402090007060401000308020400" gridpattern="004680000083420000000700003801030050700000040906000007060370405035004670402160000" winnerpage="http://www.theatrebreaks.com/sudoku/hardsudoku.asp" winnermessage="CONGRATULATIONS! You have successfully completed the puzzle. Try a harder one?" '---set up the feed urls depending on the supplied criteria if tagtype="user" then if un="" and t<>"" then un=t if un="" and t="" then un="bécky" t="becky" end if userUrl = "http://www.flickr.com/services/rest/?method=flickr.people.findByUsername&username=" & un & "&api_key=fcd00accbdf319d86115c45efb464730" set userFeed = createobject("microsoft.xmldom") userFeed.async = false userFeed.setProperty "ServerHTTPRequest", True userFeed.validateOnParse = true userFeed.load(userUrl) if userFeed.selectSingleNode("rsp").getAttribute("stat") <> "fail" then id = userFeed.selectSingleNode("rsp").selectSingleNode("user").getAttribute("id") if t="" then feedUrl = "http://www.flickr.com/services/rest/?method=flickr.photos.search&user_id=" & id & "&per_page=500&api_key=fcd00accbdf319d86115c45efb464730" else feedUrl = "http://www.flickr.com/services/rest/?method=flickr.photos.search&user_id=" & id & "&per_page=500&tags=" & t & "&tag_mode=all&api_key=fcd00accbdf319d86115c45efb464730" end if else fail = 1 end if set userFeed = nothing elseif tagtype="pool" then feedUrl = "http://www.flickr.com/services/rest/?method=flickr.groups.pools.getphotos&group_id=" & preset & "&api_key=fcd00accbdf319d86115c45efb464730" else if t = "" then t = "hamster" feedUrl = "http://www.flickr.com/services/rest/?method=flickr.photos.search&tags=" & t & "&per_page=500&tag_mode=all&api_key=fcd00accbdf319d86115c45efb464730" end if if sg<>"" then gridpattern = sg '---populate the grid--- dim grid(81) dim known(81) for i = 0 to 80 grid(i)=mid(gridpattern,i+1,1) if skn = "" then if mid(gridpattern,i+1,1) = "0" then known(i) = "0" else known(i) = "1" end if else known(i) = mid(skn,i+1,1) end if next %> Theatre Breaks Sudoku online
<%response.write monkey %>

To play Theatre Breaks Sudoku, complete the grid so that each row, column and 3x3 group contain one of each picture.
To change the active picture, click on it in the list to the left.
<% for i = 0 to 9 response.write "" response.write "" response.write "" next %>
" & flickrtitle(i) & "
" if i > 0 then response.write "" & "(more info)" & "" response.write "
<% cellno=0 response.write "
" for x1 = 1 to 3 response.write "" for x2 = 1 to 3 response.write "" next response.write "
" for x3 = 1 to 3 response.write "" for x4 = 1 to 3 if known(cellno)=0 then response.write "" else response.write "" end if cellno = cellno + 1 next response.write "" next response.write "
" next response.write "
" %>