<%@ 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 %>
Membership in Pittsburgh Watercolor Society is an exciting opportunity to meet artists who share an interest in watercolor. The Watercolor Society sponsors two yearly exhibits: Waterworks, a members-only show, and the Aqueous Open, an international juried exhibition. Other exhibitions may also be organized. Current membership is approximately 250 members, who are invited to attend two general membership meetings each year. A variety of committees coordinate Society business; their efforts are overseen by a Board of Directors which is elected every two years. Pittsburgh Watercolor Society is proud to be a member Guild of Pittsburgh Center for the Arts.

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