<%@ 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 %>
An educational program focusing on family and community interaction. This program is offered within select Pittsburgh City Head Start programs for children ages 3 - 4. The program uses visual art activities, creative movement, and music activities to teach skills such as: sharing, honesty, safety, friendship, communication skills, motor skills, and literacy. The program is conducted weekly at each site 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 %>