<%@ 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.pittsburghprintgroup.com

Founded in 1972, the Pittsburgh Print Group's purpose is to support artists who are printmakers through exhibitions, educational projects, and other promotional activities, as well as a commitment to the advancement and promotion of the printmaking art. It has approximately 70 artist members who work in Southwestern Pennsylvania and exhibit nationwide.

The Print Group seeks to advance the art of printmaking by providing vehicles for local printmakers to exhibit and sell their work through an open exchange of ideas and technical information. Members regularly conduct demonstrations, give lectures, and produce literature explaining printmaking and its place in contemporary art. The Group also joins with museums, art centers, schools and universities and galleries throughout the Pittsburgh region to produce educational programs covering the art and craft of printmaking.


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