<%@ 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 %>
This recreational art program is offered to students grades 6 - 12 with and without special needs in an inclusive setting. Students are provided with a variety of visual art experiences such as: clay work, painting, puppetry, mask creation, fabric art, and banner design. This program is conducted weekly, at Marshall Middle School, throughout the school year.
<% 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 %>