<% ' Connect to database If IsObject(Session("WalkSquawk_conn")) Then Set conn = Session("WalkSquawk_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.Open "WalkSquawkDB","","" Set Session("WalkSquawk_conn") = conn End If %> <% If Int(Request("time")) <> "" And Int(Request("time")) >= 6 Then timeSet = Int(Request("time")) Else timeSet = 10 End If checkedVal = "" ' See what Image we're at and prepare for next image sql = "select * from qImagesAndCat where ImageID >= " & Request("img") & " order by ImageID" Set sth = conn.Execute(sql) If sth.EOF Then ' problem, handle it later ErrStr = "No image exists with that ID" End If curImageID = sth("ImageID") curImageSrc = sth("ImageSrc") sth.MoveNext If Request("auto") <> "" And Not sth.EOF Then url = "slideshow.asp?img=" & sth("ImageID") & "&auto=on&time=" & timeSet checkedVal = "checked" %> <% End If%> Walk & Squawk


home

eat
(who we are)

watch
(upcoming events)

play
(workshops & residencies)

art
(productions)

drink
(touring)

technology
(hyperformance)

listen
(critics & audience squawk)

community
(supporters)

experiment
(tickets, cool stuff & contributions)

gallery
 
<% If sth.EOF Then ' we're at the end of the slide show %>

The End. <% Else %>

{ &img=<%=sth("ImageID")%>">next image }

"> "> >Change to next image after seconds  
<% End If sth.Close %>
 

| Shows | Squawk Sessions | Make a Donation | Cool Stuff | Feedback |

 
Brought to you by

© 1998-1999 Walk & Squawk Performance Project