<%@ 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 12-week program designed for seniors with disabilities. This program combines visual arts with music, drama, and photography to produce a videotaped account of a variety of projects. Participants create a one-act play by writing the script and music, creating costumes and scenery, and performing for the camera.
 
<% 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 %>