<%@ 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 %>
 
www.societyofsculptors.org

The Society of Sculptors was founded in 1935 to "bring together sculptors, promote high standards of sculpture, and endeavor to uphold and foster all that shall be deemed worthy in the development of sculpture in the Pittsburgh area." For the past 65 years SOS has done that by helping to form the Pittsburgh Center for the Arts, hosting an annual open sculpture exhibition, creating numerous public works in the region, and several permanent works in the city. With an active membership and patron support, the Society continues to broaden public awareness and increase opportunities for established and emerging artists.


back to guilds list
 
 
 
 
<% rs.Close objConn.Close set rs = nothing set objConn = nothing %>