<%@ Language=VBScript %> <% ' PageId = 5 ' Position1: 215x125 Left ' Position2: 167x125 Right ' Path = images/uploadedimages ' How to get Unique File name: replace(replace(replace(Now," ",""),":",""),"/","") dim rs dim objConn dim Position1 dim Position2 dim Path Path = "images/uploadedimages/" set objConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = "DSN=pca;uid=sa;pwd=;" objConn.Open strSQL = "SELECT AllImages.FileName FROM AllImages WHERE (((AllImages.PageId)=5)) ORDER BY AllImages.ImagePosition;" set rs = objconn.Execute(strSQL) if not rs.EOF then if not isnull(rs(0)) then Position1 = Path & rs(0) end if rs.MoveNext if not isnull(rs(0)) then Position2 = Path & rs(0) end if end if %>
A one-week camp held at the Allegheny Valley School facility on Coraopolis. The adolescents and adults participating in the program are developmentally delayed and physically challenged persons residing at the facility. Projects include fabric art, creative movement, painting, mural design, paper making, and storytelling. The project Tote Bag Printing from the 2000 Summer Camp resulted in a partnership with the Pittsburgh Center for the Arts shop, in which the facility is now selling artwork at the Center.
<% dim RandomImage strSQL = "SELECT COUNT(*) FROM RandomCommunity" set rs = objconn.Execute(strSQL) Randomize Timer RandomImage = int(rnd * rs(0)) strSQL = "SELECT ImagePath FROM RandomCommunity" set rs = objconn.Execute(strSQL) rs.Move RandomImage %>
<% rs.Close objConn.Close set rs = nothing set objConn = nothing %>